VB6.0操作SQL Server(四)——資料修改(改)

來源:互聯網
上載者:User

在前面的部落格中,我們已經學習過了一些VB操作SQL Server的簡單方法,如下:

VB操作SQL Server(一)——如何串連資料庫

VB操作SQL Server(二)——資料錄入(增)

VB操作SQL Server(三)——資料刪除(刪)


今天,我們繼續來完善知識網,學習資料修改:
在VB中修改資料,不僅僅可以採用執行SQL語句實現,也可以通過資料繫結控制項進行資料的修改。資料繫結控制項進行資料的修改採用的代碼較少,特別是一些表格類資料繫結控制項,不需要代碼即可對資料進行修改,如DataGrid控制項。


1. 使用 Update 語句修改資料Update語句通過ADO對象的Execute方法執行,達到對資料表中的資料進行修改,文法如下:
Cnn.Execute"Update資料表名稱 set欄位1=運算式1,欄位2=運算式2……where子句"

在Update語句中可以使用where子句,還有合格資料可執行修改操作,如果使用where指定條件,則Update語句會修改表中的全部資料

通常都是在批量更改時採用該語句,這種方法要比ADO的Update方法逐條地修改資料方便,但VB中一些表格控制項可以不需要代碼而直觀實現資料的批量修改



2. 表格式資料繫結控制項修改資料在VB中採用表格式資料綁定修改控制項修改資料,基本上不需要代碼,只需要設定表格式資料繫結控制項的一些屬性即可實現,例如DataGrid控制項,將其綁定到相應的資料來源上,再設定其AllowUpdate屬性為True,即可實現表格中修改的資料及時更新到資料庫中
該屬性可返回或設定一個值,指示使用者能否修改DataGrid控制項中的資料,文法:
DataGrid.AllowUpdate=布林運算式

:使用DataGrid控制項修改資料

Private Sub Form_Load()   '設定連接字串   Adodc1.ConnectionString="Provider=SQLOLEDB;Persist Security Info=True;User ID=sa;Initial Catalog=student;Data Source=."   '設定資料來源   Adodc1.CommandType=adcmdText   Adodc1.RecordSource="select * from student_Info order by student_ID"   '為DataGrid控制項綁定資料來源   Set DataGrid1.DataSouce=Adodc1   '允許DataGrid1控制項更新表中的資料   DataGrid1.AllowUpdate=TrueEnd Sub


3. 使用文本資料繫結控制項修改資料

與DataGrid控制項不同,文本類控制項綁定資料後在修改資料時,由於所修改的資料只是寫入在緩衝當中,所以需要通過ADO的Update方法提交修改,另外,ADO還提供CancelUpdate方法,用此方法來撤銷在使用Update方法前對資料所作的修改,在程式中使用CancelUpdate方法的代碼如下:Adodc1.Recordset.CancelUpdate


:使用文本控制項綁定資料並進行修改資料

'設定連接字串與資料來源,並綁定資料來源Private Sub Form_Load()  Adodc1.ConnectiongString="Provider=SQLOLEDB;Persist Security Info=True;User ID=sa;Initial Catalog=student;Data Source=."  Adodc1.RecordSource="select * from Course_Info"  Set Text1.DataSource=Adodc1  Text1.DataField="課程名稱"End Sub'提交儲存資料Private Sub Commad1_Click()  Adodc1.Recordset.Update  MsgBox"儲存成功!",vbOKOnly,"提示"End Sub '撤銷資料修改Private Sub Command2_Click()  Adodc1.Recordset.CancelUpdateEnd Sub

在實踐中熟練地掌握這些基本操作,讓代碼更易懂,讓程式更靈活。



未完待續……




聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.