30头牛圈建设图片大全:新编度系统怎么连接数据库<>VB6.0+ACCESS

来源:百度文库 编辑:高考问答 时间:2024/04/30 06:16:25
请详细点!

给你个用ADO实现数据库连接并将数据显示在DataGrid1中的例子
希望对你有帮助~

工程->引用->Microsoft Activex Data Objects 2.0 Library 后面为版本号

Dim Conn As ADODB.Connection
Dim Rs As ADODB.Recordset
Private Sub Form_Load()
Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库路径;Persist Security Info=False"
Conn.Open
Conn.CursorLocation = adUseClient
Rs.Open "select * from tablename", Conn, adOpenKeyset, adLockOptimistic
Set Me.DataGrid1.DataSource = Rs
End Sub