Question

vb中如何在同一数据库里多表添加字段???

在窗体1中，我用了两个DataGrid 控件显示同一数据库的表1、表2，现在我想分别向表1、表2添加字段，那该如何实现呢??我是新手，希望各位高手写点例子出来指导一下。

Answer 1

连接数据库的方法简单说下(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.0;Data
Source="
&
Path
&
"数据库.mdb;Persist
Security
Info=False;Jet
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