【文章內(nèi)容簡介】
量使用,因而新增了模塊Module1,自定義了SqlConnect函數(shù)作為連接,SqlDisConnect函數(shù)來斷開連接,方便編寫程序,提高代碼使用率,提高開發(fā)效率和運行效率。連接數(shù)據(jù)庫核心語句:Set Ado_Conn = New Set Ado_RS = New str_CS = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=ManageSystemstr_RS = SQL查詢語句SqlConnect Ado_Conn, Ado_RS, str_CS, str_RS其中模塊中定義了SqlConnect函數(shù): Public Sub SqlConnect(ByVal Ado_Connection As , _ ByVal Ado_Recordset As , _ Ado_ConnectionString As String, _ Ado_RecordSource As String) = Ado_ConnectionString = 30 Ado_RecordSource, Ado_ConnectionEnd Sub斷開數(shù)據(jù)庫核心語句:SqlDisConnect Ado_RS其中模塊中定義了SqlDisConnect函數(shù):Public Sub SqlDisConnect(ByVal AdoRecordset As ) If Then End Sub 數(shù)據(jù)的查詢: ⑴ 利用表格方式對SQL數(shù)據(jù)進行查詢:利用連接數(shù)據(jù)庫的方法,返回一個RecordSet集合。通過MSHFlexGrid控件、DataGrid控件等控件對集合作表格方式的輸出。使用Adodc控件時,可以通過屬性的設定,把MSHFlexGrid控件、DataGrid1控件捆綁在Adodc控件上。對用Adodc控件捆綁當使用ADODB對象時, 進行賦ADODB對象的Recordset值。但是DataGrid1則不能。⑵ 利用字符竄方式對SQL數(shù)據(jù)進行查詢利用連接數(shù)據(jù)庫的方法,返回一個RecordSet集合。通過對RecordSet集合的提取,把元組中的屬性值賦給TextBox等控件控件,讓其輸出。核心代碼: 工號=39。1234 = (工號).Value = (姓名).Value . . .⑶ 對查詢所得到的集合作出判空:方法有多種:(設Ado_RS為Recordset)A、利用EOF和BOF兩個屬性進行判斷: If = False And = False The