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
to lxqlogo0(群子),data控件好象没有datasource属性啊。to daryl715(海军少校),您可能弄错了我意思,我是为了在两个form里共享一个data的recordset。到底要怎么样实现啊?
将记录集定义为public Rs as new adodb.recordset 在模块里屏幕中都能调用
to : lihonggen0(李洪根,用VB,标准答案来了); 好象不行,adodb是用于ado连接方法吧,我现在用的是dao连接啊
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
好象不行,adodb是用于ado连接方法吧,我现在用的是dao连接啊
还是用ado吧
没办法,其实我刚开始已经用ado方法编好了,但老板要求用dao,现在改的差不多了,就是这个问题还没解决,头疼啊!
那要怎么设置呢?我要将form2.data1.recordset显示在form1的dbgrid控件里。