'Heiko Hommes
'
'Vorgehensweise für den Zugriff auf eine Tabellle

function tabellenzugriff()

dim db as database     'varibale für die Datenbank, ob lokale oder eine fremde

dim rs_1 as recordset  'hier wird die Variable deklariert, welche
                       'später den Datenpool bildet  Cursor in oracle

dim va_sql as string  'hier wird später ein sql definiert

set db = dbengine(0) (0) 'hier wird die momentan offene Datenbank zugrunde gelegt

set rs_1 = db.openrecordset ("[Tabellenname]")  'hier wird jetzt auf eine komplette
                                                'Tabelle zugegriffen
                                                'zb. ...("Tabelle_uebung")

'oder man öffnet einen Datenpool mit verküpfung und where 
va_sql = "select * from tabelle_1 where a=b"
set rs_1 = db.openrecordset (va_sql)    ' jetzt wird der Datenpool geöffnet 
                                        


rs_1.movefirst   ' auf den ersten datensatz positionieren


'reines auslesen
do while not rs_1.eof  'schleife bis zum letzten DS
 [Anweisungen]
  va_testvariable = rs_1![feld1]  'Wert aus Feld1 der Variablen va_testvarible zuweisen.....
 ......
  rs_1.movenext 'nächsten DS holen
loop                             
close rs_1   'Datenpool schliessen


'Datensätze ändern 
do while not rs_1.eof               'schleife bis zum letzten DS
 rs_1.edit                          'in den editirmodus wechseln
 
 rs_1![feld1] = "irgend ein wert"    'das DB_Feld_1 mit einem festen Wert füllen
 rs_1![feld2] = va_eine_Variable    'das DB_Feld_1 mit einer Variblen füllen
 .....
 rs_1.update                        'Änderung speichern....commit in oracle
 rs_1.movenext 'nächsten DS holen
loop                             
close rs_1   'Datenpool schliessen



'Datensätze anfügen / in eine Tabelle rein schreiben 
 rs_1.addnew                          'in den anfügemodus wechseln
 
 rs_1![feld1] = "irgend ein wert"    'das DB_Feld_1 mit einem festen Wert füllen
 rs_1![feld2] = va_eine_Variable    'das DB_Feld_1 mit einer Variblen füllen
 .....
 rs_1.update                        'Änderung speichern....commit in oracle
close rs_1   'Datenpool schliessen

              
end function