Option Explicit
Public gConnStr As String
Public Sub ChangeFromPos(frmMain As MDIForm, frm As Form)
Dim Top As Integer
Top = (frmMain.ScaleHeight - frm.Height) / 2 - 600
If Top > 0 Then
frm.Top = Top
Else
frm.Top = 0
End If
frm.Left = (frmMain.ScaleHeight - frm.Width) / 2
End Sub
Public Sub Main()
gConnStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=wms;Data Source=418-70"
frmLogin.Show
End Sub
Public Function ExeSQL(ByVal sql As String) As ADODB.Recordset
On Error GoTo ErrHandler:
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strArray() As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
strArray = Split(sql)
cn.Open gConnStr
If StrComp(UCase(strArray(0)), "select", vbTextCompare) = 0 Then
rs.Open Trim(sql), cn, adOpenForwardOnly.adLockOptimistic
Set ExeSQL = rs
Else
cn.Execute sql
End If
ExeSQl_Exit:
Set rs = Nothing
Set cn = Nothing
Exit Function
ErrHandler:
顯示錯誤資訊
MsgBox "錯誤號:" & Err.Number & "錯誤資訊;" & Err.Description, vbExclamation
Resume ExeSQl_Exit
End Function
顯示Public Sub Main()變數未定義，求解
uj5u.com熱心網友回復：
偶遇到類似問題都是用“每次用‘注釋掉不同部分再重新編譯，直到定位到具體語法出錯的位置。”
的方法解決的。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/93900.html
標籤：VB基礎類