ADO Startproblem

[mace]

Hallo,

mache gerade meine erste Erfahrungen mit ADO in Access (VBA). Kann mir jemand sagen warum folgender Programmcode als Fehler "Ein Objekt, das dem angefordeten Namen oder Ordinalverweis entspricht, kann nicht gefunden werden" zurückgibt.

Möchte das Recordset rsArtikel an das Formular F_ST_ARTIKEL_AUSWAHL binden.

Dim strConnection As String

Dim DB As ADODB.Connection

strConnection = "Provider=MSDASQL.1; " & _

"Driver={MySQL ODBC 3.51 Driver}; " & _

"Server=mysql-server; " & _

"Port=3306; " & _

"Database=sim; " & _

"UID=test; " & _

"PWD=test; "

Set DB = New ADODB.Connection

With DB

Call .Open(strConnection)

End With

Dim rsARTIKEL As ADODB.Recordset

Set rsARTIKEL = New ADODB.Recordset

rsARTIKEL.Open "select * from t_st_artikel", DB, adOpenDynamic, adLockOptimistic

Set Form_F_ST_ARTIKEL_AUSWAHL.Recordset = rsARTIKEL

Die Connection ist ok, und die Open-Methode auch erst beim Recordset zuweisen kracht es.

Und noch eine Frage, kann man DAO und ADO zusammen in einer Datenbank, bzw. Projekt nutzen oder nur jeweils eins der beiden?

[Amstelchen]

Die Connection ist ok, und die Open-Methode auch erst beim Recordset zuweisen kracht es.

Form_F_ST_ARTIKEL_AUSWAHL.Recordset

also connection geht hier auch, aber was ist das, ein control im formular oder so? *ned check*

Und noch eine Frage, kann man DAO und ADO zusammen in einer Datenbank, bzw. Projekt nutzen oder nur jeweils eins der beiden?

ja. einfach zusätzlich zum ado- den -dao-verweis setzen und dann wahlweise verwenden:

Dim DB As ADODB.Connection

Dim DB As DAO.Connection

s'Amstel

[mace]

Ich möchte dem Formular mit dem Namen "F_ST_ARTIKEL_AUSWAHL" das Recordset rsArtikel zuweisen. Oder was meinst Du?

Wenn ich zum Beispiel schreibe

Set Form_F_ST_ARTIKEL_AUSWAHL.Recordset = Nothing

klappt das ja auch, also muss die Syntax richtig sein.

Das muss irgendwie damit zu tun haben, das das Recordset rsArtikel nicht bekannt ist, muss ich das irgendwie Global oder Public machen oder so?? Aber wie?

[Warfox]

ähmmm so:

Public RS as ADODB.Recordset

:bimei