vb 创建mdb文件
DimPathAsStringDimDbAsDatabaseDimSQLAsStringPath=App.Path&"\(Time,"hhmmss")&".mdb"'文件...
Dim Path As String
Dim Db As Database
Dim SQL As String
Path = App.Path & "\(Time, "hhmmss") & ".mdb" '文件名及文件存放路径
If Dir(Path) = "" Then '判断该路径是否有文件
Set Db = Workspaces(0).CreateDatabase(Path, dbLangGeneral)'创建新的文件
SQL = "Create Table " & "TEST"& " (" & "单号 text,备注 text);"
Db.Execute SQL
End if
这个我从百度知道抄下来的.但是没有database这个变量类型.请问要怎样才有.? 展开
Dim Db As Database
Dim SQL As String
Path = App.Path & "\(Time, "hhmmss") & ".mdb" '文件名及文件存放路径
If Dir(Path) = "" Then '判断该路径是否有文件
Set Db = Workspaces(0).CreateDatabase(Path, dbLangGeneral)'创建新的文件
SQL = "Create Table " & "TEST"& " (" & "单号 text,备注 text);"
Db.Execute SQL
End if
这个我从百度知道抄下来的.但是没有database这个变量类型.请问要怎样才有.? 展开
2个回答
展开全部
创建MDB文件，需要先执行【工程 】－ 【引用 】 Microsoft ADO Ext. 2.8 for DDL and......
Dim cata As New ADOX.Catalog
cata.Create ("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & AccFullName & "")
Set cata = Nothing
将AIS中的表复制到上面建立的MDB文件中
Set rs = conn.OpenSchema(adSchemaTables)
While Not rs.EOF
If rs!table_type = "TABLE" Then
conn.Execute ("select * into [" & AccFullName & "].[" & rs!table_name & "] from [" & rs!table_name & "]")
End If
rs.MoveNext
Wend
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
百事牛
2024-10-22 广告
百事牛是共享提供商，我们提供可靠有效的服务，适当合理的授权费有利于的继续更新优化。同样的事情，同样的方法，百事牛团队十年磨一剑，始终至聚焦在密码恢复领域，深耕于此，我们已研制出有别于其他公司的算法和运算模式， 百事牛的暴力模式加入了分布式点...
点击进入详情页
本回答由百事牛提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
