'Include the Below References from Project Menu 'Microsoft ActiveX Data Objects 2.1 Library 'Microsoft ActiveX Data Objects RecordSet 2.1 Library 'Declare these Variables Dim Com as New ADODB.Command Dim Con as New ADODB.Connection'Specify the Connection as below Con.Provider="Microsoft.Jet.OLEDB.3.51" 'specify the Database here Con.Open "c:\phil\stud.mdb" Com.ActiveConnection=Con 'Code Com.Commandtext="Create table stud(sno number(4));" com.Execute 'Table is Created
2 可以在得到结果集后提交创建表的语句,再把结果集插到新表中
QQ33524826
ACCESS也支持SELECT INTO 的语法
晕久不来CSDN,现在还出了这样的人
'Microsoft ActiveX Data Objects 2.1 Library
'Microsoft ActiveX Data Objects RecordSet 2.1 Library
'Declare these Variables
Dim Com as New ADODB.Command
Dim Con as New ADODB.Connection'Specify the Connection as below
Con.Provider="Microsoft.Jet.OLEDB.3.51"
'specify the Database here
Con.Open "c:\phil\stud.mdb"
Com.ActiveConnection=Con
'Code
Com.Commandtext="Create table stud(sno number(4));"
com.Execute
'Table is Created
用addnew增加