|
Public Function GetConnStr() As String
Dim ConnString As String
ConnString = "Provider = SQLOLEDB.1;Database=IHURALibrary;server=.;uid=Lindy;pwd=sa!12345;"
GetConnStr = ConnString
End Function
Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean
Set Conn = New ADODB.Connection
On Error GoTo ErrorHandle
Conn.Open GetConnStr
OpenConn = True
Exit Function
ErrorHandle:
MsgBox "á??óêy?Y?a꧰ü￡?????D?á??ó"
OpenConn = False
Exit Function
End Function
Public Function ExecuteSQL(ByVal SQL As String,ByRef msg As String) As String
Dim Conn As ADODB.Connection
On Error GoTo ErrorHandle
If OpenConn(Conn) Then
Conn.Execute SQL
msg = "2ù×÷?′DD3é1|￡?"
End If
ExecuteSQL = ""
Exit Function
ErrorHandle:
msg = "?′DD′í?ó￡o" & Err.Description
ExecuteSQL = ""
Set Conn = Nothing
Exit Function
End Function
Public Function SelectSQL(ByVal SQL As String,ByRef msg As String) As ADODB.Recordset
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ErrorHandle
sTokens = Split(SQL)
If InStr("SELECT",UCase((sTokens(0)))) Then
If OpenConn(Conn) Then
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL),Conn,adOpenDynamic,adLockOptimistic
Set SelectSQL = rs
msg = "2é?ˉμ?" & rs.RecordCount & " ì?????!"
End If
Else
msg = "SQLó???óDó?:" & SQL
End If
ErrorHandle:
msg = "2é?ˉ′í?ó￡o" & Err.Description
Set rs = Nothing
Set Conn = Nothing
Exit Function
End Function
Public Function BatchSelectSQL(ByVal SQL As String,ByRef msg As String) As ADODB.Recordset Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Dim sTokens() As String On Error GoTo ErrorHandle sTokens = Split(SQL) If InStr("SELECT",UCase((sTokens(0)))) Then If OpenConn(Conn) Then Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open Trim$(SQL),adLockBatchOptimistic Set SelectSQL = rs msg = "2é?ˉμ?" & rs.RecordCount & " ì?????!" End If Else msg = "SQLó???óDó?:" & SQL End If ErrorHandle: msg = "2é?ˉ′í?ó￡o" & Err.Description Err.Description Set rs = Nothing Set Conn = Noting Exit Function End Function （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
