VB数据库添加字段

Private Sub Command1_Click()

Dim TabExit As Boolean

TabExit = False

Dim cn As New ADODB.Connection

cn.CursorLocation = adUseClient

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\db1.mdbMode=ReadWritePersist Security Info=FalseJet OLEDB:Database Password=123456"

'cn.Execute "ALTER TABLE 库存表 ADD COLUMN 生产厂家 CHAR(20)"

'cn.Execute "ALTER TABLE 库存表 ADD COLUMN 生产日期 DATETIME"

'cn.Execute "ALTER TABLE 库存表 ADD COLUMN 库存上限 Single"

cn.Execute "ALTER TABLE 库存表 ADD COLUMN ID COUNTER"

cn.Close

Set cn = Nothing

End Sub

两种办法，一种是 用SQL，另一种是ADO

1、用SQL添加数据：

insert into 表名（字段1，字段2，字段3）

values（值01，值02，值03）

例如：

docmd.runsql"insert into EmpTable(Name,age,Duty,Salary) values('王明',35,'外贸总监',12500)"

2、用ADO的办法：

ADO比较复杂，给你一个完整的例子吧：

Dim strSqlfitjc As String

strSqlfitjc = "select * from *表"

Set RSfitjc = New ADODB.Recordset ‘定义一个ADO连接，连进数据库

RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic ’打开连接

RSfitjc.addnew'添加一个纪录

RSfitjc.Fields("配件编号") = “style” ‘给每个字段赋值

.Update’储存赋值的新纪录

.Close 关闭连接

End With

连接数据库的方法简单说下(ACCESS)

Dim

cn

As

New

ADODB.Connection

If

Right(App.Path,

1)

=

"\"

Then

Path

=

App.Path

Else

Path

=

App.Path

&

"\"

End

If

cnStr

=

"Provider=Microsoft.Jet.OLEDB.4.0Data

Source="

&

Path

&

"数据库.mdbPersist

Security

Info=FalseJet

OLEDB:Database

Password=数据库密码"

cn.ConnectionString

=

cnStr

cn.Open

连接好数据库后

建立多个数据集实现对多个表的 *** 作

dim

rs1

As

New

ADODB.Recordset

rs1.Open

"select

*

from

表名1"

,

cn,

adOpenKeyset,

adLockOptimistic

'如将TEXT1的值给“表名1”的第一个字段

rs1(0)=text1'在数据库的字段中，是从“0”开始编号的

'下面是将TEXT2的值给“表2”的第一个字段

dim

rs2

As

New

ADODB.Recordset

rs2.Open

"select

*

from

表名2"

,

cn,

adOpenKeyset,

adLockOptimistic

rs2(0)=text2

'最后别忘了更新数据库和关闭数据集

rs1.update

rs2.update

rs1.close

rs2.close

---