Sto usando un'applicazione che usa questo codice in vb6:
voloendo distribuire quest'applicazione devo:codice:Option Explicit Dim X As Long Dim CONN As ADODB.Connection Dim RS As ADODB.Recordset Dim USERNAME As String Dim PASSWD As String Dim SERVERIP As String Dim DB As String, SSQL As String Public Function connectMysql(USERNAME As String, PASSWD As String, SERVERIP As String, DB As String, CONN As ADODB.Connection, RS As ADODB.Recordset) Set CONN = New ADODB.Connection CONN.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & SERVERIP & ";UID=" & USERNAME & ";PWD=" & PASSWD & ";DATABASE=" & DB & ";" & _ "OPTION=435" CONN.Open End Function Private Sub Form_Load() Call connectMysql("root", "sal21", "127.0.0.1", "L0928", CONN, RS) SSQL = "SELECT SPORT FROM L0928_SI GROUP BY SPORT" Set RS = New ADODB.Recordset X = Empty If RS.State = adStateOpen Then RS.Close Set RS = Nothing End If With RS .CursorLocation = adUseClient .Open SSQL, CONN, adOpenStatic, adLockReadOnly, adCmdText While Not .EOF X = X + 1 .MoveNext Wend End With RS.Close Set RS = Nothing End Sub
- installare il connector 5.1 su tutti i PC della mia rete?
- devo dare il grant utente per utente se si come e con quale tool?
- devo configurare qualcosa nel wizard mysql per rendere il server disponibile in rete?
grazie.

Rispondi quotando