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

phoenix0070 2005-09-28 10:05:32

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

...全文

861 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

Talent_hu 2005-12-18

打赏
举报

第一,打开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

射天狼 2005-11-13

打赏
举报

可以直接执行建表的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/

xtuwz 2005-11-04

打赏
举报

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

northwolves 2005-10-17

打赏
举报

ADOX也可以:

'引用Microsoft ADO Extensions for DDL and Security

Dim mycat As New ADOX.Catalog
Dim mytable As New ADOX.Table

Sub 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 Sub

Sub 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 Sub

Private Sub Form_Unload(Cancel As Integer)
Set mycat.ActiveConnection = Nothing
End Sub

faysky2 2005-10-17

打赏
举报

'建表
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

baierye 2005-10-14

打赏
举报

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

baierye 2005-10-14

打赏
举报

Dim connSql As New ADODB.Connection
Dim cmdSql As New ADODB.Command

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

fishmans 2005-09-28