>怎么用vb在access中建表和删表<

Question

比如
在db1.mdb中
建立表aaa(字段：学生姓名、年龄、成绩)
然后删除表aaa；

Answer 1

drop table list2'删除
create table list2 (aa int)'新建

Answer 2

Dim connSql As New ADODB.Connection
Dim cmdSql As New ADODB.CommandconnSql.ConnectionString = "连接字符串"
connSql.Open
Set cmdSql.ActiveConnection = connSql
cmdSql.CommandText = "CREATE TABLE[aaa]([学生姓名]Text(20),[年龄]Integer,[成绩]DOUBLE)"
cmdSql.Execute

Answer 3

cmdSql.CommandText = "drop table [aaa]"
cmdSql.Execute

Answer 4

'建表
Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
    cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp.mdb;Persist Security Info=False"
    cn.Open
    cn.Execute "CREATE TABLE [aaa]([学生姓名]Text(20),[年龄]Integer,[成绩]Double)"
    cn.Close
End Sub
'删表
Private Sub Command2_Click()
    Dim cn As New ADODB.Connection
    cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\temp.mdb;Persist Security Info=False"
    cn.Open
    cn.Execute "DROP TABLE [aaa]"
    cn.Close
End Sub

Answer 5

ADOX也可以:'引用Microsoft ADO Extensions for DDL and SecurityDim mycat As New ADOX.Catalog
Dim mytable As New ADOX.TableSub createtable() '创建数据库的表
On Error Resume Next
 mytable.Name = "aaa"
 mytable.Columns.Append "姓名", adVarChar
 mytable.Columns.Append "年龄", adInteger
 mytable.Columns.Append "成绩", adInteger
 mycat.Tables.Append mytable
 Set mytable = Nothing
 Next
 MsgBox "创建 表aaa成功！"
 End SubSub deletetable() '删除表
On Error Resume Next
mycat.Tables.Delete "aaa"
MsgBox "删除 表""aaa""成功！"
End Sub
Private Sub Form_Load()
mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=c:\db1.MDB"
End SubPrivate Sub Form_Unload(Cancel As Integer)
 Set mycat.ActiveConnection = Nothing
End Sub

Answer 6

直接 ACCESS SQL就行,沒這麽麻煩吧

Answer 7

可以直接执行建表的SQL语句。
类似如下：Create Table Tablename
(
ID    VARCHAR (20) NOT NULL,
NAME  VARCHAR (16) NOT NULL,
SEX   CHAR (1) NULL,
AGE   INTEGER NOT NULL,
PRIMARY  KEY (ID)
);＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
学习技巧与源码下载站：
http://j2soft.008.net/

Answer 8

第一,打开VB;
第二,引用ADO组件;
第三,编写代码:
option explicit
public dbcon as new adodb.connection
dbcon.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0";"Data Source"&app.path&";"Persist Security Info=False""
dbcon.open
dbcon.execute("create 表名(列名)")
dbcon.close
删表
public dbcon As New ADODB.Connection
dbcon.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0";"Data Source"&app.path&";"Persist Security Info=False""
    cn.Open
    cn.Execute ("DROP 表名")
    cn.Close