Article View: pl.comp.lang.vbasic
Article #92510RecordSet do tablicy
From: skyblast
Date: Mon, 31 Oct 2005 21:45
Date: Mon, 31 Oct 2005 21:45
23 lines
1583 bytes
1583 bytes
Potrzebuję przerzucić pobrany recordset / 4 kolumny / do tablicy.
Zrobiłem to w taki sposób:
IleRekordow = ListBoxRecord.RecordCount
ReDim MDFTable(0 To IleRekordow, 0 To 3)
' recordset na 1 pozycję
ListBoxRecord.MoveFirst
For licznikROW = 0 To IleRekordow - 1
MDFTable(licznikROW, 0) = ListBoxRecord.Fields("1").Value
MDFTable(licznikROW, 1) = ListBoxRecord.Fields("2").Value
MDFTable(licznikROW, 2) = ListBoxRecord.Fields("3").Value
MDFTable(licznikROW, 3) = ListBoxRecord.Fields("4").Value
' recordset na następną pozycję
ListBoxRecord.MoveNext
Next licznikROW
Można to szybciej, np. bez chodzenia po rekordach obiektu recordset ?
Pozdrawiam.
Technical Details
Message-ID:
<dk63bb$rqi$1@nemesis.news.tpi.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!newsfeed.pionier.net.pl!newsfeed.silweb.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mailShow Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!mat.uni.torun.pl!news.man.torun.pl!newsfeed.pionier.net.pl!newsfeed.silweb.pl!newsfeed.tpinternet.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail From: skyblast <skyblast@linuxmail.org> Newsgroups: pl.comp.lang.vbasic Subject: RecordSet do tablicy Date: Mon, 31 Oct 2005 22:45:44 +0100 Organization: tp.internet - http://www.tpi.pl/ Lines: 23 Message-ID: <dk63bb$rqi$1@nemesis.news.tpi.pl> NNTP-Posting-Host: host-ip116-239.crowley.pl Mime-Version: 1.0 X-Trace: nemesis.news.tpi.pl 1130795180 28498 62.111.239.116 (31 Oct 2005 21:46:20 GMT) X-Complaints-To: usenet@tpi.pl NNTP-Posting-Date: Mon, 31 Oct 2005 21:46:20 +0000 (UTC) User-Agent: Mozilla Thunderbird 1.0.6 (Windows/20050716) X-Accept-Language: pl, en-us, en Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit