SoloCodigo

Hola!
Pues, se supone que sí. La idea es que se presenten varios campos de los registros que cumplan unas ciertas condiciones, no sólo uno. Esta es una prueba pero no me sale. Lo que pretendía era: se escribe un número de parte en la caja de texto y busca en las tablas el registro de ese número. Me he encontrado ejemplos de conexión y ya los calé todos pero no logro llamar los datos porque no tengo grid en Acces y a listbox no los envia. Creo que está mal la sintaxis, pero es que al escribir Lista1. no me da ninguna opción. Si alguien sabe de algún método para jalar los datos del servidor a formularios de Access, que no sea ODBC, se lo agradecería mucho.
Muchas gracias de nuevo.

Hola!
Cómo están?
Pues yo otra vez dando lata. Resulta que cometí un error que me ha costado una gran pérdida de tiempo. En mi proyecto, debo conectarme a un servidor as400, tiene varias bibliotecas pero a mí me interesa la que se llama RHDBD_16 -es el mismo nombre para la base de datos-, de ahí uso las tablas LGBS, TEILS y STRUS, la dirección del servidor es xx.xx.xx.xxx. Mi erro fue conectarme por ODBC, era muy lento pero yo podía soportarlo: mis jefes, no. Así que cree una tabla con una consulta de creación de tabla en access y metí mucho código en el editor de vb. Ya tengo todos los cálculos hechos de este modo, pero ahora debo conectarme al servidor y jalar sólo la base de datos RHDB_16. He leído que por ADO es mucho más rápido. Busqué unas cosillas y ya establecí la conexión al servidor, pero al meterle una consulta no hace nada. No sé si alguien pueda darme un ejemplo o algo y explicarme porque como que no doy una con ADO.
Este es el código de la conexión:

Public cn400 As New ADODB.Connection
Public cm_APILIB_PARTS As New ADODB.Command
Public cm_APILIB_SPROC2 As New ADODB.Command
Public rs_APILIB_PARTSDATA As ADODB.Recordset
Public rs_APILIB_SPROC2 As ADODB.Recordset
Option Compare Database
______________________________________
Private Sub Comando0_Click()
Dim strPARTNO As String
cn400.Open "Provider=IBMDA400;Data Source=192.168.11.10;", "", ""
Set cm_APILIB_PARTS.ActiveConnection = cn400
strPARTNO = Texto3
cm_APILIB_PARTS.CommandText = "select STBGNR, STKOMP FROM RHDBD_16.STRUS WHERE STKOMP LIKE '*" & strPARTNO & "*'"
cm_APILIB_PARTS.CommandType = adCmdText
Set rs_APILIB_PARTSDATA = cm_APILIB_PARTS.Execute
Lista1.AddItem (rs_APILIB_PARTSDATA.Fields(1).Value)

End Sub
_____________________________________
Private Sub Class_Terminate()
Set rs_APILIB_PARTS = Nothing
Set rs_APILIB_SPROC2 = Nothing
Set cm_APILIB_SPROC2 = Nothing
Set cm_APILIB_PARTS = Nothing
If Not cn400 Is Nothing Then
    cn400.Close
End Sub

Ojalá me puedan ayudar, no debe ser precisamente sobre as400, pero si se puede se agradece aún más; y miren que ya les estoy muy agradecida.
Saludos desde Querétaro, México y que tengan un extraordinariamente buen fin de semana.

Hola!
Cómo decirte que estoy muy agradecida contigo. Ya me estba resignando y le estaba buscando por otro lado. Funciona de maravilla. Sólo una pregunta más, no sé si sea por mi query, hace la suma total de las cantidades de todos los registros?
Este es el sql que le metí:
strSQL = "SELECT Sum(PLANEACION.LSLGBE) AS SumaDeLSLGBE FROM PLANEACION GROUP BY PLANEACION.STBGNR"
Yo pensé que cambiaría la cantidad según el conjunto, porque eso es lo que hace el query si lo ejecuto como consulta, pero con el código parece mandarme la suma total, no solo de los que repitan la combinación STBGNR y STKOMP.
Bueno, contestasté mi primer pregunta.
Muchas gracias porque creo que a muchos nos servirá.
Hasta luego y que sigas tan iluminado y dispuesto a contestar a los que no nos rifamos tanto.

Hola!
Estoy intentando hacer una suma, pero se me ha complicado proque implica varios campos de la misma columna.
Es esto, resulta que tengo una clave autonumérica, los campos: conjunto, componente, no_almacen y cantidad, entre otros. Varios registros pueden tener el mismo contenido en "conjunto" y en "componentes" pero mi consulta distinct los muestra porque, aunque yo sé que es lo mismo, los otros campos pueden variar. Lo que quiero hacer es sumar la "cantidad" de los que tengan lo mismo en "conjunto" y en "componente". Intenté esto:
strSQL="select sum(PLANEACION.COMPONENTE) from PLANEACION GROUP BY conjunto"
Y quiero tener el resultado en un textbox, pero no me manda nada ni error siquiera.
Pensé en hacerlo por programación, hacer que recorra los registros y los que encuentre con la misma combinacion "conjunto-componente" sume la cantidad. Pero no sé cómo hacerlo.
Hice una consulta en Access, sale bien, pero no sé cómo juntarlo en la consulta que genera al formulario.
Cualquiera de los métodos que se pueda usar y un ejemplo para adaptar, envíenlo y traten de explicarlo porque aún soy bastante nueva en esto, mi correo es:
marisol_ylonen@yahoo.com.mx
Cualquier respuesta es bienvenida, gracias

Gracias por la ayuda, estoy muy feliz porque ya lo resolví .
Es así:

select conjunto, count(distinct componente) from basedatos/tcomponentes where empresa='5' GROUP BY conjunto

Y creo que tiene lógica, contar los distintos componentes por conjunto.
Ahora el problema es cuando la meto en una consulta donde ya se incluya todo lo que necesito, pero ahora creo que podría resolverlo -no descarto ayuda, porque me podría pasar lo mismo con esta que me costó tanto trabajo-
Lo siento, no puedo poner la información que me pides, pero adjunto un archivo con la información que quiero obtener a partir de las consultas, lo que me falta se genera a partir de esto pero no lo puedo hacer hasta que tenga lo de los componentes.

select stfirm, stkomp, tebez1, stbgnr, lslanr, temagr, lslgbe, count
(distinct stkomp) from rhdbd_16/ strus, teils, lgbs where strus.stko
mp=teils.tetenr and teils.temagr="ASOX" and lgbs.lslanr="CO"        
GROUP BY stbgnr                                                    

La información que va en el archivo, la obtuve antes de tratar de incluir el count

Una vez más: muchas gracias

Acabo de entrar al foro y todavía estoy medio torpe en esto, seguro que mi problema te parecerá pan comido, puedes ayudarme?
Por favor, escríbeme a este correo. Te aseguro que no batallarás tanto, pero a mí me está desesperando porque estoy segura de que el asunto es por demás simple.
Gracias, este es mi correo:
za_ylonen@yahoo.com.mx

Pues si te interesa, hay una página de mi escuela, vienen algunos ejemplos de código en ejercicios completos. Ojalá te sirvan, te paso la dirección:

Creo que no puedo agregar direcciones, pero entra a la págna de la carrera de Tecnologías de la Información de la UTEQ en Querétaro -México-, busca en Bases de datos y al final viene un Link que dice Manual de Visual Basic.

Creo que será más fácil que la encuentres si entras la buscas como Lizard

Qué tengas un buen día

SELECT componente, conjunto FROM basedatos/tabla WHERE empresa='5' order by conjunto                                                              
Ejecución completa de sentencia SELECT                              
Esta funciona bien, me da esto:
componente          conjunto        
MS0000L002       C922-XXX-01  
91121401           C922-XXX-01  
ES0000L001        C922-XXX-02  
MP000106           D258003125-02
1250520107.4     D258003125-02
1251010108.2     D258003125-02
1251251103        D258003125-02
1251355107.2     D258003125-02
1254488129        D258003125-02
ES43001004        D258003125-02
ES44001904        D258003125-02
ES43001804        D258003125-02
ES0000A0125      D258003125-02
1250520107.4     D258003559-01

No sé si se entienda bien lo que busco, por ejemplo, si llego a un registro en el formulario con el conjunto D258003125-02, me diga también cuántas piezas lleva ese conjunto y que en otra caja de texto me diga a qué conjunto pertenece:
No_parte(componente)       ES0000A0125
Conjunto                           D258003125-02
No_piezas del conjunto       10

A lo mejor haciendo una comparación por conjunto y si son iguales se sumen, pero no sé cómo hacerlo. Y es que aparte en el sistema están guardadas unas piezas que no se  fabrican, como componente empiezan con ES*, y en su descripción es Subensamble *. Cuando se muestre la información estos datos no deben aparecer tampoco en el numero de componentes por conjunto.

¡¡¡¡¡¡Ayúdenme por favor, me estoy desesperando!!!!!!!

Saludos a todos,

Estoy ejecutando una consulta en el sql del as400. Tengo un campo
"componentes" y otro "conjunto" en la misma tabla. Tienen en común un campo llamado "No_Empresa". "Componente" es una pieza que pertenece a un "conjunto", entonces también tienen en común "conjunto". Bueno, necesito mostrar esta información en un formulario, que además de que me muestre a que conjunto pertenece cada pieza, me diga cuántos componentes lleva cada conjunto.
El punto es que no sé si sea count lo que debo usar y si es cómo se usa?
La sintaxis para las consultas en el as400 es algo así:
select componente, conjunto from basedatos/tabla where No_Empresa='5' order by conjunto

Esto me devuelve los componentes y conjuntos ordenados por el conjunto. Ahora, cómo le hago para que cuente cuántos componentes por conjunto son?.

Muchas gracias por su atención.
 

este es el código que estoy manejando:
Private Sub LSLANR_Change()
If LSLANR.Text = "CO" Then Texto12.Text = "Componentes"
Else: Texto14.Text = "Recibo"
End If
End Sub

Hace mucho que no trabajo en Visual Basic pero me parece que la sintaxis del generador de código de access es distinta a pesar de que es vb. A lo mejor es el if lo que falla, cómo puedo arreglarlo?
Además de esto, debo meter cálculos y la verdad es que no pensé que fuera a tardar tanto con esto. Estos cálculos vienen hasta que haya obtenido toda mi información y tener esto me servirá de base. garcias otra vez