VBA

Impressum | Werbung

Geizhals » Forum » Programmierung »

VBA (10 Beiträge, 123 Mal gelesen)

Top-100 | Fresh-100

Du bist nicht angemeldet. [ Login/Registrieren ]

Frage: Kann mit in VBA auch SQL-Statements absetzen? Gibt es da sowas wie sqlj in java?
maschwa

"Wait and C"

ich weiss dass es in VB geht .. in VBA ... *hmmm*

Besucher machen immer Freude, wenn nicht beim KOMMEN, dann doch beim GEHENThey say when you play a Microsoft CD backward you can hear satanic messages...
But that's nothing, if you play it forward it will install Windows

Ja kann man, ich hab schon mal in Excel ein Macro geschrieben, um Daten einer Datenbank anzuzeigen. Ich kann mich aber nicht mehr genau erinnern, nur dass es was mit ODBC Treibern zu tun gehabt hat. In der Microsoft Hilfe steht aber einiges dazu.

Konkret:

ich möchte eine prozedur in access schreiben, die sql-anweisungen enthält!
maschwa

"Wait and C"

du willst in Access eine SQL Anweisung ausführen ? also auf einen bestehenden Datensatz z.b. einen SELECT befehl anwenden ?

Versteh ich dich da richtig ...

Besucher machen immer Freude, wenn nicht beim KOMMEN, dann doch beim GEHENThey say when you play a Microsoft CD backward you can hear satanic messages...
But that's nothing, if you play it forward it will install Windows

Ich glaub Du musst über den Treiber ein Connection aufmachen, und kannst dann SQL Statements abschicken, die Du in Recordsets zurückkriegst. Das Übliche halt.

Gehen tuts ganz sicher, nur leider, ich weiss echt nicht mehr wie.

ja, man kann in access sql-statements einsetzen. du musst ein neues recordset definieren und dieses recordset dann zb mit dem ergebnis eines select - statements füllen.

so sollte das dann klappen.

lg aus ibk

typeOneg

^ Forum Programmierung #784022
	Re: VBA

Ardjan

05.03.2003, 11:19:23

*kram* *raussuch* Beispiel aus ein AccessDB von mir (SQL-Server-Tabellen kannst dort verknüpfen und fast als normale Tabellen ansprechen):
Dim RS As Recordset Set RS = CurrentDb.OpenRecordset("Select * FROM tbl_Protokoll;", dbOpenDynaset, dbSeeChanges) RS.AddNew 'Neue Datensatz anlegen RS!Datum = Prot_Datum RS!Schicht = Schicht RS!ID_Maschine = ID_Maschine RS!anlegeort = UserComp() 'User und Rechner eintragen: Big Brother RS!ZeitAnfang = Time RS.Update RS.Close

In der erste zwei Zeilen wird ein RecordSet 'RS' aufgemacht, und dann kann man ihm normal befüllen oder mit etwas wie Do Until RS.EOF Debug.Print RS.ID RS.MoveNext Loop
auslesen...

HTH,
Ardjan

Achtung: Viruswarnung!
Eigenwerbung: www.besse.at
Mein Sohn: http://www.besse.at/samuel

So wäre es auch möglich (und benötigt kein ODBC) am Beispiel Oracle (andere sind natürlich möglich):

in Dein Projekt musst Du im VBA-Editor unter Extras/Verweise den Verweis auf "Microsoft ActiveX Data Objects x.x Library " hinzufügen (anhacken).
Dann Code in etwa wie folgt verwenden:

function blabla as boolean
Dim cnn As Connection
Dim rs As Recordset
Dim sSql As String

  blabla = False
  On Error GoTo ErrorHandler              'Initialize the error handler
  Set cnn = New ADODB.Connection

  With cnn                                'Set connection parameters and open connection
    .CursorLocation = adUseClient
    .ConnectionString = "Provider=MSDAORA.1;User ID=myuser

assword=mypasswd;Data Source=mydatabase"
    .Open
End With

  sSql = "select * from mytable where id < 100"
  Set rs = cnn.Execute(sSql)

  rs.MoveLast
  rs.MoveFirst
  If rs.RecordCount < 1 Then
    cnn.Close
    Set cnn = Nothing
    Set rs = Nothing
    MsgBox "Schade ..."
    Exit Function
  Else
    On Error GoTo 0
    With rs
       ' working the first record or     While Not rs.EOF/rs.MoveNext/Wend
       testinhalt = .Fields("mytablespalte").Value
    End With
  End If

...
  cnn.Close
  Set cnn = Nothing
  Set rs = Nothing
  blabla = True  'everything worked fine
Exit Function

ErrorHandler:
  MsgBox ("Fehler bei Zugriff über ADO..")
  .. Fehlerbehandlung ADO-spezifisch hier einbauen
  Resume Next
End Function

unter access gibt`s 2 möglichkeiten:

zum updaten, inserten, deleten:
docmd.runsql "das sql statement"

oder mit recordset:
set rs = currentdb.opencecordset("sql statement")
set rs = nothing

mfg
soldier

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung