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

连接数据库的方法简单说下(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

---