紧急求教dao数据库连接问题！

[zengxianfeng]

我在from2放有一个data控件data1用语连接数据库，form1的dbgrid控件如何利用data1的recordset呢？
我用Set Form1.DBGrid1.DataSource = Data1
产生了类不支持自动化或不支持期望的接口。
紧急请教怎么解决这个问题，谢谢！

[lihonggen0]

将记录集定义为

public Rs as new adodb.recordset 在模块里

屏幕中都能调用

[zengxianfeng]

to ： lihonggen0(李洪根,用VB，标准答案来了);
好象不行，adodb是用于ado连接方法吧，我现在用的是dao连接啊

[daryl715]

那就定义在公用模块中

[daryl715]

好像不行，data控件有很多不完善的地方
还是用ado吧

[zengxianfeng]

定义成什么类型？我只是想在form1中引用form2中的data控件的recordset

好象vb定义的那些记录集类型都是ado的，dao的好象还没看过

[zengxianfeng]

to daryl715(海军少校):
没办法，其实我刚开始已经用ado方法编好了，但老板要求用dao，现在改的差不多了，就是这个问题还没解决，头疼啊！

[tygh2000]

呵呵，好像datagrid只能连接ado的，具体的dao需要找另外的方法了，比如用listview了，

[Ben76]

如果你只是引用form2中的data控件的recordset，是没有问题的。但是，DBGrid控件是不能runtime时动态绑定的。

[zengxianfeng]

to ben76():
那要怎么设置呢？我要将form2.data1.recordset显示在form1的dbgrid控件里。

[lxqlogo0]

form1.dbgrid.datasource=from2.data.datasource

[daryl715]

Private Sub Command1_Click()
Dim testws As Workspace '定义操作数据文件
Dim testdb As Database
Dim testtd As TableDef
Dim testfld As Field
Dim testflds As Fields


Set testdb = OpenDatabase("e:\test.mdb") '确定数据库坐在位置
Set testtd = testdb.TableDefs("学生") '打开要添加字段的表
Set testflds = testtd.Fields '定义字段

testflds.Delete ("new")


testdb.Close '关闭数据库
End Sub

[zengxianfeng]

to lxqlogo0(群子),data控件好象没有datasource属性啊。

to daryl715(海军少校)，您可能弄错了我意思，我是为了在两个form里共享一个data的recordset。

到底要怎么样实现啊？

[ql_mf]

换一个思路么