4、下面就是二個執行SQL語句的方法，為什么是二個呢？因為VB6不支持多態。ExecuteSQLr方法，此方法返回一個記錄集，比如：select語法。ExecuteSQLn方法，此方法返回一個影響的行數，比如：insert語法，delete語法。這二個方法，先要判斷一下前面的屬性有沒有賦值。接著，我們用ADO的Command對象來操作。'返回受影響的記錄數,Update/Delete/InsertPublic Function ExecuteSQLn() As LongOn Error GoTo errTrapDim MyCon As New Connection '連接對象Dim MyCMD As New Command 'cmd對象MyCon.ConnectionString = DataBaseConnectionString '連接字符串MyCon.CursorLocation = adUseClient '游標MyCon.Open '打開連接MyCMD.ActiveConnection = MyCon 'CMD對象的當前連接MyCMD.CommandType = adCmdText 'CMD對象的命令類型MyCMD.CommandText = SQLString 'CMD對象的具體命令MyCMD.CommandTimeout = 15 'CMD對象的超時時間If Len(XMLParameters) = 0 Then '判斷是否有參數(我這里的參數不是數組,是XML字符串)'無參數ElseDim p() As String, i As LongIf MyXML.XMLString2StringArray(XMLParameters, p) Then 'XML字符串轉換為數組For i = LBound(p) To UBound(p)MyCMD.Parameters(i) = p(i) '給SQL命令中的?賦值,NextEnd IfEnd IfDim N As LongMyCMD.Execute N '執行ExecuteSQLn = N '返回影響的行數errExit:Set MyCMD = Nothing '釋放MyCon.Close '關閉連接Set MyCon = Nothing '釋放XMLParameters = "" '清空參數SQLString = "" '清空命令Exit FunctionerrTrap:ExecuteSQLn = 0'寫錯誤日志WriteLog "文件:cADO" & vbCrLf & _"過程:ExceuteSQLn()" & vbCrLf & _"錯誤號:" & Err.Number & vbCrLf & _"錯誤描述:" & Err.DescriptionErr.ClearResume errExitEnd Function

總結

以上是生活随笔為你收集整理的vb mysql 教程_VB6 数据库 基础 教程的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。