中科新闻网海顿云雀四重奏谱子:VB 关于ACCESS版本问题
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 20:54:09
我用的是OFFIC 2003 运行了下面的程序,结果报错无效的格式!
我不想每次都要把ACCESS2000转换成ACCESS97数据库才运行哟,各位有什么好的办法啊?
Private Sub Command1_Click()
Dim db As Database
Dim rs As Recordset
Set db = Workspaces(0).OpenDatabase("D:\database\cs.MDB")
Dim sql As String
sql = "select * into mytable2 from cs"
db.Execute sql
Data1.RecordSource = "mytable"
Data1.Refresh
End Sub
我不想每次都要把ACCESS2000转换成ACCESS97数据库才运行哟,各位有什么好的办法啊?
Private Sub Command1_Click()
Dim db As Database
Dim rs As Recordset
Set db = Workspaces(0).OpenDatabase("D:\database\cs.MDB")
Dim sql As String
sql = "select * into mytable2 from cs"
db.Execute sql
Data1.RecordSource = "mytable"
Data1.Refresh
End Sub
好像没办法
不转不能用吧