Visual Basic - no se han especificado valores para algunos de los parámetros requeridos

Life is soft - evento anual de software empresarial

no se han especificado valores para algunos de los parámetros requeridos

Publicado por Marco (11 intervenciones) el 23/04/2012 04:23:21

Private Sub CommandButton1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim q As String

If TextBox1.Text = "" Then
MsgBox "Por favor digita tus 6 digitos de empleado"
Exit Sub
End If

Tengo este código en VB6, en un botón para buscar un número de empleado y que cargue sus datos en un form, sin embargo me aparece un error que no logro averiguar que es: no se han especificado valores para algunos de los parámetros requeridos.

Ojala me puedan ayudar o recomendar otra forma de cargar los datos de Access a VB

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = E:\VB\BD\BDVinc.mdb; "

MsgBox "ya me conecte", vbOKOnly, "conexion"

q = "select * from Matriz where NoEmpleado like '%" & TextBox1.Text & "%'"

Set rs = New ADODB.Recordset
rs.Open q, cn, adOpenStatic EL ERROR ME APAREC EN ESTA LINEA

UserForm2.Label33 = rs.Fields!NoPersonal
UserForm2.Label31 = rs.Fields!ApellidoPaterno
UserForm2.Label36 = rs.Fields!ApellidoMaterno
UserForm2.Label37 = rs.Fields!Nombre
UserForm2.Label30 = rs.Fields!Puesto
UserForm2.Label35 = rs.Fields!BU
UserForm2.Label27 = rs.Fields!Correo
UserForm2.Label28 = rs.Fields!Ext

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

Unload UserForm4
Load UserForm2
UserForm2.Show

Exit Sub

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

no se han especificado valores para algunos de los parámetros requeridos

Publicado por cmgcharli (128 intervenciones) el 23/04/2012 11:58:47

Normalmente este tipo de error es porque el nombre del campo de la consulta no es correcto en la consulta pones NoEmpleado y cuando cargas lo Label pones NoPersonal mira haber si el nombre del campo de la consulta debe de ser NoPersonal

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

no se han especificado valores para algunos de los parámetros requeridos

Publicado por Marco (11 intervenciones) el 23/04/2012 16:30:28

Claro!!!, como no me di cuenta, solucionado gracias.

Valora esta respuesta

Comentar

no se han especificado valores para algunos de los parámetros requeridos

Publicado por claudio (1 intervención) el 25/04/2012 19:51:36

Os, amo!!! Justo estaba teniendo el mismo problema y llevava como una hora para ver el error.

Valora esta respuesta

Comentar

no se han especificado valores para algunos de los parámetros requeridos

Publicado por Daniel (1 intervención) el 20/10/2012 08:50:13

Capo......!

Valora esta respuesta

Comentar

no se han especificado valores para algunos de los parámetros requeridos

Publicado por Carlos (1 intervención) el 15/05/2015 07:29:07

Private Sub FillDataGridView(ByVal Query As String)

        da = New OleDbDataAdapter(Query, cn)

        dt.Clear()

        da.Fill(dt)

        With DataGridView1

            .DataSource = dt

            .Columns(0).HeaderText = "TIPO DE DOCUMENTO"

            .Columns(1).HeaderText = "RECIBE / ENVIA"

            .Columns(2).HeaderText = "FECHA EMISION"

            .Columns(3).HeaderText = "FECHA RECEPCIÓN"

            .Columns(4).HeaderText = "# DOCU"

            .Columns(5).HeaderText = "CODIGO"

            .Columns(6).HeaderText = "DIRIGIDO A "

            .Columns(7).HeaderText = "CARGO"

            .Columns(8).HeaderText = "EMITE"

            .Columns(9).HeaderText = "CARGO"

            .Columns(10).HeaderText = "SUMILLADO 01"

            .Columns(11).HeaderText = "FECHA"

            .Columns(12).HeaderText = "SUMILLADO 02"

            .Columns(13).HeaderText = "FECHA"

            .Columns(14).HeaderText = "SUMILLADO 03"

            .Columns(15).HeaderText = "FECHA"

            .Columns(16).HeaderText = "ASUNTO"

            .Columns(17).HeaderText = "LINK ARCHIVO"

            .Columns(18).HeaderText = "xx"

            .Columns(18).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

        End With

    End Sub

    Private Sub BtnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSearch.Click

Try

             FillDataGridView("select * from [BDOFICIOS$] where id='" & ComboBox1.Text & "'")

            TextBox1.Text = dt.Rows(0).Item(1)

            TextBox2.Text = dt.Rows(0).Item(2)

            TextBox3.Text = dt.Rows(0).Item(3)

            TextBox4.Text = dt.Rows(0).Item(4)

            TextBox5.Text = dt.Rows(0).Item(5)

            TextBox6.Text = dt.Rows(0).Item(6)

            TextBox7.Text = dt.Rows(0).Item(7)

            TextBox8.Text = dt.Rows(0).Item(8)

            TextBox9.Text = dt.Rows(0).Item(9)

            TextBox10.Text = dt.Rows(0).Item(10)

            TextBox11.Text = dt.Rows(0).Item(11)

            TextBox12.Text = dt.Rows(0).Item(12)

            TextBox13.Text = dt.Rows(0).Item(13)

            TextBox14.Text = dt.Rows(0).Item(14)

            TextBox15.Text = dt.Rows(0).Item(15)

            TextBox16.Text = dt.Rows(0).Item(16)

            TextBox17.Text = dt.Rows(0).Item(17)

            TextBox18.Text = dt.Rows(0).Item(18)

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Critical, Text)

        End Try

    End Sub

Tengo el Mismo problema pero no le encuentro la falla
Mis datos estan en un Excel que los quiero cargar en un formulario Visual basic 10 ocurre cuando presiono el boton actualizar

Valora esta respuesta

Comentar

no se han especificado valores para algunos de los parámetros requeridos

Publicado por Eison (1 intervención) el 11/12/2015 03:44:28

a mi me paso lo mismo porque mi selección de consulta es un valor alfabético, si lo cambio a numero si me da bien .

Valora esta respuesta

Comentar

no se han especificado valores para algunos de los parámetros requeridos

Publicado por Rubén González (7 intervenciones) el 28/09/2016 14:01:56

Tengo el mismo mensaje, pero estoy seguro que mi query está correcto, porque cuando me da el error, voy a depurar y en la ventana de depuración imprimo la variable que contiene el query, lo copio y lo ejecuto en el VisData y se ejecuta correctamente. ¿Qué otra causa puede arrojar este mensaje?

Valora esta respuesta

Comentar

Modificar Tablas segun el Mes

contador con campo fecha