dim cn as adodb.connection dim rs as adodb.recordsetcn.conncentstring="xxx" cn.open rs.open cn,"select *"
Public Function DBConnect() As Boolean DBConnect = False
On Error GoTo ErrHandler With g_Conn .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\WinTransPrice.mdb;Persist Security Info=False" 'Êý¾Ý¿âÁ¬½Ó×Ö·û´® .CommandTimeout = 15 'Á¬½Óʱ¼ä .CursorLocation = adUseClient 'Óαê .IsolationLevel = adXactChaos 'ÊÂÎñ¼¶±ð .Mode = adModeReadWrite 'Á¬½Óģʽ .Open End With
DBConnect = True Exit Function ErrHandler: MsgBox "´ò¿ªÊý¾Ý¿âÁ¬½Óʧ°Ü£¬Çë¼ì²éÊý¾ÝÎļþÊÇ·ñ´æÔÚ£¡", vbOKOnly, "ϵͳ´íÎó" End Function
If optWindows.Value = 1 Then '选中 Else '未选中 end if 如果已经用ADODB连接数据库了,那么你可以取它的代码。
dim cnn as adodb.connection dim rst as adodb.recordsetcnn.conncentstring="Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=path\*.mdb" cnn.open rst.open cn,"select *from tablename where ^o^"
可以用ADODC自动生成连接字符串。
添加数据的例子:with rst .addnew .fields("字段")=值 end with . . . rst.update 显示数据的例子: datagrid.datasource=adodc1 用ADODC连接到数据库!
'选中
Else
'未选中
end if
dim rs as adodb.recordsetcn.conncentstring="xxx"
cn.open
rs.open cn,"select *"
DBConnect = False
On Error GoTo ErrHandler
With g_Conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\WinTransPrice.mdb;Persist Security Info=False" 'Êý¾Ý¿âÁ¬½Ó×Ö·û´®
.CommandTimeout = 15 'Á¬½Óʱ¼ä
.CursorLocation = adUseClient 'Óαê
.IsolationLevel = adXactChaos 'ÊÂÎñ¼¶±ð
.Mode = adModeReadWrite 'Á¬½Óģʽ
.Open
End With
DBConnect = True
Exit Function
ErrHandler:
MsgBox "´ò¿ªÊý¾Ý¿âÁ¬½Óʧ°Ü£¬Çë¼ì²éÊý¾ÝÎļþÊÇ·ñ´æÔÚ£¡", vbOKOnly, "ϵͳ´íÎó"
End Function
'选中
Else
'未选中
end if
如果已经用ADODB连接数据库了,那么你可以取它的代码。
dim rst as adodb.recordsetcnn.conncentstring="Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=path\*.mdb"
cnn.open
rst.open cn,"select *from tablename where ^o^"
可以用ADODC自动生成连接字符串。
.addnew
.fields("字段")=值
end with
.
.
.
rst.update
显示数据的例子:
datagrid.datasource=adodc1
用ADODC连接到数据库!