数据库连接：
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
