visual basic access 新增空表 字段
2015-12-21 10:55
274 查看
方法1:
方法2:
如何复制数据表:
如果仅仅是复制数据表结构,则仅仅:
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"
相关文章推荐
- VBox安装CtenOS6.5
- vb编程学习之路之基础与概念总结
- VS2010中VB.NET中API函数的调用
- VB.NET Declare语句
- VBS提取word中的附件
- 视频图像传输与显示(3)——复合视频信号CVBS解析
- VB.NET中的类和模块
- VBA中的函数Timer用法
- 用VBA计算两个日期之间的工作日(去掉周末两天)
- VBA记录当前系统时间并精确到毫秒
- vba中text的问题和VBA自动调用的问题
- 谈下自己的性格,谈下vbs的一些代码
- VBA实现数组Array与集合Collection互换
- VBA如何判断一个对象是否为空
- VBA中dim,static和public,private的区别
- VBA中Dictionary对象使用小结
- excel VBA 字典与集合(Dictionary与Collection)
- VBA中集合collection方法的基础知识
- VB中ByVal与ByRef有什么区别
- vba excel 的宏