?? module1.bas
字號:
Attribute VB_Name = "Module1"
Public change(8) As String
Public user As String
Public sql As String
Public adocon As New ADODB.Connection
Public adors As New ADODB.Recordset
Public adocom As New ADODB.Command
Public strSQLServer As String 'SQL服務(wù)器地址
Public strSQLUser As String 'SQL用戶名
Public strSQLPW As String 'SQL密碼
Public manager As String '當(dāng)前用戶
Public Type curxiaoshou
pk As String * 10
curnum As String * 10
shoushi As String * 20
zonge As String * 10
renyuan As String * 10
fapiaono As String * 10
ypk As String * 10
beizhu As String * 100
sign As Integer
End Type
Public Sub adoopen()
On Error GoTo err
Dim adostr As String
adostr = "provider=sqloledb;server=" & strSQLServer & ";user id=" & strSQLUser & ";password=" & strSQLPW & ";Initial Catalog=yiyaoguanli"
adocon.ConnectionString = adostr
adocon.Open
Exit Sub
err:
MsgBox "錯誤1: " & err.Number & ": " & err.Description & " in: " & err.Source & vbCrLf & vbCrLf, vbCritical
Call adoclose
End Sub
Public Sub rs(ByVal sql As String)
On Error GoTo err
adors.Open sql, adocon, adOpenDynamic, adLockOptimistic
Exit Sub
err:
MsgBox "錯誤2: " & err.Number & ": " & err.Description & " in: " & err.Source & vbCrLf & vbCrLf, vbCritical
Call adoclose
End Sub
Public Sub adoclose()
On Error Resume Next
adors.Close
Set adors = Nothing
adocon.Close
Set adocon = Nothing
End Sub
'連接SQL Server 2000服務(wù)器
Public Function sqlConnect(ByVal cnThis As ADODB.Connection, ByVal strServer As String, ByVal strUser As String, ByVal strPass As String)
Dim strSQL As String
'生成連接字符串
strSQL = "provider=sqloledb;server=" & strServer & ";user id=" & strUser & ";password=" & strPass
cnThis.Open strSQL
End Function
Public Sub comadd(ByVal sqlstr As String, ByVal ziduan As String, ByVal comb As ComboBox)
comb.Clear
Call adoopen
Call rs(sqlstr)
If Not adors.EOF Then
While Not adors.EOF
comb.AddItem Trim$(adors.Fields(ziduan))
adors.MoveNext
Wend
End If
Call adoclose
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -