VB操作SQL Server（二）——数据录入（增）

通过VB向SQL Server数据库中录入数据，可以使用数据绑定控件录入数据与使用SQL语句录入

1.利用数据绑定控件录入数据

使用数据绑定控件录入数据可以运行较少的代码，实现向数据库中录入数据，数据绑定后，由于数据绑定控件已经与数据表相连接，所以只需通过ADO控件的AddNew方法添加一条新的空白记录，再通过Update方法保存当前的记录，即可完成向数据库中录入数据。

例：向数据库中添加一条记录

Private Sub cmdAdd_click()
      Adodc1.Recordset.AddNew
End Sub

Private Sub cmdSave_click()
     Dim I as Long
     for I =0 to 6
          Adodc.Recordset.Fields(i).value=Text(i+1).text
     Next I
     Adodc1.Recoedset.Update
     MsgBox"添加信息成功！"
End Sub

2.使用Insert语句录入数据

使用SQL语句录入数据，通过connection对象的execute方法执行SQL语句，语法如下：

connection.execute字符串，记录数，字符串参数

例：向student数据库中添加一条学生信息

Dim cnn as ADODB.conection
Dim rst as ADODB.recordset

Private sub Form_Load()
    set cnn=New ADODB.connection
    set rst=new ADODB.recordset
    cnn.open"provider=SQLOLEDB;Persist security Info=True;User ID=sa;Initial Catalog=student;Data Source=."
    rst.open"select * from student_info",cnn
    set MSHFlexGrid.DataSource=rst
End Sub

Private sub cmdAdd_click()
   cnn.execute"insert into student_info(txtSID,txtName,txtSex;txtBornData,txtRuDate,txtClassNo)" & _
      "value('" & txtSID & "','" & txtName & "','" & txtSex & "','" & txtBornDate & "','" & txtRuDate & "','" & txtClassNo & "')"
End Sub