如何用VB复制access数据库里的表，并添加字段

增加字段

alter table docdsp add dspcode char(200)

删除字段

ALTER TABLE table_NAME DROP COLUMN column_NAME

Sql = "ALTER TABLE " & strSheet & " ADD column " & Text1Text & " " & Combo2Text

字段名与字段类型之间要有一个空格

sql = "Insert Into 表名("

If Text1Text <> "" Then sql = sql & "字段1,"

If Text2Text <> "" Then sql = sql & "字段2,"

If Text3Text <> "" Then sql = sql & "字段3)"

sql = sql & ") Values("

If Text1Text <> "" Then sql = sql & Text1Text

If Text2Text <> "" Then sql = sql & Text2Text

If Text3Text <> "" Then sql = sql & Text3Text

sql = sql & ")"

这里，要求字段3为必填，例如使用时间

text是从窗体接收到数据后，才填加到对应的字段中，如果没有接收到某个字段信息的时候，就不添加相应的字段，

另：这是一条插入语句，但是，他也代表更新，删除的语句，其形式都是一样的，

不知道你希望得到那种语句的信息

Private Sub cmdOK_Click()

'定义一个结果集

Dim rs As New ADODBRecordset

'如果结果集的状态为打开，那么就关闭

If (rsState = adStateOpen) Then

rsClose

End If

'打开结果集

'aa是你要插入数据的表，cn是你建立与ACCESS数据库建立的连接

rsOpen "select from tbl_aa ", cn, adOpenDynamic, adLockOptimistic, adCmdText

'新增

rsAddNew

'为所要新增的字段赋值。（rs!姓名）中的“姓名”是数据表中的某个具体字段名

rs!姓名 = Trim(TextBoxtext)

'更新一下

rsUpdate

'关闭结果集

rsClose

End Sub

注： 以上是对新增数据 *** 作最简单有效的方法。

如果你想修改数据：

'定义一个结果集

Dim rs As New ADODBRecordset

'如果结果集的状态为打开，那么就关闭

If (rsState = adStateOpen) Then

rsClose

End If

'打开结果集。 注：此SQL语句查询出来的结果只可以有一条数据。

rsOpen "select from tbl_aa where id = 1 ", cn, adOpenDynamic, adLockOptimistic, adCmdText

'为所要修改的字段赋值。（rs!姓名）中的“姓名”是数据表中的某个具体字段名

rs!姓名 = Trim(TextBoxtext)

'更新一下

rsUpdate

'关闭结果集

rsClose

这样就能完成修改了

希望我的答案能帮到你。

用SQL语句给表增加字段

ALTER TABLE 表名 ADD 列名 VARCHAR(20) NULL

注意只能添加允许为空的字段，添加不为空的会出错

增加默认值为null，属性为varchar,长度为20的字段

ALTER TABLE 表名 ADD 列名 VARCHAR(20) default NULL

删除字段

ALTER TABLE table_NAME DROP COLUMN column_NAME

以上就是关于如何用VB复制access数据库里的表，并添加字段全部的内容，包括:如何用VB复制access数据库里的表，并添加字段、VB 调用ACCESS数据库增加字段时报“字段定义语法错误”为什么 未提出在text1.text& 后，求高手赐教、如何在VB中用SQL语句动态的增加字段.等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！