1,217
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
'部件中添加ADO
'部件中添加datagrid
'注意修改ACCESS数据库路径及表名
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\11.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "itb1" 'itb1是表名
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub