VB6 + Mysql

[marste881]

Ciao a tutti,
stò cercndo di fare la mia tesina ma devo associare ad un programma visual basic un database mysql...
Mi sapreste aiutare ?
Ho trovato tante stringhe di connessione ma non so come usarle...
grazie in anticipo a tutti

[gibra]

Se non mostri il codice che stai usando non è possibile aiutarti.
Non possiamo certo indovinarlo.

Ciao

[marste881]

Set conn = New ADODB.Connection

xserver = "127.0.0.1"
xdatabase = "prova"
xuser = "root"
xpass = ""


connStr = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & xserver & ";" _
& "DATABASE=" & xdatabase & ";" _
& "UID=" & xuser & ";" _
& "PWD=" & xpass & ";" _
& "OPTION=18475"

conn.ConnectionString = connStr

conn.Open

questo è il codice.. da un errore di compilazione nella prima riga... cmq cercavopiù qualcuno che l'avesse già fatto e mi spiegasse come posso farlo... grazie

[gibra]

Originariamente inviato da marste881
questo è il codice.. da un errore di compilazione nella prima riga... cmq cercavopiù qualcuno che l'avesse già fatto e mi spiegasse come posso farlo... grazie

Magari se dici che errore...

La prossima volta non mettere il codice tra i tag QUOTE, ma tra i tag CODE

Prova questa routine:

Public Function ConnettiMySQL (byval sDBName as string, byval sUser As String, ByVal sPwd as String) As Boolean
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection

    On Error Goto ERR_HANDLER
    With cn
        .ConnectionString = "Driver={MySQL ODBC 3.51 Driver};" & _ 
        "Server=localhost;" & _
        "Database=" & sDBName & "; & _
        "User=" & sUser & ";Password=" & sPwd & ";Option=3;"
        .CursorLocation = adUseClient
        .Open
    End With

    ConnettiMySQL =True

    On Error Goto 0
    Exit Function

ERR_HANDLER:
    MsgBox Err.Description,vbInformation,Err.Number
End Function

Poi la richiami così, collegandoti la db di mysql.

ConnettiMySQL  "mysql", "root", "root"

Ciao

[marste881]

Dim cn As ADODB.Connection

mi da errore dicendo tipo non conosciuto...

grazie mille

[gibra]

Originariamente inviato da marste881

Dim cn As ADODB.Connection

mi da errore dicendo tipo non conosciuto...

grazie mille

Mi sembra strano, avrebbe dovuto dartelo anche prima.
Sei sicuro di avere incluso un riferimento all' MDAC 2.x ?
Altrimenti verifica.

Ciao

[marste881]

sono riuscito
questo è il codice:

Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
    & "SERVER=127.0.0.1;" _
    & "DATABASE=nome_del_database;" _
    & "UID=root;" _
    & "PWD=;" _
    & "PORT=3306;" _
    & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    conn.CursorLocation = adUseClient
    conn.Open
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
   
    rs.Open "QUERY", conn

quando faccio delle select dove arrivano i dati che genera? come faccio a trovare l'insieme di record generati?

[gibra]

Scusa, non capisco il senso della richiesa: dove arrivano ?

Dove vuoi tu! In una griglia, in uno o più campi, ...

Comunque questa istruzione

rs.Open "QUERY", conn

è incompleta perchè mancano ben 3 parametri:
- il tipo di cursore
- la modalità di lock
- l'opzione

Vedi sulla guida il metodo Open del recordset di ADO.

Ciao