[VB6] SQL Vraag

[Thunk]

Hallo, het verbinding maken met de mdb database in VB is me gelukt met deze code:

Dim cnnADO As New ADODB.Connection
Dim cmdADO As New ADODB.Command
Dim rsADO As New ADODB.Recordset

Private Sub Form_Load()

cnnADO.Provider = "Microsoft.Jet.OLEDB.4.0"
cnnADO.ConnectionString = "database.mdb"
cnnADO.Open

cmdADO.ActiveConnection = cnnADO

rsADO.CursorLocation = adUseClient
rsADO.CursorType = adOpenDynamic
rsADO.LockType = adLockPessimistic

End Sub

ergens anders in de code:

cmdADO.CommandText = "SELECT * FROM Tabel1"
rsADO.Open cmdADO


-----------------

Ik begin net met databases in VB, en in het algemeen. Hoe kan ik alle records van die tabel counten.
Dus als er 5 records instaan, krijg je value 5.

In MySQL (PHP) heb ik gevonden dat t lukt met:

$sql = "SELECT * FROM Tabel1"
$query = mysql_query($sql)
$total = mysql_numrows($query)

Hoe zou ik dit kunnen omzetten naar VB. Iets met die commandtext neem ik aan en dan een query bouwen?

Ik wil dus zeg maar het aantal records in een label krijgen van Tabel1.

Cheers :]

[whoami]

Kijk even in de help of manual welke property van het recordset object je moet gebruiken om het gewenste resultaat te bekomen. Iets van RecordCount ofzo.

Je kunt ook dmv een SQL statement het aantal rijen van een tabel bekomen. Bekijk daarvoor de COUNT() functie van SQL eens.

In beide gevallen gewoon manual/opzoekwerk.