vb mysql 教程_VB6 数据库 基础 教程

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