'部件里添加ADODC
'部件添加DataGrid
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:22.mdb
ersist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from itb1"
'部件添加DataGrid
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:22.mdb
ersist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from itb1"
Adodc1.Refresh
End Sub
本文转自9pc9com博客，原文链接： http://blog.51cto.com/215363/1026446 如需转载请自行联系原作者
