🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #16715

Re: VBA in ms Access

#16715
From: Rudi Breedenraedt
Date: Mon, 17 Apr 2000 00:00
46 lines
2224 bytes
>Wat ik wil doen: een query draaien op enkele tabellen, en het resultaat
>ervan (1 veld) op een form uitbeelden en/of er berekeningen mee doen.

Sorry, het is me niet echt duidelijk. Als je maar 1 veld wil tonen, vanwaar
dan '*enkele* tabellen' ?

Heb je echt wel VBA nodig ? MSAccess biedt je de mogelijkheid queries te
definieren en daarop formulieren te zetten. Eenvoudiger kan niet.

Maar als je 't toch met VBA wil doen, dan is er toch niks simpelers dan ADO
! Hier een voorbeeldje:

  Dim conn as Object, rs as Object
  set conn = CreateObject("ADODB.Connection")
  set rs = CreateObject("ADODB.Recordset")
  conn.Open connectstr
  rs.Open "SELECT * FROM MyTable", conn, adOpenDynamic
  While not rs.EOF
    Debug.print rs(1)
  Wend
  rs.Close
  conn.Close

Success !

Rudi Breedenraedt

===============================================
United Programmers Club VZW
http://upc.webhostme.com/
http://www.upc.be/
upc@POBoxes.com
===============================================
Serge van Ginderachter heeft geschreven in bericht
<8d19mj$e1l$1@newnews1.news.nl.uu.net>...
>Wie kan me vertellen hoe ik eenvoudig met vba code gegevens uit mijn access
>tabellen en/of queries kan bereiken?
>De methodes beschreven op msdn lijken mij zo ingewikkeld en ik sla ADO &
DAO
>nog al eens door elkaar. Bestaat er geen eenvoudiger methode om de gegevens
>in de eigen mdb file te bereiken?
>
>Wat ik wil doen: een query draaien op enkele tabellen, en het resultaat
>ervan (1 veld) op een form uitbeelden en/of er berekeningen mee doen.
>
>
Technical Details
Message-ID: <8ddmis$3ep$1@rivage.news.be.easynet.net>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <8d19mj$e1l$1@newnews1.news.nl.uu.net>

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,4b989115e3e8d544
X-Google-Attributes: gidfcea4,public
From: "Rudi Breedenraedt" <r.b@POBoxes.com>
Subject: Re: VBA in ms Access
Date: 2000/04/17
Message-ID: <8ddmis$3ep$1@rivage.news.be.easynet.net>
X-Deja-AN: 612019720
References: <8d19mj$e1l$1@newnews1.news.nl.uu.net>
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.2106.4
X-Complaints-To: abuse@easynet.be
X-Trace: rivage.news.be.easynet.net 955932060 3545 212.100.172.105 (17 Apr 2000 00:41:00 GMT)
Organization: [ posted via Easynet Belgium ]
NNTP-Posting-Date: 17 Apr 2000 00:41:00 GMT
Newsgroups: be.comp.programming