ADO 레코드 세트를 표시 테이블로 엽니 다.

Question

저는 처음으로 이와 같은 작업을 수행하고 있으며, 유용한 정보를 찾기가 매우 어려워 보입니다.

내가 원하는 작업 : MySQL 데이터베이스에 선택 쿼리를 전달하고 결과를 테이블에 표시하십시오.

나는 지금까지 지금이있어 : 나는 폼에 버튼이 있고 클릭하면 다음이 나는 Rs.Open strSQL, Cn, adOpenDynamic, adLockReadOnly는 ADO 레코드 집합을 반환하고 나는 그것이 VBA를 사용하여 일을 할 수 있다는 것을 알고

Option Compare Database 

Sub RunPassThrough(strSQL As String) 

Dim ConnectionString As String 
Dim Server As String 
Dim User As String 
Dim Pwd As String 
Dim DatabaseName As String 
Dim Cn As ADODB.Connection 
Dim Rs As ADODB.Recordset 


' Server Hostname (or IP) 
Server = "192.168.178.10" 

User = "user" 
Pwd = "mypass" 

DatabaseName = "myDB" 

ConnectionString = "Provider=MSDASQL;Driver={MYSQL ODBC 5.1 DRIVER};" & _ 
     "Server=" & Server & ";Database=" & DatabaseName 

Set Cn = New ADODB.Connection 
Cn.CursorLocation = adUseClient 
Cn.Mode = adModeShareDenyNone 
Cn.Open ConnectionString, User, Pwd 

Set Rs = New ADODB.Recordset 


Rs.Open strSQL, Cn, adOpenDynamic, adLockReadOnly 
'Set Rs = Cn.Execute("select * from SurveyResults limit 10;") 





End Sub 

Private Sub Befehl0_Click() 

Dim SQL As String 

SQL = "select * from SurveyResults limit 10;" 

RunPassThrough (SQL) 


End Sub 

를 발생 ,하지만 내가 원하는 것은 그 테이블에있는 사용자에게 설정된 recorod를 표시하는 것입니다.

는 OpenRecordset 같은

뭔가

누군가가 내가 미친거야 올바른 방향으로 날 지점하시기 바랍니다 수 있습니다 (사용자가 볼 수있는 테이블로 "R을") ...

Answer 1

나는 그것을 알아 냈어 . 내 문제는 간단히 ReturnsRecords 속성 기본적으로 false로 설정되어있었습니다.

이제 작동하므로 아무도 필요하지 않으면 답변을 게시하고 있습니다.

Sub RunPassThrough(strSQL As String) 

Dim Server As String 
Dim User As String 
Dim Pwd As String 
Dim DatabaseName As String 
Dim qdfPassThrough As DAO.QueryDef, MyDB As Database 
Dim strConnect As String 


' Server Hostname (or IP) 
Server = "192.168.178.10" 

User = "user" 
Pwd = "mypass" 

DatabaseName = "database" 



For Each qdf In CurrentDb.QueryDefs 
If qdf.Name = "PassQuery" Then 
    CurrentDb.QueryDefs.Delete "PassQuery" 
    Exit For 
End If 
Next 

    strConnect = "ODBC;DRIVER={MYSQL ODBC 5.1 DRIVER};SERVER=" & Server & ";DATABASE=" & DatabaseName & ";Uid=" & User & ";Pwd=" & Pwd & ";" 

    Set MyDB = CurrentDb() 

    Set qdfPassThrough = MyDB.CreateQueryDef("PassQuery") 


    qdfPassThrough.Connect = strConnect 
    qdfPassThrough.SQL = strSQL 
    qdfPassThrough.Close 

    Application.RefreshDatabaseWindow 
    MyDB.QueryDefs("PassQuery").ReturnsRecords = True 

    DoCmd.OpenQuery "PassQuery", acViewNormal, acReadOnly 
    DoCmd.Maximize 


End Sub