none
error 0X80040E07 ---> no coincide los tipos de datos en la expresion RRS feed

  • Pregunta

  • Public dr As OleDb.OleDbDataReader
    Public cmd3 As New OleDb.OleDbCommand

        Public Sub ConsultarAsociados(ByRef identificacion As String)

            cmd3.Connection = ConAsociados
            cmd3.CommandType = CommandType.Text
            cmd3.CommandText = "SELECT NOMBRES, APELLIDOS, CONTACTO, NOMBREFINCA, DEPARTAMENTO, MUNICIPIO, VEREDA, LOCALIZACION, ALTURA, VARIEDAD1, HECSEMBRADA1, ARBSEMBRADO1, VARIEDAD2, HECSEMBRADA2, ARBSEMBRADO2, VARIEDAD3, HECSEMBRADA3, ARBSEMBRADO3 FROM ASOCIADOS WHERE CEDULA=" + identificacion

            Try
                dr = cmd3.ExecuteReader()

            Catch ex As Exception
                MsgBox(ex.ToString)

            End Try


        End Sub

     - y en el boton de buscar tengo:

        If (Me.txtCedulapersonas.Text = "") Then

                MsgBox("NO HA ESCRITO UNA CEDULA", MsgBoxStyle.Critical, "ERROR DE BUSQUEDA")

            Else

                ConsultarAsociados(Me.txtCedulapersonas.Text)

                If dr.Read Then

                    txtNombrespersonas.Text = dr(0).ToString
                    txtApellidospersonas.Text = dr(1).ToString
                    txtContactopersonas.Text = dr(2).ToString
                    TxtNombrefinca.Text = dr(3).ToString
                    TxtDepartamento.Text = dr(4).ToString
                    TxtMunicipio.Text = dr(5).ToString
                    TxtVereda.Text = dr(6).ToString
                    TxtLozalicacion.Text = dr(7).ToString
                    TxtAltura.Text = dr(8).ToString
                    TxtVariedad1.Text = dr(9).ToString
                    TxtHecArboles1.Text = dr(10).ToString
                    TxtSemArboles1.Text = dr(11).ToString
                    TxtVariedad2.Text = dr(12).ToString
                    TxtHecArboles2.Text = dr(13).ToString
                    TxtSemArboles2.Text = dr(14).ToString
                    TxtVariedad3.Text = dr(15).ToString
                    TxtHecArboles3.Text = dr(16).ToString
                    TxtSemArboles3.Text = dr(17).ToString

                    dr.Close()
                    BtnActualizarAsociados.Enabled = True

                Else

                    MsgBox("NO SE ENCONTRÓ LA CEDULA EN LA BASE DE DATOS", MsgBoxStyle.Critical, "ERROR DE BÚSQUEDA")

                End If

            End If

        End Sub

    PORQUE SI TENGO LA BASE DE DATOS BIEN, ME SALE ESE TIPO DE ERROR


    ANDRES FELIPE BAHAMON MONJE

    miércoles, 17 de mayo de 2017 2:10

Respuestas

  • Hola ANDRESF BAHAMON

    Trabaja con parámetros y de forma ordenada, no entiendo el por qué pasas ByRef; sin embargo enfocándome a lo que se te presenta, te recomiendo manejarlo de la siguiente forma:

    Public Sub ConsultarAsociados(ByRef identificacion As String) Try Dim query As String = "SELECT NOMBRES, APELLIDOS, CONTACTO, NOMBREFINCA, DEPARTAMENTO, MUNICIPIO, VEREDA, LOCALIZACION, ALTURA, VARIEDAD1, HECSEMBRADA1, ARBSEMBRADO1, VARIEDAD2, HECSEMBRADA2, ARBSEMBRADO2, VARIEDAD3, HECSEMBRADA3, ARBSEMBRADO3 FROM ASOCIADOS WHERE CEDULA= @identificacion" Dim cmd3 As New OleDb.OleDbCommand(query, ConAsociados) cmd3.CommandType = CommandType.Text cmd3.Parameters.AddWithValue("@identificacion", identificacion) ConAsociados.Open() dr = cmd3.ExecuteReader() If dr.Read() Then txtNombrespersonas.Text = dr(0).ToString txtApellidospersonas.Text = dr(1).ToString txtContactopersonas.Text = dr(2).ToString TxtNombrefinca.Text = dr(3).ToString TxtDepartamento.Text = dr(4).ToString TxtMunicipio.Text = dr(5).ToString TxtVereda.Text = dr(6).ToString TxtLozalicacion.Text = dr(7).ToString TxtAltura.Text = dr(8).ToString TxtVariedad1.Text = dr(9).ToString TxtHecArboles1.Text = dr(10).ToString TxtSemArboles1.Text = dr(11).ToString TxtVariedad2.Text = dr(12).ToString TxtHecArboles2.Text = dr(13).ToString TxtSemArboles2.Text = dr(14).ToString TxtVariedad3.Text = dr(15).ToString TxtHecArboles3.Text = dr(16).ToString TxtSemArboles3.Text = dr(17).ToString Else MsgBox("NO SE ENCONTRÓ LA CEDULA EN LA BASE DE DATOS", MsgBoxStyle.Critical, "ERROR DE BÚSQUEDA") End If dr.Close()
    ConAsociados.Close() Catch ex As Exception MsgBox(ex.ToString)
    Finally

    ConAsociados.Close() End Try End Sub 'y en el boton de buscar tengo: If (Me.txtCedulapersonas.Text = "") Then MsgBox("NO HA ESCRITO UNA CEDULA", MsgBoxStyle.Critical, "ERROR DE BUSQUEDA") Else ConsultarAsociados(txtCedulapersonas.Text) BtnActualizarAsociados.Enabled = True End If

    Saludos


    Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.


    miércoles, 17 de mayo de 2017 2:36