首頁猿問為什么提示vb...

為什么提示vb 實時錯誤‘91’對象變量或 With 塊變量沒有設置？

MySQL 數(shù)據(jù)庫

忽然笑 2023-04-20 19:15:10

Public Function viewData(ByVal txtSQL As String, dataGridAll As DataGrid) As IntegerDim rstData As ADODB.RecordsetDim result As String'檢索需要的信息result = ExecuteSQL(txtSQL, rstData, False)'設置datagrid的數(shù)據(jù)源If rstData.RecordCount <> 0 ThenSet dataGridAll.DataSource = rstDataviewData = rstData.RecordCountElseMsgBox "還沒有數(shù)據(jù)！", vbOKOnly + vbExclamation, "警告"viewData = 0End IfEnd Function數(shù)據(jù)庫采用sql2000'函數(shù)名：ExecuteSQL'說明：執(zhí)行SQL語句'參數(shù)：SQL As String, rst As ADODB.Recordset, Optional enableWrite As Boolean'返回值：SQL語句執(zhí)行成功——true，失敗——false' ******************************************************************************Public Function ExecuteSQL(ByVal SQL As String, rst As ADODB.Recordset, _Optional enableWrite As Boolean = True) As BooleanDim con As New ADODB.ConnectionDim sTokens() As StringOn Error GoTo Execute_ErrorsTokens = Split(SQL)Set con = New ADODB.Connectioncon.Open ConnectStringSet rst = New ADODB.RecordsetIf enableWrite Thenrst.Open Trim$(SQL), con, adOpenStatic, adLockOptimisticElserst.Open Trim$(SQL), con, adOpenStatic, adLockReadOnlyEnd IfExecuteSQL = TrueExit FunctionExecute_Error:ExecuteSQL = FalseExit FunctionEnd Function

查看完整描述

1 回答

四季花海

TA貢獻1811條經(jīng)驗獲得超5個贊

ExecuteSQL 這個函數(shù)貼出來，估計是數(shù)據(jù)庫沒鏈接上

Public Function viewData(ByVal txtSQL As String, dataGridAll As DataGrid) As Integer
Dim rstData As ADODB.Recordset
Dim result As String
'檢索需要的信息
result = ExecuteSQL(txtSQL, rstData, False)
if result=true then
'設置datagrid的數(shù)據(jù)源
If rstData.RecordCount <> 0 Then
Set dataGridAll.DataSource = rstData
viewData = rstData.RecordCount
Else
MsgBox "還沒有數(shù)據(jù)！", vbOKOnly + vbExclamation, "警告"
viewData = 0
End If
else
msgbox "數(shù)據(jù)庫鏈接失敗"
end if
End Function