数据载入中，请稍等...
http://blog.gz-auto.com/
数据载入中，请稍等...
博客公告
数据载入中，请稍等...
时间记忆
数据载入中，请稍等...
博客登陆
数据载入中，请稍等...
最新日志
数据载入中，请稍等...
最新评论
数据载入中，请稍等...
最新留言
数据载入中，请稍等...
博客相册
博客好友
数据载入中，请稍等...
友情连接
博客统计
数据载入中，请稍等...
VB对Access建表删表操作 | 2007-8-25 21:21:00
参考：
建表
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
建表
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
- 上一篇：VB判断Access一個表是否存在的方法
- 下一篇：SIMATIC T-CPU
CREATE TABLE datatype(aa binary,
bb bit,
cc smallint,
dd AUTOINCREMENT(2,4),
ee money,
ff datetime,
gg guid,
hh single default 50,
ii double,
jj smallint,
kk long,
ll image,
mm memo,
nn text(100),
oo yesno not null,
pp TINYINT
)
dd AUTOINCREMENT(2,4) 就是建立一个自动编号，初始为 2，步进为 4 的自动编号。自增加还有一种 dd autoincrement guid
超音速工作室 版权所有
