VB6.0

最新推荐文章于 2024-07-17 22:31:28 发布

wensibo

最新推荐文章于 2024-07-17 22:31:28 发布

阅读量708

点赞数

分类专栏： Other 文章标签： vb string function sql database

本文链接：https://blog.csdn.net/wensibo/article/details/7336447

版权

Other 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

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 "Á¬½ÓÊý¾Ý¿âÊ§°Ü£¡ÇëÖØÐÂÁ¬½Ó"
        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 = "²Ù×÷Ö´ÐÐ³É¹¦£¡"
        End If
        ExecuteSQL = ""
        Exit Function
ErrorHandle:
        msg = "Ö´ÐÐ´íÎó£º" & 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 = "²éÑ¯µ½" & rs.RecordCount & " Ìõ¼ÇÂ¼!"
        End If
    Else
        msg = "SQLÓï¾äÓÐÓï:" & SQL
    End If
ErrorHandle:
    msg = "²éÑ¯´íÎó£º" & 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), Conn, adOpenDynamic, adLockBatchOptimistic
            Set SelectSQL = rs
            msg = "²éÑ¯µ½" & rs.RecordCount & " Ìõ¼ÇÂ¼!"
        End If
    Else
        msg = "SQLÓï¾äÓÐÓï:" & SQL
    End If
ErrorHandle:
    msg = "²éÑ¯´íÎó£º" & Err.Description
    Err.Description
    Set rs = Nothing
    Set Conn = Noting
    Exit Function
End Function