Problem z wyświetlenie tabeli w VBA Opcje

[kaznodzieja]

W jaki sposób w accesie w VBA wyswietlić cała tabele a nie tylko pierwszy rekord:

Napisałem coś takiego aleto wyswietla tylko pierwszy rekord

[PHP] pobierz, plaintext 
<?php
Set rst = conn.Execute("Select * from testowa")
 
For intPoczatek = 1 To strCosik1 Step 1
 
	Debug.Print rst("pole2") & " " & rst("pole1")
 
Next intPoczatek
?>
[PHP] pobierz, plaintext 

ps Te zlesze dodał interpretator kodu php
strCosik1 zawiera liczbe rekordów w tabeli

Wymyśliłem takie rozwiązanie.Może mało optymalne ale działające

For intPoczatek = 1 To strCosik1 Step 1
Let varZm = intPoczatek

Set rst = conn.Execute("Select * from testowa Where id = " & varZm & "")
Debug.Print varZm & " --- " & rst("pole2") & " ::: " & rst("pole1")

Next intPoczatek


gdzie strCosik1 to liczna rekordów w tabeli a varZm to tylko przypisanie licznika pętli

Ten post edytował kaznodzieja 12.07.2007, 11:58:38

[NoiseMc]

Nie sprawdzalem ale wydaje mi sie ze moze byc tak:

Kod

Set recordSet = conn.Execute("Select * from testowa")

While Not recordSet.EOF
    Debug.Print(recordSet("pole2") & " : " recordSet("pole1"))
    recordSet.MoveNext
Wend

Popatrz jeszcze tutaj:
http://www.google.com/search?q=ado+Records...lient=firefox-a

[kaznodzieja]

Dzieki Twoje rozwiązanie po drobnych modyfikacjach działa

Kod dla Access 2003

[PHP] pobierz, plaintext 
<?php
Set rst = conn.Execute("Select * from testowa")
 
Do While Not rst.EOF
	Debug.Print rst("pole2") & " : " & rst("pole1")
	rst.MoveNext
Loop
?>
[PHP] pobierz, plaintext