visual basic access 新增空表 字段

方法1：

Private Sub Command2_Click() '添加一个空表Dim Link As New ADODB.ConnectionDim Rs As New ADODB.RecordsetLink.CursorLocation = adUseClientLink.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False"Link.OpenRs.Open "CREATE TABLE MyTb(姓名 TEXT,学号 INT,婚否 TEXT,编号 CHAR(12),注册日期 DATETIME)", Link, adOpenDynamic, adLockOptimisticEnd SubPrivate Sub Command3_Click() '添加字段Dim Link As New ADODB.ConnectionDim Rs As New ADODB.RecordsetLink.CursorLocation = adUseClientLink.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False"Link.OpenRs.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.Connectiondim strsql as stringLink.CursorLocation = adUseClientLink.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False"Link.Openstrsql="CREATE TABLE MyTb(姓名 TEXT,学号 INT,婚否 TEXT,编号 CHAR(12),注册日期 DATETIME)"link.execute(strsql)End SubPrivate Sub Command3_Click() '添加字段Dim Link As New ADODB.Connectiondim strsql as stringLink.CursorLocation = adUseClientLink.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb;Persist Security Info=False"Link.Openstrsql="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"