vb连接数据库(vb连接sql数据库简单实例)

数据库连接：

strConn=”Provider=Microsoft.Jet.OLEDB.4.0;DataSource=”&App.Path&”data”&”;Mode=ReadWrite|ShareDenyNone;PersistSecurityInfo=False;JetOLEDB:EngineType=82″

ConSql.ConnectionString=strConn

ConSql.Open

……

打开数据库：

sql=”select*fromdata”

rs.Opensql,ConSql,adOpenStatic,adLockReadOnly

这时，如果data.db被别的打开时，VB打开时就会出现：“无法锁定数据表data；正被机器'(未知)’上的用户'(未知)’使用。”

,vb连接sql数据库简单实例,SQLServer是Microsoft公司推出的关系型数据库管理系统。具有使用方便可伸缩性好与相关软件集成程度高等优点.那么VB6怎么去连接呢?接下来请跟进我们的步伐前进!

直接上CLS_VB6_SQL类代码

OptionExplicit

”************************************

”在这里修改数据库参数

ConstIPAsString=”10.28.14.30″”SQL数据库地址

ConstPORTAsString=”1433″”SQL数据库端口

ConstUSERAsString=”vbxym””SQL用户名

ConstPASSAsString=”vbxym””SQL用户密码

ConstDBNAMEAsString=”db_vbxym””SQL数据库

”************************************

”’引用ADO2.8

PrivateCNAsADODB.Connection”定义连接

PrivateRSAsADODB.Recordset”定义数据集

PublicTFAsBoolean”数据库初始化状态判断

”返回SQL连接字符串

PrivateFunctionCN_STR()AsString

OnErrorGoToer

DimSTRAsString

STR=STR&”Provider=SQLOLEDB.1;PersistSecurityInfo=false;””sql驱动

STR=STR&”DataSource=”&IP&”,”&PORT&”;””数据库地址和端口

STR=STR&”InitialCatalog=”&DBNAME&”;””数据库名

STR=STR&”UserID=”&USER&”;””用户名

STR=STR&”Password=”&PASS&”;””用户密码

STR=STR&”,,,adAsyncConnect””连接属性

CN_STR=STR

ExitFunction

er:

MsgBox”字符拼接错误!”,vbCritical,”警告”

EndFunction

”初始化数据库

PublicFunctionRESET_DB()AsBoolean

OnErrorGoToer

SetCN=NewADODB.Connection

SetRS=NewADODB.Recordset

IfCN.State=adStateOpenThenCN.Close”判断数据库是否已经打开

CN.ConnectionTimeout=10”设置连接超时

CN.OpenCN_STR”打开数据库

IfCN.State=adStateOpenThen”判断是否打开

RESET_DB=True

TF=True

Else

TF=False

RESET_DB=False

EndIf

ExitFunction

er:

RESET_DB=False

EndFunction

”执行SQL语句

PublicFunctionCMD_SQL(ByValsqlAsString)AsBoolean

OnErrorGoToer

IfTF=FalseThenMsgBox”数据库没有初始化!”,vbCritical,”警告”:ExitFunction

IfCN.State<>adStateOpenThen”判断数据是否打开

CMD_SQL=False

ExitFunction

Else

CN.Executesql”执行SQL

CMD_SQL=True

EndIf

ExitFunction

er:

CMD_SQL=False

EndFunction

”获取SQL记录集

PublicFunctionSELECT_SQL(ByValsqlAsString)AsObject”ADODB.Recordset

OnErrorGoToer

IfTF=FalseThenMsgBox”数据库没有初始化!”,vbCritical,”警告”:ExitFunction

IfCN.State<>adStateOpenThen”判断数据是否打开

ExitFunction

Else

SetRS=NewADODB.Recordset

RS.CursorLocation=adUseClient”客户端指针

RS.Opensql,CN,adOpenKeyset,adLockPessimistic”执行SQL

SetSELECT_SQL=RS

EndIf

ExitFunction

er:

SetSELECT_SQL=Nothing

EndFunction

使用案列form

OptionExplicit

DimMSQLAsNewCLS_VB6_SQL

PrivateSubCommand2_Click()

IfMSQL.TF=TrueThen

DimRSAsADODB.Recordset

SetRS=MSQL.SELECT_SQL(“SELECT*FROMtb_test”)

SetMSHFlexGrid1.DataSource=RS.DataSource

‘MsgBoxRS.RecordCount

Else

MsgBox”数据库没有初始化!”

EndIf

EndSub

PrivateSubForm_Load()

MSQL.RESET_DB

EndSub

案例下载:

https://www.lanzous.com/i6lmi4b