跪求高手：解决写入数据库问题

Question

我以前是写ＡＳＰ的，现在开始学ＶＢ，一个基本的问题就把我难倒了，帮忙啊啊！帮看看这个代码：'添加数据
Private Sub cmdinput_Click(Index As Integer)
    sailing_cn
     Set rs = New ADODB.Recordset
       Dim sqlstr As String
         sqlstr = "select * from t_user"
            rs.Open sqlstr, cn, 1, 3
            rs.Fields(1) = txtname.Text
            rs.Fields(2) = txtoicq.Text
            rs.Fields(3) = txtemail.Text
            rs.Fields(4) = txttel.Text
            rs.Update
            
            
            MsgBox "添加数据成功！"
            End Sub

Answer 1

你没有连接数据库！没有到ADO Collection 对象！这样是不行的。

Answer 2

添加新记录：            rs.Open sqlstr, cn, 1, 3
            rs.AddNew  '你缺少这句  <--------------------------------
            rs.Fields(1) = txtname.Text
            rs.Fields(2) = txtoicq.Text
            rs.Fields(3) = txtemail.Text
            rs.Fields(4) = txttel.Text
            rs.Update

Answer 3

ADO Collection这个是什么啊，具体怎么用啊，谁能给个添加到数据库的例子啊

Answer 4

'操作SQL Server的例子dim cn as ADODB.Connection
dim rs as ADODB.RecordSet
dim strSQL as String set cn=New ADODB.Connection
strSQL="driver={SQL Server};server=localhost;uid=sa;database=YourDataSource"
cn.Open strSQL'添加记录
rs.Open "YourTableName",cn,3,3
 rs.AddNew  
 rs.Fields(1) = txtname.Text
 rs.Fields(2) = txtoicq.Text
 rs.Fields(3) = txtemail.Text
 rs.Fields(4) = txttel.Text
 rs.Update
 rs.CloseSet rs=Nothing