Question

VB连接数据库由access改成SQL server 2000

我原来用Data控件做的聊天软件的消息记录 用access数据库
怎么改成ADO控件的SQL 2000数据库
代码除了连接是的需要改
查询 插入 删除的代码怎么改
求大神指点 我新手
txtchat.SelStart = Len(txtchat.Text)
newstart = Len(txtchat.Text)
txtchat.SelText = y_msg
Data2.UpdateRecord
Data2.Recordset.MoveLast
Data2.Recordset.AddNew
Data2.Recordset.Fields("time") = Now()
Data2.Recordset.Fields("txt") = y_msg
Data2.Recordset.Update
这是原来的插入代码 怎么改成ADO的
Data2.UpdateRecord
Data2.Recordset.MoveLast
Data2.Recordset.AddNew
Data2.Recordset.Fields("time") = Now()
Data2.Recordset.Fields("txt") = txtmessage.Text
Data2.Recordset.Update
上面的错了
这是原来的插入代码
是一个发送按键的插入代码
要是换成SQL该怎么连接 怎么插入

Answer 1

要使用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

Answer 2

如果你的SQL Server里有张表名和字段与该表一们的表的话，只须修改连接就行了。你写的这个插入同样能插入SQL Server相应的表中，无需改动