★★★ACCESS中，如何添加datagird控件的数据源？

yuweimian

我想用access编程，实现通过双击选中datagird中记录的目的。
已经在电脑中加入了datagird控件，但该控件在access中好像没有datasource属性，没有办法链接数据源（即链接表.mdb）。请高手赐教：怎样链接上数据表？

zhengjialon

要手动编程绑定的吧?

fan0217

  看看下面的应该对你有帮助：

  Dim myDataGrid As DataGrid
    Dim myAdodc As Adodc
   
    Set myAdodc = Adodc1.Object
    Set myDataGrid = DataGrid1.Object
   
    myAdodc.ConnectionString = "rovider='Microsoft.Jet.OLEDB.4.0';" & _
                               "Data Source= '" & Me.dbName & "';"
    myAdodc.RecordSource = "[" & Me.selTable & "]"
    myAdodc.LockType = adLockOptimistic
    myAdodc.CursorLocation = adUseClient
    Set myDataGrid.DataSource = myAdodc
    myAdodc.Refresh

yuweimian

谢谢三楼，经调试，以下可用：
Private Sub Form_Load()
    Dim myAdodc As Adodc
    Dim myDataGrid As DataGrid
   
    Set myAdodc = Adodc0.Object
    Set myDataGrid = DataGrid1.Object
   
    'myAdodc.ConnectionString = "Microsoft.Jet.OLEDB.4.0;Data Source=C:\工作目录\ACCESS\gfhtfk.mdb;Mode=Readersist Security Info=False"
    'myAdodc.RecordSource = "[" & me.gongfang" & "]"
    'myAdodc.LockType = adLockOptimistic
    'myAdodc.CursorLocation = adUseClient
    Set myDataGrid.DataSource = myAdodc
    myAdodc.Refresh
End Sub

yuweimian

另有别的地方的回复，放在一块，供日后查阅
（http://www.programfan.com/club/old_showbbs.asp?id=35772）：
如果是要显示表格,可以用ado控件,即(ADODC),也可以用ADO对象,即(adodb)


用ADODC控件的方法是在菜单栏[工程]中选择部件,然后在弹出的对话框中选择


Microsoft ADO data control 6.0(OLEDB)


对于Access，加一个Adodc，其ConnectionString设为：


Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的Access数据库路径


CommandType选AdCmdTable，然后选你要显示的Table。接着将DataGrid的DataSource设为Adodc1


选中ADODC控件,单击鼠标右键在弹出的菜单中选择[属性],然后根据向导做

wuheng

学习~~~