要使用ADO控件,首先当然要添加控件了,在菜单“项目”-“组件”
中选中“Microsoft
ADO
Data
Control
6.0
(SP6)
(OLEDB)”,将其添加到控件面板中,相应的控件文件是:MSADODC.OCX
Dim
sql
sql
=
"相应的操作数据库的sql语句"
With
Adodc1
.ConnectionString
=
"Data
Source=数据库服务IP地址;Initial
Catalog=数据库名称;User
Id=数据库用户名;Password=数据库密码;"
.CommandType
=
adCmdText
.RecordSource
=
sql
.Refresh
end
with
如果你的SQL Server里有张表名和字段与该表一们的表的话,只须修改连接就行了。你写的这个插入同样能插入SQL Server相应的表中,无需改动