Der findes også en OLEDB driver som er bedre end ODBC-driveren. Den er på
MySql-hjemmeside.
Anders
"Karl Peder Olesen" <kpo@mail1dotstofanetdotdk> wrote in message
news:3bbde71d.1967799@news.stofanet.dk...
> On Thu, 4 Oct 2001 22:10:00 +0200, "Flemming Klug" <fklug@mail.dk>
> wrote:
>
> >Hej alle
> >
> >Er der nogen af jer derude der har erfaring med denne kombination. Der
> >findes et API til C++ men hvad med VB5.
> >
> >På forhånd tak
>
> Jeg skal prøve at give en kort, men forhåbentlig ok, beskrivelse af
> hvad man gør. Det bliver på punktform. Du må sige til hvis nogen af
> punkterne er helt uoverskuelige.
>
> 1) Installer MySQL og opret din database og den tabel / de tabeller,
> du skal bruge (hvis det ikke allerede er gjort i forvejen.
> 2) Installer ODBC driveren til MySQL. Som tidligere nævnt hedder den
> MyODBC og skulle kunne downloades fra MySQL's hjemmeside.
> 3) Opret en "Datasource" under ODBC i Windows' kontrolpanel (hedder
> lidt forskelligt afh. af windows version). Du vælger ODBC driveren til
> MySQL, angiver databasenavn osv.
>
> Nu er du klar til at lave noget VB kode.
>
> 1) I VB oprettes et projekt
> 2) For at få adgang til ADO vælges under "reference": "Microsoft
> ActiveX Data Objects x.y Library". "x.y" er versionen, som afhænger af
> din windows version, VB version mv. Hvis den ikke er der, kan den
> downloades gratis hos Microsoft. Vælg IKKE "Microsoft ActiveX Data
> Objects Recordset...."
>
> Nu har du adgang til ADO. Jeg vil bestemt anbefale dig at studere
> Microsofts hjemmeside nærmere for at lære mere om ADO. Der er online
> adgang til stort set al den dokumentation, som man kan ønske sig. Dog
> skal du være opmærksom på at dokumentationen ofte er til den nyeste
> version af f.eks. ADO - som du sikkert ikke har sammen med VB5. Hvis
> du kun skal bruge grundlæggende funktionalitet, så går det nok.
> Adressen er:
>
www.msdn.microsoft.com/library
> Her laver du følgende menuvalg i venstre side af skærmen:
> Data Access =>
> Microsoft Data Access Components =>
> SDK Dokumentation =>
> Microsoft ActiveX Data Objects
> Så skulle du være på rette spor.
>
> Et lille eksempel vil måske være på sin plads. Lad os lege at du har
> oprettet en Data Source med navnet "MySource" til en MySQL database
> med en tabel med navnet "Persons". Heri er der følgende felter:
> "Name", "Adress", "Phone".:
>
> Sub test
> Dim Connection as ADODB.Connection
> Dim RcdSet as ADODB.Recordset
> Dim Name as String
> Dim Adress as String
> Dim Phone as String
>
> ' Forbindelse til database åbnes:
> Set Connection = new ADODB.Connection
> Connection.Open "Data Source=MySource; User Id=bent;
> Password=mypassword"
>
> ' Søgning på alle navne i databasen udføres (vi bruger SQL her):
> Set RcdSet = Connection.Execute("SELECT * FROM Persons")
>
> ' Vi løber nu alle records igennem indtil der ikke er flere
> Do While (not RcdSet.EOF)
> Name = RcdSet.Fields("Name").Value
> Adress = RcdSet.Fields("Adress").Value
> Phone = RcdSet.Fields("Phone").Value
>
> ' Gør nu noget med de informationer der er hentet ud
>
> ' næste
> RcdSet.MoveNext
> Loop
>
> ' Databaseforbindelsen lukkes
> Connection.Close
>
> End Sub
>
>
> Eksemplet viser en simpel søgning. Resten kan uden tvivl læses hos
> Microsoft.
>
> mvh
> Karl Peder
>