为什么打开access97数据库没有问题,而我把数据库转成access2000的时候就有问题
程序如下:
Sub MapDatabase()
Dim Db As Database, Td As TableDef, n As Integer
Set Db = OpenDatabase(sfile.Text)'sfile.Text中有mdb的路径
For Each Td In Db.TableDefs
If (Td.Attributes And dbSystemObject) = 0 Then
txtdbtable.AddItem Td.Name
End If
Next Td
End Sub
程序如下:
Sub MapDatabase()
Dim Db As Database, Td As TableDef, n As Integer
Set Db = OpenDatabase(sfile.Text)'sfile.Text中有mdb的路径
For Each Td In Db.TableDefs
If (Td.Attributes And dbSystemObject) = 0 Then
txtdbtable.AddItem Td.Name
End If
Next Td
End Sub
解决方案 »
- 关于10进制与16进制转换的讨论???????
- 为什么窗体没显示出来程序已经运行完毕了
- 关于VSreport的默认纸张问题
- 关于SQL语句,请帮忙!谢谢!
- 请教高手:vb+sql2000 打包问题
- 有关Command中的Execute方法
- 请教各位大师,如何用VB做一个象ComboBox一样的控件
- vb写的dll 函数,再用vb调用时 dll函数里面 的一个字符串,在dll里面输出正常,再用vb调用 时候,只返回字符串的第一个字符, 求高人指点!
- 没有学过windows窗口机制,想学windows的api 用什么书好?
- VB中如何向SQL中某一列插入数据????
- 请教 :怎么样把ORACLE里面的表纪录转为DBF格式??高分有谢!!!
- “local error”中的“local”什么意思?
还别说DAO这冬冬还没怎么碰过,还是熟悉ADO一些
put DAO into trash