?? module1.bas
字號:
Attribute VB_Name = "Module1"
Option Explicit
Public username As String
Public ole_db As String
Public cn As ADODB.Connection
Public cmd As ADODB.Command
Public rs As ADODB.Recordset
Public loginsucceeded As Boolean
Public Sub link()
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.ConnectionString = " Provider=MSDASQL.1;Persist Security Info=False;User ID=administator;Extended Properties=DSN=graduate;APP=Visual Basic;WSID=DOU-00EF3663BF0;DATABASE=graduate;Trusted_Connection=Yes;Initial Catalog=graduate"
cn.Open
rs.ActiveConnection = cn
rs.Open "use graduate"
End Sub
'Public Function testtxt(txt As String) As Boolean
' If Trim(txt) = "" Then
' testtxt = True
' Else
' testtxt = False
' End If
'End Function
Public Function ExecuteSql(ByVal SQL As String, MsgString As String) As ADODB.Recordset
'傳遞參數(shù):SQL傳遞查詢語句,msgstring傳遞查詢信息
'自身以一個數(shù)據(jù)集對象的形式返回
Dim con As ADODB.Connection
'定義連接
Dim rs As ADODB.Recordset
'定義字符數(shù)組來存放SQL關(guān)鍵字
Dim sTokens() As String
'異常處理
On Error GoTo ExecuteSql_Error
'用split函數(shù)產(chǎn)生一個包括各個子串的數(shù)組
sTokens = Split(SQL, " ")
'創(chuàng)建連接
Set con = New ADODB.Connection
'選擇打開連接的引擎
con.ConnectionString = " Provider=MSDASQL.1;Persist Security Info=False;User ID=administator;Extended Properties=DSN=graduate;APP=Visual Basic;WSID=DOU-00EF3663BF0;DATABASE=graduate;Trusted_Connection=Yes;Initial Catalog=graduate"
'判斷字符串中是否含有指定內(nèi)容
con.ConnectionTimeout = 30
con.Open
If InStr("insert,delete,update", LCase$(sTokens(0))) Then
'執(zhí)行查詢語句
con.Execute SQL
'返回查詢信息
MsgString = sTokens(0) & "query successful"
Else
'創(chuàng)建查詢對象
Set rs = New ADODB.Recordset
'返回查詢結(jié)果
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), con, adOpenKeyset, adLockOptimistic
'rs.movelast ' get recordcount
'返回記錄集對象
Set ExecuteSql = rs ' 將記錄集傳遞給
MsgString = "查詢到" & rs.RecordCount & "條記錄"
End If
ExecuteSql_exit:
'rs及con對象的close在調(diào)用函數(shù)的程序中關(guān)閉
'清空數(shù)據(jù)集對象
Set rs = Nothing
'中斷連接
Set con = Nothing
Exit Function
'錯誤類型判斷
ExecuteSql_Error:
MsgString = "查詢錯誤:" & Err.Description
MsgBox MsgString, vbOKOnly + vbExclamation, "警告"
Resume ExecuteSql_exit
End Function
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -