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

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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 4.022
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Andres Leonardo (1671 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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 50
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.022
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Andres Leonardo (1671 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,

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
31
32
33
34
35
36
37
38
39
40
41
42
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
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: 50
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.022
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Andres Leonardo (1671 intervenciones) el 24/03/2020 15:15:46
Estimado
Intenta asi


Digamos que ta tienes el RS lleno

Preguntas

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'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
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: 50
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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
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: 50
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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?

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
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.022
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Andres Leonardo (1671 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

1
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
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: 50
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.022
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Andres Leonardo (1671 intervenciones) el 24/03/2020 20:13:43
Pues deberia ser algo asi

1
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
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: 50
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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
1
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:

1
2
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 :

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

estuve pensando en hacer la consulta de esta forma:

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
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.022
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Andres Leonardo (1671 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

1
rst.Open "SELECT * FROM Empleado where ced_empleado = " & consulta  & " INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado", base
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: 50
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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:
1
2
3
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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.022
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Andres Leonardo (1671 intervenciones) el 25/03/2020 20:54:07
Mil disculpas mi error

debe ser asi

1
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
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: 50
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.022
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Andres Leonardo (1671 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.

1
rst.Open "SELECT * FROM Empleado   INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado where empleado.ced_empleado = '" & consulta  & "'"
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: 50
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.022
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Andres Leonardo (1671 intervenciones) el 26/03/2020 00:09:03
prueba asi en access

1
SELECT * FROM Empleado INNER JOIN apadm on Empleado.cargo_empleado=apadm.cargo_empleado where empleado.ced_empleado = 'aqui la cedula'
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: 50
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.022
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Andres Leonardo (1671 intervenciones) el 26/03/2020 01:38:50
asi es debes verificar que te devuelva datos y ahi pruebas

Saludos
Andres
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

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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.022
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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

Publicado por Andres Leonardo (1671 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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar