visual basic access 新增空表 字段

方法1：

Private Sub Command2_Click() '添加一个空表
Dim Link As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Link.CursorLocation = adUseClient
Link.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False"
Link.Open
Rs.Open "CREATE TABLE MyTb(姓名 TEXT,学号 INT,婚否 TEXT,编号 CHAR(12),注册日期 DATETIME)", Link, adOpenDynamic, adLockOptimistic
End Sub

Private Sub Command3_Click() '添加字段
Dim Link As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Link.CursorLocation = adUseClient
Link.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False"
Link.Open
Rs.Open "ALTER TABLE mytb2 ADD MYNAME TEXT NULL,MYCODE LOGICAL NULL", Link, adOpenDynamic, adLockPessimistic
'mytb2是表，MYNAME是字段，TEXT是字段类型，NULL为必须的，允许为空
End Sub

方法2：

Private Sub Command2_Click() '添加一个空表
Dim Link As New ADODB.Connection
dim strsql as string
Link.CursorLocation = adUseClient
Link.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False"
Link.Open
strsql="CREATE TABLE MyTb(姓名 TEXT,学号 INT,婚否 TEXT,编号 CHAR(12),注册日期 DATETIME)"
link.execute(strsql)
End Sub

Private Sub Command3_Click() '添加字段
Dim Link As New ADODB.Connection
dim strsql as string
Link.CursorLocation = adUseClient
Link.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False"
Link.Open
strsql="ALTER TABLE mytb2 ADD MYNAME TEXT NULL,MYCODE LOGICAL NULL"
link.execute(strsql)
End Sub

如何复制数据表：

Private Sub Command2_Click()
    Dim cn As New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & OpenFile & "';Persist Security Info=False;Jet OLEDB:Database Password=10240268"
    cn.Execute "select *  into table4 from data "
    cn.Close
    Set cn = Nothing
     
End Sub

如果仅仅是复制数据表结构，则仅仅：

cn.Execute "select *  into table4 from data where false"