
Visual basic como usar los booleanos al momento de consultar en bases de datos
Publicado por leonardo (12 intervenciones) el 23/09/2023 16:31:36
Misql = ("SELECT 1 FROM tablaocupados WHERE 1='" & tramp.Checked & "'")
Miadaptador.SelectCommand = New OleDbCommand(Misql, Miconexion)
Midataset = New DataSet
Midataset.Tables.Add("usuario")
Miadaptador.Fill(Midataset.Tables("usuario"))
If Midataset.Tables("usuario").Rows.Count = 0 Then
P1.BackColor = Color.Green
Else
P1.BackColor = Color.Red
End If
Miadaptador.SelectCommand = New OleDbCommand(Misql, Miconexion)
Midataset = New DataSet
Midataset.Tables.Add("usuario")
Miadaptador.Fill(Midataset.Tables("usuario"))
If Midataset.Tables("usuario").Rows.Count = 0 Then
P1.BackColor = Color.Green
Else
P1.BackColor = Color.Red
End If
Valora esta pregunta


0