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

通过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

6楼hejingyuan610分钟前

学习了，加油

Re: linlin8023061910分钟前

回复hejingyuan6n一起加油~

5楼i_like_cpp11分钟前

我要的，居然在这里找到。

Re: linlin8023061910分钟前

回复i_like_cppn很荣幸，这篇文章对您有帮助

4楼lishehe11分钟前

呵呵，补充一点，加油

Re: linlin8023061911分钟前

回复lishehen一起加油~

3楼han_yankun200923分钟前

支持

Re: linlin8023061914分钟前

回复han_yankun2009n谢谢~

2楼ww555245661453分钟前

围观一下

Re: linlin8023061938分钟前

回复ww5552456614n欢迎~

1楼han_yankun200957分钟前

学习了

Re: linlin8023061953分钟前

回复han_yankun2009n互相学习~