Office中国论坛/Access中国论坛

标题: ★★★ACCESS中，如何添加datagird控件的数据源？ [打印本页]

作者: yuweimian 时间: 2006-11-8 00:55
标题: ★★★ACCESS中，如何添加datagird控件的数据源？
我想用access编程，实现通过双击选中datagird中记录的目的。
已经在电脑中加入了datagird控件，但该控件在access中好像没有datasource属性，没有办法链接数据源（即链接表.mdb）。请高手赐教：怎样链接上数据表？

作者: zhengjialon 时间: 2006-11-8 01:58
要手动编程绑定的吧?

作者: fan0217 时间: 2006-11-8 03:08
看看下面的应该对你有帮助：

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 时间: 2006-11-8 17:24
谢谢三楼，经调试，以下可用：
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=Read

ersist Security Info=False"
'myAdodc.RecordSource = "[" & me.gongfang" & "]"
'myAdodc.LockType = adLockOptimistic
'myAdodc.CursorLocation = adUseClient
Set myDataGrid.DataSource = myAdodc
myAdodc.Refresh
End Sub

作者: yuweimian 时间: 2006-11-8 17:29
另有别的地方的回复，放在一块，供日后查阅
（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 时间: 2006-11-8 19:01
学习~~~

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)