Search  

   

Latest News  

Problemstellung:Wenn man Etiketten drucken will steht man oft vor einigen Problemen.1. Man möchte nur ein paar Etiketten drucken und beim nächsten Druck braucht man wieder   ein neues Blatt weil freie...
   

Latest Forumposts  

  • Keine Beiträge vorhanden
   

Kommentare  

Tut mir leid Hella, ich kann Dir nicht folgen? 13.04.2017 - 14.04.2017 ergibt bei mir 1 13.04.2017 -...
Gast - Hella
Hallo, Berechne wie folgt, ob "zu früh" oder "zu spät" Rückmeldet. Früher sollte auch mit negativer ...
Gast - Hella
Hallo, mit negativen Werten meine ich z.B. -5 Tage (ohne Wochenende) u.ä. Zur Zeit wird nur die 0 au...
Hallo Hella, wie negative Werte? Kannst Du es erläutern was Du machen willst? Gruß Tommy
Gast - Hella
Hallo, ich bräuchte auch negative Werte bei der Anzahl, wie kann man das realisieren? Liebe Grüße He...
   

Counter  

1115632
HeuteHeute117
GesternGestern1114
Diese WocheDiese Woche2363
Dieser MonatDieser Monat23844
GesamtGesamt1115632
Highest 07.12.2017 : 1250
US
UNITED STATES
US

This page uses the IP-to-Country Database provided by WebHosting.Info (http://www.webhosting.info), available from http://ip-to-country.webhosting.info

   

Download Statistik  

Diese Site enthält 187 Downloads in 30 Kategorien. Gesamtdownloads bisher: 234326
   
Free live stats and visitor counter for Joomla, Wordpress, Drupal, Magento and Prestashop
   

Login

   

User Online

Total: 82 Members: 0 Guests: 82
No members online
   

Beiträge

Öffnen eines Recordsets

Bewertung:  / 1
SchwachSuper 
Details

Vergleich von Standardprozeduren ADO/DAO 

Wichtig sind die jeweiligen Verweise:
DAO:
MS DAO Object Library 3.X
ADO:
MS ActiveX Data Objects 2.X Library

 

Problemstellung:

Wie kann ich mit DAO/ADO ein Recordset öffnen?

1. Recordset aus der aktuellen Datenbank

DAO:

Public Sub DAO_OpenCurrentRecordset(sSource As String)
    Dim db As DAO.Database
    Dim rst As DAO.Recordset    
   Set db = CurrentDb()
    Set rst = db.OpenRecordset(sSource)
    rst.Close
 End Sub

ADO:

Sub ADO_OpenCurrentRecordset(sSource As String)
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Set cnn = CurrentProject.Connection
    rst.Open sSource, cnn, adOpenDynamic, adLockOptimistic
    rst.Close
 End Sub

Wobei der Parameter "sSource" entweder einen Namen einer Tabelle/Abfrage oder einen SQL-String enthalten kann.

2. Recordset aus einer externen Datenbank

DAO:

Public Sub DAO_OpenRecordset(sDBPath, sSource As String)
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Set db = DBEngine.OpenDatabase(sDBPath)
    Set rst = db.OpenRecordset(sSource)
    rst.Close
 End Sub

ADO:

Sub ADO_OpenRecordset(sDBPath, sSource As String)
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & sDBPath & "';"
    rst.Open sSource, cnn, adOpenForwardOnly, adLockReadOnly
    rst.Close
 End Sub

Parameter "sDBPath" muss den kompletten Pfad und Dateinamen der DB enthalten.

Parameter "sSource" enthält Namen einer Tabelle/Abfrage oder einen SQL-String enthalten kann.

 

Einen Kommentar verfassen

Als Gast kommentieren

0 / 300 Zeichen Beschränkung
Dein Text sollte zwischen 10-300 Zeichen lang sein
Nutzungsbedingungen.
  • Keine Kommentare gefunden