[VBScript/MySQL] Connectie zonder ODBC koppeling te maken

[Crazybyte]

Op het werk willen we graag vanuit een ERP pakket een verbinding maken met een MySQL database die op de interne server draait. De taal waarin eigen onderdelen van het pakket geschreven kan worden is VBScript.

Dit is eigenlijk allemaal geen probleem. Driver installeren op de PC, via de beheertools -> ODBC-gegevensbronnen een verbinding toevoegen voor de betreffende database en deze vervolgens in het pakket benaderen via de naam van de hiervoor aangemaakt ODBC-koppeling.

Het probleem is echter dan dat op alle PC's die koppeling gemaakt moet worden, iets wat op zichzelf nog niet zo'n erg probleem is. Wanneer er echter, om welke reden dan ook, de database verhuisd naar een andere server, de server een ander ip of naam krijgt, moet vervolgens op alle werkplekken de koppeling aangepast worden. En daar hebben we niet zo'n zin in natuurlijk.

Ik wil dus graag dat stukje eruit halen door rechtstreeks vanuit de code die koppeling te maken, maar krijg dit niet voor elkaar.

Dit hebben we nu:

VBScript:

Function OpenODBC(host, username, password)
    Dim objDBConn
    
    ' Error handling starten
    On Error Resume Next
    
    Set conn = CreateObject("ADODB.Connection")
    If Err <> 0 Then
        MsgBox Err.Number & ": " & Err.Description
    Else
        conn.open host,username,password
        If Err <> 0 Then
            MsgBox Err.Number & ": " & Err.Description
        Else
            OpenODBC = conn     
        End If
    End If      
End Function

En dit is waar ik naar toe wil (moet nog verwerkt worden in een functie):

VBScript:

Dim conn
set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString="Driver={MySQL ODBC 3.51 Driver};Server=192.168.1.1;Port=3306;Database=PC2000;User=root;Password=;Option=3;"
conn.Open

Echter hier krijg ik keer op keer de melding dat de databron niet gevonden kon worden.

De connectie string heb ik van www.connectionstrings.com, maar ondanks dat en het nodige zoeken op google kom ik er gewoon niet uit.

Mijn hoop is weer eens op jullie gevestigd

[TeeDee]

VBScript:

    set conn = server.createobject("adodb.connection")
    connection = "driver={MySQL};server=192.168.1.1;user=root;password=password;database=PC2000"
    conn.open (connection)

Lang geleden dat ik naar een MySQL een connectie probeerde te maken, maar zoiets zou het gewoon moeten zijn.

code:

conn.ConnectionString

lijkt me een .Net achtige constructie, en aangezien jij het over VbScript hebt, lijkt me dit niet mogelijk.

En anders kan je hier nog even kijken.

Overigens gewoon gevonden met Google!

[ Voor 19% gewijzigd door TeeDee op 06-11-2007 13:38 ]

[Crazybyte]

My bad, was vergeten de driver zelf te installeren.

Dat in combinatie met jou oplossing i.p.v. conn.Connectionstring, deed het wel werken.

In ieder geval bedankt voor de hulp!