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區塊變數
好奇怪,可是看起來沒什ㄇ錯啊
有人知道ㄇ?...謝謝
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()