Visual Basic - ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Life is soft - evento anual de software empresarial

Pos: 31

Val: 46

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por poter (27 intervenciones) el 17/03/2020 22:52:03

buenas estoy intentando hacer una consulta en dos tablas en vb y consegui un ejemplo que lo aplique. pero yo nesecito que se muestren los datos en labels y que me permita primero ingresar la cedula y despues realice la consulta

Private Sub Command5_Click()

Dim base As Connection, rst As Recordset, ruta As String

Set base = New Connection

Set rst = New Recordset

ruta = App.Path & "\rh.accdb"

base.CursorLocation = adUseClient

base.Open "PROVIDER=Microsoft.ACE.OLEDB.12.0; Data Source=" & ruta

rst.Open "SELECT * FROM Empleado " & "INNER JOIN apadm ON Empleado.cargo_empleado = apadm.cargo_empleado", base

Set DataGrid1.DataSource = rst

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

Pos: 1

Val: 3.117

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por Andres Leonardo (1798 intervenciones) el 19/03/2020 20:05:53

debes recorrer el Recosrset mas no asignarlo a la grid

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

Pos: 31

Val: 46

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por poter (27 intervenciones) el 19/03/2020 20:07:29

Me puedes explicar mediante código como seria?
es la primera vez que trabajo con esto

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por Andres Leonardo (1798 intervenciones) el 23/03/2020 23:18:37

este codigo llena un grid pero obteniendo los valores, lo unico reemplaza tu recordset haz un seguimiento y listo

**crea un msglexgrid y ponlo en tu form,

Sub llenaGridRs(Msf As MSFlexGrid, rsio As Recordset)

Msf.Clear

Msf.Cols = 2

Msf.Rows = 2

'****si no hay resultados ********

    If rsio.EOF = True And rsio.BOF = True Then

    MsgBox "No existen Resultados para mostrar", vbInformation, "Consulta de Pendientes"

    rsio.Close

    Exit Sub

    End If

'salgo del sub

'**********************************

Dim i, j, k As Integer

   'Rs.Open SQL, conexion

   Msf.Cols = rsio.Fields.Count '+ 1

   Msf.Clear

   j = 0

   While j < Val(Msf.Cols)

    Msf.TextMatrix(0, j) = rsio.Fields(j).Name 'da el nombre del select

    Msf.ColWidth(j) = 2000 ' para dar un correcto ancho

     j = j + 1

   Wend

    i = 1

    k = 0

    While Not rsio.EOF

        i = i + 1

        Msf.Rows = i

        k = 0

        While k < j

            Msf.TextMatrix(i - 1, k) = "" & rsio(k)

            k = k + 1

        Wend

        rsio.MoveNext 'aumenta el contador

    Wend

       rsio.Close

End Sub

Valora esta respuesta

Comentar

Pos: 31

Val: 46

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por poter (27 intervenciones) el 23/03/2020 23:38:03

Estimado Andres yo nesecito que después de consultar los datos se me muestren en labels, estuve investigando y preguntando por otros lados y me dijeron que aplicará el label. Caption = rst! NombreCampo pero cuando lo hago me tira el error "el recordset actual no admite actualizaciones"

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por Andres Leonardo (1798 intervenciones) el 24/03/2020 15:15:46

Estimado
Intenta asi

Digamos que ta tienes el RS lleno

Preguntas

'Esto en caso de que el recorset esta vacio

   If rs.EOF = True And rs.BOF = True Then

    MsgBox "No existen Resultados para mostrar", vbInformation, "Consulta de Pendientes"

    rs.Close

    Exit Sub

else

   'Siempre le concateno un caracter vacio para manejos del null

    NombredelLabel1.Caption =  "" & Rs("NombdeDelCampo1")

    NombredelLabel2.Caption =  "" & Rs("NombdeDelCampo2")

    rs.Close

    End If

'salgo del sub

'**********************************

Cuentame como te fue

Valora esta respuesta

Comentar

Pos: 31

Val: 46

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por poter (27 intervenciones) el 24/03/2020 15:19:05

Gracias por el apoyo, apenas pueda probare el código

Valora esta respuesta

Comentar

Pos: 31

Val: 46

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por poter (27 intervenciones) el 24/03/2020 15:58:55

cuando ingreso una cedula que esta en la base de datos me salta el "No existen Resultados para mostrar" alguna modificacion que haya que hacerle al codigo?

Private Sub Command3_Click()

Dim base As Connection, rst As Recordset, ruta As String

Dim consulta

Set base = New Connection

Set rst = New Recordset

ruta = App.Path & "\rh.accdb"

base.CursorLocation = adUseClient

base.Open "PROVIDER=Microsoft.ACE.OLEDB.12.0; Data Source=" & ruta

consulta = InputBox("Por favor ingrese la cedula que desea consultar:", "buscar registros")

If consulta <> Empty Then

rst.Open "SELECT * FROM Empleado " & "INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado", base

 If rst.EOF = True And rst.BOF = True Then

    MsgBox "No existen Resultados para mostrar", vbInformation, "Consulta de Empleados"

    rst.Close

    Exit Sub

Else

    Label40.Caption = "" & rst("ced_empleado")

    Label55.Caption = "" & rst("nom_empleado")

    rst.Close

    End If

End If

End Sub

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por Andres Leonardo (1798 intervenciones) el 24/03/2020 19:43:05

Prueba que el script te de un resultado pega el script en la base y mira si te da resultados

StringSQL = "SELECT * FROM Empleado " & "INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado"

capura el valor de STRING SQL ymandolo a access y mira si te da valores

Valora esta respuesta

Comentar

Pos: 31

Val: 46

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por poter (27 intervenciones) el 24/03/2020 19:53:25

acabo de hacer la prueba y me da error, tome una captura http://prntscr.com/rm2wga

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por Andres Leonardo (1798 intervenciones) el 24/03/2020 20:13:43

Pues deberia ser algo asi

SELECT * FROM Empleado INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado

Mira si esta te da resultado si deseas podriamos hacer una asiustencia con ZOOM

Quedo atento

Valora esta respuesta

Comentar

Pos: 31

Val: 46

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por poter (27 intervenciones) el 24/03/2020 23:06:42

esta consulta en acces

SELECT * FROM Empleado INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado

si funciona pero salen los campos vacios.

yo habia diseñado esta:

SELECT Empleado.cedula AS cedula, Empleado.nom_empleado AS nombre, Empleado.ape_empleado AS apellido, Empleado.cargo_empleado, Empleado.eb_empleado AS entidad_banc, apadm.sb_apadm

FROM Empleado INNER JOIN apadm ON Empleado.cargo_empleado = apadm.cargo_empleado;

y al momento de correrla en acces me pide la cedula y me trae datos pero al momento de poner una cedula diferente solo cambia la cedula, se queda el mismo nombre y todos los datos iguales y cuando intente pasarla a visual y correrla tuve que conventirla asi :

"SELECT * FROM Empleado " & "INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado"

estuve pensando en hacer la consulta de esta forma:

Dim base As Connection, rst As Recordset, ruta As String

Dim consulta

Set base = New Connection

Set rst = New Recordset

ruta = App.Path & "\rh.accdb"

base.CursorLocation = adUseClient

base.Open "PROVIDER=Microsoft.ACE.OLEDB.12.0; Data Source=" & ruta

consulta = InputBox("Por favor ingrese la cedula que desea consultar:", "buscar registros")

If consulta <> Empty Then

rst.Open "SELECT * FROM Empleado where ced_empleado = " & consulta & "" & "INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado", base

If rs.EOF = True And rs.BOF = True Then

    MsgBox "No existen Resultados para mostrar", vbInformation, "Consulta de Pendientes"

    rs.Close

    Exit Sub

else

   'Siempre le concateno un caracter vacio para manejos del null

    Label40.Caption = "" & rst("ced_empleado")

    Label55.Caption = "" & rst("nom_empleado")

    rst.Close

    End If

End If

End Sub

pero me tira el siguiente error y cuando le doy a depurar me envia a la linea " rst.Open "SELECT * FROM Empleado where ced_empleado = " & consulta & "" & "INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado", base" y la marca en amarillo

Screenshot_10

sera que esta mal mi logica o falta algo? o alguna otra manera de hacer lo que yo nesecito?

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por Andres Leonardo (1798 intervenciones) el 25/03/2020 14:52:42

Como indica el error es un error de sintaxis en el comando sql despues de la cedula que esta en la variable Consulta falta un espacio

intenta asi

rst.Open "SELECT * FROM Empleado where ced_empleado = " & consulta  & " INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado", base

Valora esta respuesta

Comentar

Pos: 31

Val: 46

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por poter (27 intervenciones) el 25/03/2020 18:42:28

andres me sigue dando el mismo error de la imagen pasada. intente hacer la consulta simple sin el inner join y si funciona, use este codigo:

consulta = InputBox("Por favor ingrese la cedula que desea consultar:", "buscar registros")

If consulta <> Empty Then

rst.Open "SELECT * FROM Empleado where ced_empleado = " & consulta & "", base

y me muestra en los labels todo perfecto.

pero cuando intento agregar el inner join da error, el tema esta en como hacer para combinar los dos pienso

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por Andres Leonardo (1798 intervenciones) el 25/03/2020 20:54:07

Mil disculpas mi error

debe ser asi

rst.Open "SELECT * FROM Empleado   INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado where ced_empleado = '" & consulta  & "'"

Te puse la cedula si fuera alfa numerica si en caso la identificacion comienza con 0
la estructura de la consulta SQL es

SELECt todos los campos
from tabla 1
inner join tabla 2 on tabla1campoclave = tabla2campoclave
where campo condicion campo criterio

estbamos haciendo todo un shampoo

Valora esta respuesta

Comentar

Pos: 31

Val: 46

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por poter (27 intervenciones) el 25/03/2020 21:13:35

estimado intente correr tu codigo y ahora presenta el siguiente error, al darle a depurar me manda al codigo rst.open .... y lo marca en amarillo. yo probando tambien habia pensado en poner el where al final.
sera que hay que definir el where al principio y al final? la verdad no se me ocurre cual sea el problema e estado buscando informacion y consultando en muchos sitios :(

Screenshot_11

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por Andres Leonardo (1798 intervenciones) el 25/03/2020 22:41:46

coloca en la consulta asi...

pero primero prueba en access asi

SELECT * FROM Empleado INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado where ced_empleado = 'aqui la cedula'

en el programa asi.

rst.Open "SELECT * FROM Empleado   INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado where empleado.ced_empleado = '" & consulta  & "'"

Valora esta respuesta

Comentar

Pos: 31

Val: 46

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por poter (27 intervenciones) el 25/03/2020 23:59:16

al hacer la consulta en acces podria decirse que sale el mismo error que en visual,
Screenshot_12

y al colocar ese codigo en visual agarra el msgbox de "No existen Resultados para mostrar" intuyo que habria que declarar o como setear el campo para que lo reconozca porque digamos se soluciono el error de antes que no corria

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por Andres Leonardo (1798 intervenciones) el 26/03/2020 00:09:03

prueba asi en access

SELECT * FROM Empleado INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado where empleado.ced_empleado = 'aqui la cedula'

Valora esta respuesta

Comentar

Pos: 31

Val: 46

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por poter (27 intervenciones) el 26/03/2020 00:28:23

Ahora si funciona la consulta en acces pero salen los campos vacíos, creo que falta algo para que traiga los datos mediante la cédula

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por Andres Leonardo (1798 intervenciones) el 26/03/2020 01:38:50

asi es debes verificar que te devuelva datos y ahi pruebas

Saludos
Andres

Valora esta respuesta

Comentar

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por Maria Muñoz (1 intervención) el 25/03/2020 15:00:40

Hola necesito ayuda para resolver unos problemas de metodos numericos especificamente sobre la ecuacion del calor y tambien ecuaciones diferenciales parciales. Espero su pronta respuesta, gracias.

Valora esta respuesta

Comentar

Pos: 1

Val: 3.117

ayuda con codigo sql vb6 - nesecito que se muestren los datos en labels

Publicado por Andres Leonardo (1798 intervenciones) el 25/03/2020 20:55:11

estimada no entiendo lo que desea
quizas deberia crear un nuevo pedido
incluir un ejemplo de como se calcula y ver como lo desea presentar para poderla ayudar de major manera

Valora esta respuesta

Comentar

Ayuda con patrón para String

CONVERTIR NÚMEROS A LETRAS EN VISUAL BASIC