moduledb.bas

手机编程

Attribute VB_Name = "ModuleDb"
Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset
   Dim mycon As ADODB.Connection
   Dim rst As ADODB.Recordset
   Set mycon = New ADODB.Connection
   mycon.ConnectionString = connstring()
   mycon.open
   Dim stokens() As String
   On Error GoTo exectuesql_error
   stokens = Split(sql)
   If InStr("INSERT,DELETE,UPDATE", UCase(stokens(0))) Then
       mycon.Execute sql
   Else
      Set rst = New ADODB.Recordset
      rst.open Trim(sql), mycon, adOpenKeyset, adLockOptimistic
      Set ExecuteSQL = rst
   End If
exectuesql_exit:
    Set rst = Nothing
    Set mycon = Nothing
    Exit Function
exectuesql_error:
    Resume exectuesql_exit
End Function
Public Function selectRecord(strsql As String) As String
   Dim rc As ADODB.Recordset
   Set rc = New ADODB.Recordset
   Set rc = ExecuteSQL(strsql)
   If rc.EOF = False Then
       selectRecord = "ok"
   Else
       selectRecord = "nook"
   End If
   rc.Close
   Exit Function
End Function
Public Function insertRecord(strsql As String)
   Dim rc As ADODB.Recordset
   Set rc = New ADODB.Recordset
   Set rc = ExecuteSQL(strsql)
   Exit Function
End Function
Public Function delRecord(strsql As String)
   Dim rc As ADODB.Recordset
   Set rc = New ADODB.Recordset
   Set rc = ExecuteSQL(strsql)
   Exit Function
End Function
Public Function connstring() As String
'connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/bedroom.mdb"
    connstring = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=cazxsmsHost;DATABASE=cazxsmsdb;USER=cazx;PASSWORD=cazx-1234!;OPTION=3;"
    'connstring = "DRIVER={MySQL Driver};SERVER=jdMyReport;PORT=3306;OPTION=264200;STMT=;DATABASE=jdczdb;UID=jdcz;PWD=jdcz-1234!;"
End Function