| Hallo,
ich versuche ein Access FE für eine DB auf MSSQL2005 hinzubekommen.
Ich möchte mit ADO Recordsets arbeiten und nicht mit verknüpften Tabellen.
Der unten stehende Code funktioniert eigentlich.
- Anmeldung klappt
- Daten ausgeben klappt auch
Bei der Bindung des Formulars an das ADO Recordset stürzt Access schlichtweg ab.
Achso: Access 2007 32bit auf Windows 7 64bit und SQL 2005 Express Edition
Schon mal vielen Dank, ich komme da überhaupt nicht weiter.
Private Sub Form_Open(Cancel As Integer)
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs2 As DAO.Recordset
Dim strConnection As String
Dim i As Integer
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Access.OLEDB.10.0"
.Properties("Data Provider").Value = "SQLOLEDB"
'.Provider = "SQLNCLI.1"
'.Properties("Data Provider").Value = "SQLOLEDB"
.Properties("Data Source").Value = "ALEX\SQLEXPRESS"
.Properties("User ID").Value = "sa"
.Properties("Password").Value = "sa"
.Properties("Initial Catalog").Value = "testaccess"
.Open
End With
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient 'Access stürzt ab
'rs.CursorLocation = adUseServer 'Access meldet keine Recordset Eigenschaft
rs.Open "dbo.v_Article", cn, adOpenDynamic, adLockOptimistic
i = 0
rs.MoveFirst
Do While Not rs.EOF
Debug.Print i & "-" & rs(0) & ";" & rs(1) & ";" & rs(2) & ";" & rs(3) & Chr(13) & Chr(10)
rs.MoveNext
i = i + 1
Loop
' rs.MoveFirst
' MsgBox rs.RecordCount
'Das hier klappt
'Set rs2 = CurrentDb().OpenRecordset("Artikel", dbOpenDynaset)
'Set Me.Recordset = rs2
'Das hier nicht -> Absturz
Set Me.Recordset = rs
Set rs = Nothing
Set cn = Nothing
End Sub |
