我照著書上執行一範例程式無誤，但是我把它截錄下來用
它卻說我這一行--＞ cn.CoursorLocation = adUseClient
有446號錯誤：物件不支援指名引數。
它的這一章節是使用 Recordset 物件的 Open 方法
來執行選取查詢的方法
但是我已經有宣告Private cn As ADODB.Connection
Private rs As ADODB.Recordset 了
可是還出現一樣的錯誤
一直搞不懂.........
它卻說我這一行--＞ cn.CoursorLocation = adUseClient
有446號錯誤：物件不支援指名引數。
它的這一章節是使用 Recordset 物件的 Open 方法
來執行選取查詢的方法
但是我已經有宣告Private cn As ADODB.Connection
Private rs As ADODB.Recordset 了
可是還出現一樣的錯誤
一直搞不懂.........
文章標籤
全站熱搜
記得這個問題你好像問第二次了.... 先把完整的程式碼放上來比較清楚...
嗯嗯.. Private cn As ADODB.Connection Private rs As ADODB.Recordset Private cn As New ADODB.Connection Private rs As New ADODB.Recordset Private Sub Form_Load() CombTable = "building" CombField.Clear For i = 0 To Adodc1.Recordset.Fields.Count - 1 CombField.AddItem Adodc1.Recordset.Fields(i).Name Next Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=C:\Program Files\Microsoft Visual Studio\VB98\TEST1.mdb" cn.CoursorLocation = adUseClient cn.Open End Sub Private Sub CombTable_Click() Adodc1.RecordSource = CombTable.Text Adodc1.Refresh CombField.Clear For i = 0 To Adodc1.Recordset.Fields.Count - 1 CombField.AddItem Adodc1.Recordset.Fields(i).Name Next End Sub Private Sub CmdExec_Click() Dim mySQL As String mySQL = "txtSQL.Text" Set rs = New ADODB.Recordset rs.Open mySQL, cn, adOpenStatic Set DataGrid1.DataSource = rs End Sub
是貼錯嗎？？還是程式就是這樣？？ Private cn As ADODB.Connection Private rs As ADODB.Recordset Private cn As New ADODB.Connection Private rs As New ADODB.Recordset
唉呀..對不起 那是我自己改的 我發現問題出在哪ㄋ 謝謝..