Riga 54: Sub popola_evento()
Riga 55: Dim sqlStr, sqlStr2 As String
Riga 56: conn.Open()
Riga 57: sqlStr = "SELECT Eventi.*, Laboratori.id_laboratorio, Laboratori.titolo As labt FROM Eventi Left Outer Join Laboratori On Eventi.id_laboratorio=Laboratori.id_laboratorio where Eventi.id_evento=@id And Eventi.data_eliminazione Is Null"
Riga 58: command_port = New MySqlCommand (sqlStr, conn)
|