/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
VB og MySql erfaringer ?
Fra : Flemming Klug


Dato : 04-10-01 21:10

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


--
Med venlig hilsen

Flemming Klug
fklug@snask.mail.dk




 
 
Karl Peder Olesen (04-10-2001)
Kommentar
Fra : Karl Peder Olesen


Dato : 04-10-01 22:27

Hej

>
>Er der nogen af jer derude der har erfaring med denne kombination. Der
>findes et API til C++ men hvad med VB5.
>
Jeg har brugt databaseteknologien ADO og tilgået MySQL via ODBC. Det
kræver installering af ODBC-driveren MyODBC, som kan downloades fra
MySQL's hjemmeside.
Det var i VB6. Jeg må ærligt indrømme at jeg ikke er klar over om ADO
understøttes i VB5... Måske andre er klogere.

mvh
Karl Peder

PS: Uddybende deltaljer kan gives, dette var bare lige en hurtig
kommentar.


Kim Pedersen [vbCode~ (05-10-2001)
Kommentar
Fra : Kim Pedersen [vbCode~


Dato : 05-10-01 00:16

Hej Karl

> Det var i VB6. Jeg må ærligt indrømme at jeg
> ikke er klar over om ADO understøttes i VB5
> ... Måske andre er klogere.

ADO understøttes lige så vel i VB4 32 bit som
VB5 og VB6.

Venlig Hilsen/Best Regards
Kim Pedersen, vbCode Magician
http://www.vbcodemagician.dk
ICQ: 62990889



Karl Peder Olesen (05-10-2001)
Kommentar
Fra : Karl Peder Olesen


Dato : 05-10-01 18:01

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


Anders Dueholm (06-10-2001)
Kommentar
Fra : Anders Dueholm


Dato : 06-10-01 23:53

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
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408887
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste