如何通过VB6给已经存在的Access数据库创建一个新表具体问题:
我用Adodc控件和DataGrid控件连接Access2003
数据库已经存在(newdata.mdb),我想向数据库中添加一个新的表,还有就是表的名字,表的字段什么的怎么定义?如果不行的话,那如何复制一个已经存在的表,即把newdata.mdb中的table1复制一份,命名为table2,哪位大哥知道的,给小弟讲讲,最好给个实例,谢谢!!
我用Adodc控件和DataGrid控件连接Access2003
数据库已经存在(newdata.mdb),我想向数据库中添加一个新的表,还有就是表的名字,表的字段什么的怎么定义?如果不行的话,那如何复制一个已经存在的表,即把newdata.mdb中的table1复制一份,命名为table2,哪位大哥知道的,给小弟讲讲,最好给个实例,谢谢!!
sql="select * into table2 from table1"
然后执行sql就可以
'如下代码演示如何创建新表
Sub CreateTable()
'定义之前要引用,上面第一行
Dim tbl As New Table
Dim cat As New ADOX.Catalog
'如果出错转到flag
On Error GoTo flag
'打开目录,注意Data和Source之间只能有一个空格,否则会出错,系统提示如下信息:
'实时错误 '-2147467259 (80004005)':
'找不到可安装的 ISAM
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\newdata.mdb;"
tbl.Name = "MyTable2"
tbl.Columns.Append "Column1", adInteger
tbl.Columns.Append "Column2", adInteger
tbl.Columns.Append "Column3", adVarWChar, 50
cat.Tables.Append tbl
MsgBox "MyTable成功创建"
Exit Sub
flag:
MsgBox "该表已经存在"
End Sub
'调用
Private Sub Command1_Click()
Call CreateTable
End Sub