Ich versuche mit nachfolgendem Code in VBA Access 2007 einen ADO
Recordset in einem Formular anzuzeigen. Der Recordset wird korrekt
von einer ODBC Datenquelle abgerufen, einzelne Felder können mit
debug.print ausgegeben werden. Das Formular zeigt die korrekte Anzahl
der abgerufenen Daten in der Fusszeile an, die Daten selber werden
aber nicht angezeigt. Was mach ich falsch?
Hier der Code:
Private Sub Form_Open(Cancel As Integer)
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
theUserId = User
thePassword = Pw
strConnection = „driver={Teradata};DBCNAME=“ & Database & „;UID=“ &
theUserId & „
WD=“ & thePassword & „;“
'MsgBox strSQL
'***Create a new ADO Connection object
Set conn = New ADODB.Connection
With conn
.Provider = „MSDASQL“
.ConnectionString = strConnection
'.Properties(„Data Source“).Value = strConnection
.CommandTimeout = 5600
.Open
End With
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = conn
.Source = strSQL
.LockType = adLockOptimistic
'.CursorType = adOpenKeyset
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open
.MoveFirst
End With
Set Me.Recordset = rs
Debug.Print rs.Fields(0), rs.Fields(1), rs.Fields(2)
Set rs = Nothing
Set conn = Nothing
End Sub
Freue mich über jeden Hinweis und bedanke ich schon jetzt…
Alli