vb连mssql的问题，急！！！！！！！

Question

今日写了一个程序，我能连上mssql，能查询，但不能用rdors.addnew 添加数锯，请问那些地方我要改，vb中模块怎么样写，sql中怎么设置。谢谢各位高手，解决问题一定在加分！
环境是vb6.0 and mssql2000，不用odbc连接，直接连到mssql2000上

Answer 1

objAdoRecs.Open strsql, objAdoConn, 1, 1

Answer 2

用ADO连接吧，直接设置连接字符串就可以连接到数据库，不需要odbc，直接利用ado执行查询语句就可以对数据库进行操作给你一个连接字符串的实际用例：Provider=SQLOLEDB.1;Password=pass;Persist Security Info=True;User ID=test;Initial Catalog=public;Data Source=COMM;Extended Properties="Network=DBMSSOCN;Address=10.168.188.100";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=FANGHONG;Use Encryption for Data=False;Tag with column collation when possible=False这个连接字符串中的一些元素可以根据客户设定动态拼装形成，比如说IP啊、用户阿、密码啊之类的东西

Answer 3

rs.Open "userTable", db, adOpenDynamic, adLockOptimistic'后面要带参数
rs.AddNew

Answer 4

'插入数据：conn.execute "insert into tablename(...) values(...)"
'修改数据：conn.execute "update tablensemt set ... where ..."
'删除数据：conn.execute "delete from tablename where .."
'删除一个表的所有数据：conn.execute "truncate table tablename"

Answer 5

你把记录集打开的时候指定CursorType 和LockType
rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic

Answer 6

'工程--->引用--->Microsoft ActiveX Data Object 2.5（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=xxx;"    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees where Age>20 ", CN, adOpenDynamic, adLockOptimistic
    Rs.addnew
    Rs.Fields("col1")="asfds";
    Rs.Update

Answer 7

最好是直接执行sql语句：CN.execute "insert into tablename(...) values(...)"

Answer 8

    Dim CN   As New ADODB.Connection                '定义数据库的连接
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=xxx;"    CN.Open
    '插入数据：
CN.execute "insert into tablename(...) values(...)"'修改数据：
CN.execute "update tablensemt set ... where ..."'删除数据：
CN.execute "delete from tablename where .."CN.close
set CN = nothing