dim conn as new adodb.connection With conn if .State = adStateOpen Then .Close .ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Mode=ReadWrite;Persist Security Info=False" .Open End With
Dim cnn AS ADODB.ConnectionDim rst AS ADODB.RecordsetSet cnn=New ADODB.ConnectionCnn.Provider= ”Microsoft.Jet.OLEDB.3.51”Cnn.ConnectionString= ”Data Source=” & App.path & ”\ssgl.mdb;” & _” ;Jet OLEDB:Database password=”cnn.Open
1 使用控件,几乎不用写代码 DAO : Data 控件和 DBGrid(可编辑) 或 MSFlexGrid 控件。如果用 Access2000 格式数据库需要一点代码支持。ADO : ADODC 控件和 DataGrid(可编辑) 或 MSHFlexGrid 控件。2 使用 ADO 或 DAO 对象,编写代码。对于初学者,建议使用 ADODC 控件。
With conn
if .State = adStateOpen Then .Close
.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Mode=ReadWrite;Persist Security Info=False"
.Open
End With
DAO : Data 控件和 DBGrid(可编辑) 或 MSFlexGrid 控件。如果用 Access2000 格式数据库需要一点代码支持。ADO : ADODC 控件和 DataGrid(可编辑) 或 MSHFlexGrid 控件。2 使用 ADO 或 DAO 对象,编写代码。对于初学者,建议使用 ADODC 控件。
可以告知具体应该写在哪里么?谢谢了
>可以告知具体应该写在哪里么?谢谢了ADODB 不是控件,是对象,需要引用和写代码。代码写在代码窗口,例如 Private Sub Forma_load() 事件下,或 Private Sub Command1_Click() 事件下。>一楼的,我看在代码里没有路径,怎么跟Access 连接么?
数据库放在可执行文件同一路径下。
谢谢