Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub CmdExce_Click()
Dim mySQL As String
mySQL = "SELECT * FROM building " _
& "WHERE Name = '" & txtkey.Text & "'"
rs.Open mySQL, cn, adOpenStatic <--------------
Set DataGrid1.DataSource = rs
End Sub
..................
我執行這段程式的時候
在箭頭標示的地方,出現錯誤
說:沒有設定物件變數或With區塊變數
好奇怪,可是看起來沒什ㄇ錯啊
有人知道ㄇ?...謝謝
Private rs As ADODB.Recordset
Private Sub CmdExce_Click()
Dim mySQL As String
mySQL = "SELECT * FROM building " _
& "WHERE Name = '" & txtkey.Text & "'"
rs.Open mySQL, cn, adOpenStatic <--------------
Set DataGrid1.DataSource = rs
End Sub
..................
我執行這段程式的時候
在箭頭標示的地方,出現錯誤
說:沒有設定物件變數或With區塊變數
好奇怪,可是看起來沒什ㄇ錯啊
有人知道ㄇ?...謝謝
全站熱搜
留言列表