TextBox que no es leído por SELECT
Cerrado
baldomero123
Message postés
9
Date d'inscription
viernes, 25 de noviembre de 2011
Estatus
Miembro
Última intervención
jueves, 26 de enero de 2012
-
25 nov 2011 a las 12:38
baldomero123 Message postés 9 Date d'inscription viernes, 25 de noviembre de 2011 Estatus Miembro Última intervención jueves, 26 de enero de 2012 - 25 nov 2011 a las 23:28
baldomero123 Message postés 9 Date d'inscription viernes, 25 de noviembre de 2011 Estatus Miembro Última intervención jueves, 26 de enero de 2012 - 25 nov 2011 a las 23:28
Consulta también:
- TextBox que no es leído por SELECT
- Reboot and select proper boot device - Foro BIOS
- Reboot and select proper boot device or insert boot Media... - Foro Windows 10
- Reboot and select proper boot device - Foro BIOS
- Problema "reboot and select proper device..." ✓ - Foro Windows 10
- Select sin repetir registros - Guide
1 respuesta
baldomero123
Message postés
9
Date d'inscription
viernes, 25 de noviembre de 2011
Estatus
Miembro
Última intervención
jueves, 26 de enero de 2012
25 nov 2011 a las 23:28
25 nov 2011 a las 23:28
Para quien le pueda servir, lo he rehecho y lo que pongo ahora funciona:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cantidad As Integer = cuantoshay()
MsgBox(cantidad)
If cantidad > 1 Then
MsgBox("No se puede suprimir")
End If
con.Close()
End Sub
Function cuantoshay() As Integer
Dim query As String
con.Open()
query = "SELECT COUNT(*) FROM operaciones where titular = '" & TitularTextBox.Text & "'"
comando = New OleDb.OleDbCommand(query, con)
MsgBox(comando.ExecuteScalar())
Return CInt(comando.ExecuteScalar())
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cantidad As Integer = cuantoshay()
MsgBox(cantidad)
If cantidad > 1 Then
MsgBox("No se puede suprimir")
End If
con.Close()
End Sub
Function cuantoshay() As Integer
Dim query As String
con.Open()
query = "SELECT COUNT(*) FROM operaciones where titular = '" & TitularTextBox.Text & "'"
comando = New OleDb.OleDbCommand(query, con)
MsgBox(comando.ExecuteScalar())
Return CInt(comando.ExecuteScalar())
End Function