[VB6]Mysql Dannato

[-=illidan=-]

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:

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"

qui ci andrebbe la cosa che non so

rs.Close
conn.Close


End Sub

Help meeeeeeeeeeeeeeee

[wiulma]

prova cosi:

rs.open SQL

app = rs("ip")

[-=illidan=-]

non va aiutatemi plz!!!

[vega2002]

devi specificare con quale connessione desideri eseguire la query

rs.open SQL,conn

per leggere il valore ottenuto:

rs.Fields(0)

nel caso hai un solo valore da estrarre dal database

il valore 0 indicato tra parentesi, stabilisce quale campo dovrà essere preso in considerazione tra quelli stabiliti nella query.

altrimenti se i valori sono piu di uno:

Do Until rs.EOF
 debug.print rs.Fields(0)
 rs.MoveNext 'Muove al successivo
Loop

:mavieni: