Buenas noches. En la Subrutina "Suprimirtitular" llamo a la función ObtenerCantidad para ver si el titular que quiero suprimir tiene operaciones realizadas.
Para eso digo en la función query = "SELECT COUNT (*)...WHERE titular =" & TitularTextbox.text
y no funciona, me da error "Faltan parámetros requeridos". Pero veo que pasando el cursor la query está perfectamente; por el contrario si pongo la
query = "SELECT COUNT(*) ...WHERE titular = 'AMG' " (que es el contenido del TextBox, funciona perfectamente. ¿Por qué? ¿Me lo podríais aclarar? Muchas gracias.
Private Sub btnSuprimirtitular1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuprimirtitular1.Click
Dim cantidad As Integer = ObtenerCantidad()
MsgBox(cantidad)
If cantidad > 0 Then
If MessageBox.Show("¿Realmente desea suprimir este registro?", "Suprimir", MessageBoxButtons.YesNo, _
MessageBoxIcon.Warning) = DialogResult.No Then
MsgBox("Operación cancelada")
Exit Sub
End If
End If
End Sub
-------
Public Function ObtenerCantidad() As Integer
Try
Dim cnn As OleDb.OleDbConnection
cnn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLED B.4.0;Data Source=C:\Users\Alberto Moreno Gil\Mis documentos\bd4.mdb")
cnn.Open()
MsgBox(TitularTextBox.Text) ' Está bien: AMG
Dim query As String = "SELECT COUNT(*) FROM operaciones where titular =" & TitularTextBox.Text 'OCASIONA ERROR
'Dim query As String = "SELECT COUNT(*) FROM operaciones where titular = 'AMG'" 'fUNCIONA BIEN
Dim cmd As New OleDbCommand(query, cnn)
Return CInt(cmd.ExecuteScalar()) 'AQUI DA EL ERROR pero se refiere al SELECT...
Catch ex As Exception
MessageBox.Show(ex.Message, "Contar registros", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Function
