schon wieder: DBs mit VB

[hans_schmid]

Hallo,

nach stundenlanger Suche und ewigem Herumproboeren hab ich zumindest schonmal geschafft, einen DB connect herzustellen.

Dazu bin ich dieser Anleitung gefolgt:

http://www.tutorials.de/forum/showthread.php?threadid=14510

Anders habe ich es einfach nicht hinbekommen.

Tja... so wie es aussieht, steht auch ein DB-Connect, denn die Daten werden im DataGrid ausgegeben.

Jetzt will ich aber die jeweiligen Datensätze einzeln (z.B. in einem Label) auslesen.
Mit PHP würd ich's beispielsweise so lösen:

$con = odbc_connect("domain_check", "", "");
$q="SELECT * FROM domains";
$ausgabe = odbc_exec($con, $q);

while(odbc_fetch_row($ausgabe)){ 
$domain=odbc_result($ausgabe,2);   
php echo $domain;
}

Wie geht das mit VB?

 

[Dario Linsky]

In Visual Basic gibt es dafür Recordset-Objekte, in denen die Daten zur Verfügung stehen.
Ein solches Objekt öffnest Du mit einer Abfrage und kannst es dann Zeile für Zeile durchlaufen:

'Objekt erstellen:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

'Abfrage ausführen und Daten in das Objekt laden:
rs.Open "SELECT * FROM tabelle", Verbindung, adOpenStatic, adLockPessimistic
'Prüfen, ob Daten im Recordset enthalten sind:
If rs.RecordCount > 0 Then
    'An den Anfang springen:
    rs.MoveFirst
    'Jede Zeile mit einer Schleife durchgehen:
    Do While Not rs.Eof
        'Feldinhalt aus dem aktuellen Datensatz ausgeben:
        MsgBox CStr(rs.Fields("feldname"))
        'In die nächste Zeile springen:
        rs.MoveNext
    Loop
End If

Set rs = Nothing