PDA

Vollständige Version anzeigen : Access Abfrage


reinhard.hobje
15.07.2001, 16:52
Hallo...,
möche aus VB eine Abfrage in Access auslösen.
Danke an alle

Hallo Stefan,
1.) Die Datenbank(Access97 soll als Backend laufen) ich möchte sie in VB nur auslösen.
2.)ADO
Gruss Reinhard und Danke

Stefan Kulpa
16.07.2001, 13:08
<font face="Verdana" size="2">
Wie bzw. womit greifst Du denn auf die Datenbank zu? DAO oder ADO?

Stefan
</font>

Stefan Kulpa
16.07.2001, 17:32
<font face="Verdana" size="2">Hallo,

so sollte es gehen:</font>

<PRE><FONT SIZE=1 FACE=Courier New> <FONT COLOR=#000080>Dim</FONT> objCon <FONT COLOR=#000080>As</FONT> ADODB.Connection
<FONT COLOR=#000080>Dim</FONT> objRst <FONT COLOR=#000080>As</FONT> ADODB.Recordset
<FONT COLOR=#000080>Dim</FONT> sConnection <FONT COLOR=#000080>As String</FONT>

sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=MyData.mdb;" & _
"Persist Security Info=False"
<FONT COLOR=#000080>Set</FONT> objCon = <FONT COLOR=#000080>New</FONT> ADODB.Connection
objCon.<FONT COLOR=#000080>Open</FONT> sConnection

<FONT COLOR=#000080>Set</FONT> objRst = <FONT COLOR=#000080>New</FONT> ADODB.Recordset
<FONT COLOR=#008000>'** Auswahlabfrage durchführen</FONT>
<FONT COLOR=#000080>Set</FONT> objRst = objCon.Execute("qrySimple")

<FONT COLOR=#008000>'** ODER: Abfrage ohne Rückgabewert durchführen</FONT>
objCon.Execute "qrySimple"

</FONT></PRE>

<font face="Verdana" size="2">Falls Du es noch nicht einsetzt, empfehle Dir das DataEnvironment zu nutzen - das erleichtert die Arbeit gerade mit ADO erheblich.

Gruß</font>