Access 2000 und Query in VBA

Seite: 1

Autor

Beitrag

M-ichael

Access 2000 und Query in VBA - Beitrag verfasst: 30.05.2006, 9:19 Uhr

[ Gastposter ]

Moin moin!

Ich hab hier was wo ich absolut nciht weiterkomme.
Ich hab hier eine Datenbank, mit verschiedenen Tabellen. So, aus einer Tabelle möchte ich nun eine dynamische Abfrage machen, die als Abfragekriterium fungiert. Dieses Kriterum wird per InputBox abgefragt. Eine Absicherung von falschen Infos hab ich schon (manuell), aber ich komme mit dem Query einfach nicht klar.
Per DoCmd.RunSQL kann ich nur Querys absetzen, die eine Datenänderung der Tabelle hervorrufen. Jetzt krieg ich einfach nicht auf die Reihe wie ich ein SELECT Statement abschicke und die Daten dann auswerten kann.
Ich habs schon mit CREATE VIEW ausprobiert, jedoch sagt er mir Fehler beim CREATE TABLE, warum auch immer, obwohl das eigentlich SELECT Statement recht kurz ist.

Ganz simpel gefragt, wie schicke ich in VBA ein SELECT Statement ab und kann dies dann auswerten.
in PHP/Mysql wäre das soooooo einfach:

$qry = "SELECT......FROM ..... WHERE.....";
$res = mysql_query($qry)
while ($row = mysql_fetch_array($res)) {
....
}

warum ist das in access nur so kompliziert.....

ich mag access einfach nicht und muss aber damit arbeiten :/

Nach Oben

Isardor

Beitrag verfasst: 29.06.2006, 10:53 Uhr

WelchPoster

Anmeldedatum: 27.06.2006
45 Posts und 4 Themen.

Access kennt keine Views oder Prozeduren, nur Abfragen. Allerdings können Abfragen wie Prozeduren behandelt werden, wenn sie gespeichert werden.
Mal ein Beispiel zum aufruf einer gespeicherten Abfrage in Access.

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 Dim adocommand As adodb.Command Dim adorecordset As adodb.Recordset Dim adoconnection As adodb.Connection Dim strstring1 As String Dim strsql As String Dim parVariable As Parameter dim Ergebnis as String Set adoconnection.connectionstring = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Pfad strstring1 = Form.Textfeld.value Set parVariable = New Parameter parVarable.name = "@Variable" parVarable.Type = adVarChar parVarable.Size = 50 parVarable.Value = strstring1 strsql = "Abfrage1" Set adocommand = New adodb.Command With adocommand .ActiveConnection = adoconnection .CommandType = adCmdStoredProc .CommandText = strsql .Parameters.Append parVarable Set adorecordset = .Execute end with if not adorecordset eof Ergebnis =adorecordset.fields("Name der Spalte").Value end if

In der AccessDB legst du eine Abfrage an mit dem Namen Abfrage1
die enthalt dann z.B.

Code:

1 2 Parameters [@Variable] text(50); select * from Tabelle where Text = [@Variable];

Die Abfrage wird dann direkt in der Access Datenbank ausgeführt und liefert die dann einen Recordset zurück.

beantwortet zwar nicht direkt deine frage, bietet aber auch ein Lösung Gesicht

2 x geändert, zuletzt am 29.06.2006 von Isardor

____________________
Ich sollte langsam mal ein Buch schreiben mit dem Title "Was Access NICHT kann, mal abgesehen von SQL"

Nach Oben

M-ichael

Beitrag verfasst: 29.06.2006, 14:21 Uhr

[ Gastposter ]

Hi,

das Problem hatte sich zwecks Projektumstellung erledigt. Aber dennoch danke für deine ausführliche Hilfe obwohl ich nicht nachvollziehen kann ob es funktioniert hätte ;)

Aber eins weiss ich: Ich fasse nie wieder Access oder VBA an....und erst gar nicht mehr beides zusammen.....Ich kann diese ******* nciht mehr sehen....

regards

Nach Oben

Die Domain www.v-basic.de steht zum Verkauf: Interesse?

Access 2000 und Query in VBA