io interrogherei il DB direttamente in SQL e poi gestirei i dati estratti nel modo preferito ....
Dim $Con As New Connection
Dim $Result As Result
Dim $Command As String
$Con.close() ' Close the connection
$Con.Type = "MySQL" ' Type of connection
$Con.Host = FMain.DB_server_IP ' Name of the server
$Con.Login = FMain.DB_server_DBuser ' User's name for the connection
$Con.Port = FMain.DB_server_Port ' Port to use in the connection, usually 3306
$Con.Name = FMain.DB_server_DBname ' Name of the database we want to use
$Con.Password = FMain.DB_server_DBpass ' User's password
Try $Con.Open()
If Error Then
message.Error("tentativo di connessione al server non riuscito", "OK")
$con.close
Return
Endif
If Label_id.Text = "" Then 'aggiunta NUOVO programma
Try $Con.Begin()
If Error Then
message.Error("aggiornamento di 'Programs' non riuscito", "OK")
Return
Else
$Result = $con.Create("Programs")
$Result!Program_name = TextBox_Programma.Text
$Result!tags = TextArea_Taglist.Text
$Result!classificazione_registro = ComboBox_Classificazione_programmi.Text
$Result!Nationality = ComboBox_Nazionalita.Text
$Result!Autoprodotto = CheckBox_Autoproduzione.Value
$Result!rated = ComboBox_Rating.Index
$Result.Update()
$con.Commit()
Endif
Else 'siamo in fase di editing
Try
$Con.Begin()
If Error Then
message.Error("aggiornamento di 'Programs' non riuscito", "OK")
Return
Else
'$Result = $con.Create("Programs")
$Result = $con.Edit("Programs", "id = &1", Label_id.Text)
$Result!Program_name = TextBox_Programma.Text
$Result!tags = TextArea_Taglist.Text
$Result!classificazione_registro = ComboBox_Classificazione_programmi.Text
$Result!Nationality = ComboBox_Nazionalita.Text
$Result!Autoprodotto = CBool(CheckBox_Autoproduzione.Value)
$Result!rated = CInt(ComboBox_Rating.Index)
$Result.Update()
$con.Commit()
Endif
.... ovviamente per fare una o piu' select:
$Command="select * from tabella where campo = 'valore' "
Result = $Con.Exec($Command)
un po' a tira' via ho fatto copia e incolla dal mio codice
Visualizza post
