Visual Basic - error al mostrar una consulta

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 29
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error al mostrar una consulta

Publicado por luis (17 intervenciones) el 27/03/2020 23:49:10
hola Web del programador

cordial saludo

soy aprendiz de este lenguaje de programación y estoy realizando un programa en vb 6, pero ahora tengo una inquietud por un error que me sale en una consulta que hago en sql el cual no domino muy bien, si me pueden colaborar se los agradecería.

consiste en lo siguiente.
tengo un formulario que cuando busco los clientes me los arroja en un datagrib la búsqueda es por cédula ciudadanía.
hasta hay todo bien pero cuando selecciono el registro de la grilla me muestra un error.


error

exactamente en este codigo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'generamos sub para filtrar
Sub filtrarfacturas()
'ESTE CODIGO DEBE SIRVE PARA TOMAR LA CEDULA SELECCIONADA Y MOSTRAR LAS FACTURAS A CREDITO DE LA TABLA VENTA FACTURA  Y LOS MUESTRA
'EN DATAGRID DE OTRO FORMULARIO
 
Dim RSfiltro As New ADODB.Recordset
Dim sql As String
 
sql = "select * from ventafactura where (ventafactura.codigocliente='" & cedula.Caption & "') AND (ventafactura.estado= 'CREDITO' )"
RSfiltro.Open sql, base, adOpenStatic, adLockOptimistic
consultacobros.Show
Set consultacobros.grillacobro.DataSource = RSfiltro
 
'UCase(Trim(cedula.caption))
End Sub


aca la imagen del codigo en error.

foto-error-2

les voy a ilustrar por medio de fotos los códigos del formulario.



codigo1

codigo2

codigo3

lo que pretendo es que cuando filtro el registro o sea el cliente en la grilla se llenen los labels y en el label cedula por medio del evento change me llame el procedimiento filtrarfacturas , que no es mas que mostrar las facturas a credito del cliente seleccionado en una grilla de otro formulario llamado consultacobro.

Gracias de antemano por su colaboración gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de gilman
Val: 516
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error al mostrar una consulta

Publicado por gilman (281 intervenciones) el 28/03/2020 08:50:31
Buenos días: esto no es un problema de VB, es de SQL, el problema está en la clausula WHERE de la sentencia, verifica los campos incluidos y que son de tipo 'cadena'
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 29
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error al mostrar una consulta

Publicado por luis (17 intervenciones) el 28/03/2020 16:04:06
Gracias por tu observación ya lo resolví con este código

solo tuve que agregar que se cumpliera otra condición así = (ventafactura.estado= 'CREDITO' ) and

el código quedo así =

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub filtrarcobro()
 
'obtener nombre campo a filtrar
If Cbofiltrar.Text = "Cedula" Then nombrecampo = "codigocliente"
 
'programar filtro
 
With Adofiltrar
   .CursorLocation = adUseClient
    'vamos a conectar bd
   .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\baseoptica.mdb;Persist Security Info=False"
 
    'contenido de la caja de texto del filtro unido a un comodin de busqueda
 
    busca = UCase(Trim(txtfiltrar)) & "%"
 
    '.RecordSource' "aqui va consulta sql"
 
    Adofiltrar.RecordSource = "select * from ventafactura where (ventafactura.estado= 'CREDITO' )
    and [" & nombrecampo & "]like '" & busca & "'"
 
    .Refresh
 
    ' mostrarlo en la grilla
 
Set grillacobro.DataSource = Adofiltrar
 
End With
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 29
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

error al mostrar una consulta

Publicado por luis (17 intervenciones) el 28/03/2020 16:06:05
Muchas gracias gilman por tu observación
bendiciones.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar