Devo leggere un record ( ip ) da una tabella di un db mysql...la connessione funziona magnificamente...ma non so come salvare il valore in una variabile...ecco il codice:
qui ci andrebbe la cosa che non socodice:Private Sub Command1_Click() Dim conn As ADODB.Connection Set conn = New ADODB.Connection Dim SQL As String Dim ip As Integer conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _ & "SERVER=******;" _ & "DATABASE=******;" _ & "UID=******;" _ & "PWD=******;" _ & "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384 conn.CursorLocation = adUseClient conn.Open Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset SQL = "SELECT ip FROM creola_ip"
Help meeeeeeeeeeeeeeeecodice:rs.Close conn.Close End Sub![]()
![]()
![]()


Rispondi quotando