Article View: be.comp.programming
Article #15807Re: Visual Basic en SQL
From: Luc Aerts
Date: Sun, 06 Aug 2000 00:00
Date: Sun, 06 Aug 2000 00:00
81 lines
3165 bytes
3165 bytes
Ludo Joris wrote: > On Thu, 03 Aug 2000 19:01:14 GMT, Luc Aerts <luc.aerts@leuven.be> > wrote: > > >Ik zou in Visual Basic een programma willen maken dat me toelaat > >gemakkelijk de resultaten van een SQL te bekijken. > > > >Mijn database noemt db3.mdb en is gelokaliseerd onder d:\bestanden. Via > >het toevoegen van een DataEnvironment wordt de db3.mdb met het project > >verbonden. �produkten� is een table van de database. > >Ik heb iets als volgt willen maken : > > > >Private Sub Form_Load() > > > > MyQuery=�SELECT * FROM produkten;� > > Set Uitkomst = DataEnvironment1.Connection1.Execute(MyQuery) > > > >End Sub > > > >Wat moet ik nu doen om de gegevend van �Uitkomst� (wat eigenlijk het > >resultaat is van de query die uitgevoerd werd op de tabel produkten van > >de database db3) te voorschijn te toveren op de de form? Kan iemand mij > >helpen? > >Het zou er als volgt moeten uitzien : > > > >PROD_ID BESCHRIJVING PRIJS > >-------------------------------------------------------------- > > > >11235 abssdfshfsdhfdsq 149 > >222 gesqorteerddfsj 155 > >4557 aleesweter 5 > > > >De structuur van deze table is PROD_ID = text, BESCHRIJVING = text en > >PRIJS = number > > > > "Probleem" in VB is dat dit dus op elf en dertig verschillende > manieren kan. > > Waarschijnlijk de meest eenvoudige manier (minst programmeer > werk) om het resultaat van een SQL query in tabelvorm op een > form te zetten in VB is door gebruik te maken van een dbGrid control. > > Zet eerst de dbGrid control in je toolbox: Project -> Components -> > Microsoft Databound Grid Control. > > Plaats een data control Data1 op je form. > Vul DatabaseName in (het pad naar en de naam van je .mdb bestand). > De rest staat gewoonlijk juist. > > Plaats een dbGrid DBGrid1 control op je form. > Vul voor de Datasource van DBGrid1 Data1 in. > > In het click event van een command button zet je iets als: > Data1.RecordSource = "SELECT ... FROM ... WHERE ... ORDER BY ..." > Data1.Refresh > > Run VB programma en klik op de command button. > > Ik denk dat je nu wel vertrokken bent. Ludo, Ik heb dit allemaal heel nauwkeurig gedaan, het programma loopt, maar ik zie nergens iets tevoorschijn komen. Wat zou er fout lopen? > > > HTH -- met vriendelijke groeten Luc
Technical Details
Message-ID:
<398D2B3A.A1C12F69@leuven.be>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<3989C1C6.6BF609A3@leuven.be> <398b4b68.59729483@news.ruca.ua.ac.be>Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII X-Google-Thread: fcea4,5f0d5ca4cf2668d1 X-Google-Attributes: gidfcea4,public From: Luc Aerts <luc.aerts@leuven.be> Subject: Re: Visual Basic en SQL Date: 2000/08/06 Message-ID: <398D2B3A.A1C12F69@leuven.be> X-Deja-AN: 655013191 Content-Transfer-Encoding: 8bit References: <3989C1C6.6BF609A3@leuven.be> <398b4b68.59729483@news.ruca.ua.ac.be> X-Accept-Language: nl-BE,en Content-Type: text/plain; charset=iso-8859-1 X-Complaints-To: abuse@Belgium.EU.net X-Trace: nreader1.kpnqwest.net 965552876 193.121.196.129 (Sun, 06 Aug 2000 11:07:56 MET DST) Organization: KPNQwest customer news service MIME-Version: 1.0 NNTP-Posting-Date: Sun, 06 Aug 2000 11:07:56 MET DST Newsgroups: be.comp.programming