[vb6] connessione a db mysql

[ciro78]

scusa ma la libreria a cui ti riferisici è per caso quella presente qui

la seconda dopo lo sponsor?


se si da dove si comincia?

anche perchè mi da erroe di compatibilità quando la apro+

[daniele_dll]

ora guardo e ti dico

[daniele_dll]

si è quella...appena la apri ricompilala e risolvi il problema

che ver di vb hai?

[ciro78]

6

[ciro78]

ehm aperta ma una guida?

[bubu77]

c'è un forum apposito per visual basic

[daniele_dll]

Originariamente inviato da ciro78
ehm aperta ma una guida?

a cosa?
ti faccio due esempio io

Private Sub Form_Load()
    Dim conn As New MyVbQL.MYSQL_CONNECTION
    Set conn = New MyVbQL.MYSQL_CONNECTION
    
    Dim RS As MyVbQL.MYSQL_RS
    
    Dim ris As MyVbQL.MYSQL_CONNECTION_STATE
    
    ris = conn.OpenConnection("localhost", "root", "", "mysql")
    If ris = MY_CONN_CLOSED Then
        MsgBox "Errore durante la connessione!" & conn.Error
    End If
    
    Set RS = conn.Execute("SELECT * FROM user")
    
    For rssel = 0 To RS.RecordCount - 1
        MsgBox "Riga: " & rssel + 1 & " - User: " & RS.Fields("user").Value & ", Host: " & RS.Fields("host").Value
        RS.MoveNext
    Next
    
    conn.CloseConnection
    
    Set RS = Nothing
    Set conn = Nothing
End Sub

come puoi vedere il codice è abbastanza simile al codice che andresti ad usare con le dao\ado

questo codice si connette come utente root, estrae dal db mysql la lista delle righe contenute nella tabella user e poi le stampa singolarmente, una ad una, a video
in fine chiudo la connessione e scarico gli oggetti

[ciro78]

quindi in prtaica per ogni programma in cui voglio usare un database sql devo importare la libreria sql nel mio programma e poi usare quel codice giusto?

non mi devo preoccupare minimamente di altro....

se è così avrai prestpo mie notizie ok?

[daniele_dll]

Originariamente inviato da ciro78
quindi in prtaica per ogni programma in cui voglio usare un database sql devo importare la libreria sql nel mio programma e poi usare quel codice giusto?

non mi devo preoccupare minimamente di altro....

se è così avrai prestpo mie notizie ok?

si esatto...altrimenti, per evitarti l'uso di librerie esterne puoi includere i vari moduli (di classe e non) nel tuo progetto e poi usare il codice normalmente...xo non devi richiamare i vari oggetti usando il prefisso MyVbSQL. semplicemente li richiami senza quel prefisso li ^^

[ciro78]

scusa la mia ignoranza ma non è che il codice mi sia molto chiaro allora

/* definisci la connessione
 Dim conn As New MyVbQL.MYSQL_CONNECTION

/* la setti 
 Set conn = New MyVbQL.MYSQL_CONNECTION
    
/*questo non ho idea di che cosa sia
Dim RS As MyVbQL.MYSQL_RS

/*stesso discorso
    Dim ris As MyVbQL.MYSQL_CONNECTION_STATE

/* capisco che imposti i parametri del databse ma essendo collegati 
/* a quelli di prima    
    ris = conn.OpenConnection("localhost", "root", "", "videoteca")


    If ris = MY_CONN_CLOSED Then
        MsgBox "Errore durante la connessione!" & conn.Error
    End If
    
    Set RS = conn.Execute("SELECT * FROM film")
/* che è rssel ? e se volessi impostare un datagrid?    

    For rssel = 0 To RS.RecordCount - 1
       MsgBox "Riga: " & rssel + 1 & " - User: " & RS.Fields("user").Value & ", Host: " & RS.Fields("host").Value
        RS.MoveNext

    Next
    
    conn.CloseConnection
   /* l'arabo non mi piace a che servono 
    Set RS = Nothing
    Set conn = Nothing
End Sub

come vedi ho commentato quello ke non mi è chiaro.....
inoltre creo un nuovo progetto per fare i miei form?