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

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

1.利用数据绑定控件录入数据
使用数据绑定控件录入数据可以运行较少的代码，实现向数据库中录入数据，数据绑定后，由于数据绑定控件已经与数据表相连接，所以只需通过ADO控件的AddNew方法添加一条新的空白记录，再通过Update方法保存当前的记录，即可完成向数据库中录入数据。
例：向数据库中添加一条记录
[vb] 
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数据库中添加一条学生信息
[vb] www.2cto.com
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 

作者：linlin80230619