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的數據源If rstData.RecordCount <> 0 ThenSet dataGridAll.DataSource = rstDataviewData = rstData.RecordCountElseMsgBox "還沒有數據！", vbOKOnly + vbExclamation, "警告"viewData = 0End IfEnd Function數據庫采用sql2000'函數名：ExecuteSQL'說 明：執行SQL語句'參 數：SQL As String, rst As ADODB.Recordset, Optional enableWrite As Boolean'返回值：SQL語句執行成功——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條經驗 獲得超5個贊
ExecuteSQL 這個函數貼出來，估計是數據庫沒鏈接上
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的數據源
If rstData.RecordCount <> 0 Then
Set dataGridAll.DataSource = rstData
viewData = rstData.RecordCount
Else
MsgBox "還沒有數據！", vbOKOnly + vbExclamation, "警告"
viewData = 0
End If
else
msgbox "數據庫鏈接失敗"
end if
End Function
添加回答
舉報
0/150
提交
取消