none
no se controlo oledbexcepcion RRS feed

  • Pregunta

  • Dim consulta As String
            Dim lista As Byte
            If txtcelu.Text <> "" Then
                consulta = "SELECT * FROM NUMEROS WHERE CELULAR = '" & txtcelu.Text & "'"
                adaptador = New OleDbDataAdapter(consulta, conexion)
                registros = New DataSet
                adaptador.Fill(registros, "NUMEROS").....................(ME DA ERROR AQUI)
                lista = registros.Tables("NUMEROS").Rows.Count
                If lista <> 0 Then
                    dgvnumeros.DataSource = registros
                    dgvnumeros.DataMember = "NUMEROS"
                Else
                    MsgBox("NO hay registros con dicho numero", vbCritical, "Atención!")
                    txtcelu.Clear()
                    dgvnumeros.Columns.Clear()
                    txtcelu.Focus()
                End If
            End If
    • Cambiado Enrique M. Montejo martes, 24 de febrero de 2015 8:10 Pregunta relacionada con expeciones producidas por objetos de acceso a datos.
    lunes, 23 de febrero de 2015 1:15

Todas las respuestas

  • hola

    lo primero que puedo decirte es que debes usar parametros, concatenar los valores en un string no es una buena practica

    Dim consulta As String = "SELECT * FROM NUMEROS WHERE CELULAR = @celular" Dim cmd As New OleDbCommand(consulta, conexion) cmd.Parameters.AddWithValue("@celular", txtcelu.Text)

    Dim adaptador As New OleDbDataAdapter(cmd) Dim registros As New DataTable adaptador.Fill(registros)

    por supuesto doy por valido que la conexion esta correctamente definida y se conecta a la db

    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina

    • Propuesto como respuesta Sergio Parra lunes, 23 de febrero de 2015 7:58
    lunes, 23 de febrero de 2015 4:18