1,216
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
cbm6666 2008-03-20
- 打赏
- 举报
'添加 Command1 Adodc1 DataGrid1
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "c:\bwscale.mdb"
Adodc1.RecordSource = "select * from bwcust" 'where company=" & Chr(39) & "霸王衡器公司" & Chr(39)
Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Command1_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "c:\bwscale.mdb"
Adodc1.RecordSource = "select * from bwcust" 'where company=" & Chr(39) & "霸王衡器公司" & Chr(39)
Set DataGrid1.DataSource = Adodc1
End Sub
lcsfxs 2008-03-20
- 打赏
- 举报
datagrid,msflexgrid,用ADODC连接数据库。
junki 2008-03-20
- 打赏
- 举报
没有什么特别的,可以使用datagrid,msflexgrid,mshflexgrid等等
