1180
社区成员
- 主页
紧急求教dao数据库连接问题！
我在from2放有一个data控件data1用语连接数据库，form1的dbgrid控件如何利用data1的recordset呢？
我用Set Form1.DBGrid1.DataSource = Data1
产生了类不支持自动化或不支持期望的接口。
紧急请教怎么解决这个问题，谢谢！
我用Set Form1.DBGrid1.DataSource = Data1
产生了类不支持自动化或不支持期望的接口。
紧急请教怎么解决这个问题，谢谢！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
ql_mf 2002-05-22
换一个思路么
zengxianfeng 2002-05-10
to lxqlogo0(群子),data控件好象没有datasource属性啊。
to daryl715(海军少校)，您可能弄错了我意思，我是为了在两个form里共享一个data的recordset。
到底要怎么样实现啊？
to daryl715(海军少校)，您可能弄错了我意思，我是为了在两个form里共享一个data的recordset。
到底要怎么样实现啊？
daryl715 2002-05-10
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
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
lxqlogo0 2002-05-10
form1.dbgrid.datasource=from2.data.datasource
zengxianfeng 2002-05-10
to ben76():
那要怎么设置呢？我要将form2.data1.recordset显示在form1的dbgrid控件里。
那要怎么设置呢？我要将form2.data1.recordset显示在form1的dbgrid控件里。
Ben76 2002-05-10
如果你只是引用form2中的data控件的recordset，是没有问题的。但是，DBGrid控件是不能runtime时动态绑定的。
tygh2000 2002-05-10
呵呵，好像datagrid只能连接ado的，具体的dao需要找另外的方法了，比如用listview了，
zengxianfeng 2002-05-10
to daryl715(海军少校):
没办法，其实我刚开始已经用ado方法编好了，但老板要求用dao，现在改的差不多了，就是这个问题还没解决，头疼啊！
没办法，其实我刚开始已经用ado方法编好了，但老板要求用dao，现在改的差不多了，就是这个问题还没解决，头疼啊！
zengxianfeng 2002-05-10
定义成什么类型？我只是想在form1中引用form2中的data控件的recordset
好象vb定义的那些记录集类型都是ado的，dao的好象还没看过
好象vb定义的那些记录集类型都是ado的，dao的好象还没看过
daryl715 2002-05-10
好像不行，data控件有很多不完善的地方
还是用ado吧
还是用ado吧
daryl715 2002-05-10
那就定义在公用模块中
zengxianfeng 2002-05-10
to ： lihonggen0(李洪根,用VB，标准答案来了);
好象不行，adodb是用于ado连接方法吧，我现在用的是dao连接啊
好象不行，adodb是用于ado连接方法吧，我现在用的是dao连接啊
lihonggen0 2002-05-10
将记录集定义为
public Rs as new adodb.recordset 在模块里
屏幕中都能调用
public Rs as new adodb.recordset 在模块里
屏幕中都能调用
