Question

vb中，如何在access数据库的表里增加一个字段

Answer 1

Dim
cn
As
ADODB.Connection
Dim
rs
As
ADODB.Recordset
Set
cn
=
New
ADODB.Connection
Set
rs
=
New
ADODB.Recordset
cn.Open
strConn
'strConn是事先定义好的一个数据库连接字符串
rs.Open
"select
*
from
公司资料",
cn,
adOpenStatic,
adLockPessimistic
'公司资料是表的名称
rs.AddNew
'添加新记录命令.
rs("公司名称")
=
Text1.Text
rs("电话")
=
Text2.Text
rs("电话1")
=
Text3.Text
rs("传真")
=
Text4.Text
rs("传真1")
=
Text5.Text
rs("地址")
=
Text6.Text
rs("版本")
=
Text7.Text
rs.Update
'数据库更新
rs.Close
cn.Close
MsgBox
"添加新记录完成!",
vbInformation,
"系统提示"