VB6.0操作SQL Server（二）——資料錄入（增）

通過VB向SQL
Server資料庫中錄入資料，可以使用資料繫結控制項錄入資料與使用SQL語句錄入

1.利用資料繫結控制項錄入資料

使用資料繫結控制項錄入資料可以運行較少的代碼，實現向資料庫中錄入資料，資料繫結後，由於資料繫結控制項已經與資料表相串連，所以只需通過ADO控制項的AddNew方法添加一條新的空白記錄，再通過Update方法儲存當前的記錄，即可完成向資料庫中錄入資料。

例：向資料庫中添加一條記錄

Private Sub cmdAdd_click()      Adodc1.Recordset.AddNewEnd SubPrivate 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.conectionDim rst as ADODB.recordsetPrivate 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=rstEnd SubPrivate sub cmdAdd_click()   cnn.execute"insert into student_info(txtSID,txtName,txtSex;txtBornData,txtRuDate,txtClassNo)" & _      "value('" & txtSID & "','" & txtName & "','" & txtSex & "','" & txtBornDate & "','" & txtRuDate & "','" & txtClassNo & "')"End Sub