Hola buenas a todos me podrían corregir este código que no me funciona muchas gracias

‘con esto quiero hacer una consulta

If DEnv.rsCom.State Then DEnv.rsCom.Close

DEnv.Commands("Com").CommandText = "Select * From Productos, Stock Where CdArticulo = ' “& Text1 &” ' order by CdArticulo"
DEnv.Commands("Com ").Execute
If DEnv. rsCom.EOF Then
MsgBox
Else
TextCodArticulo.Text = DEnv.rsCom.Fields(1)
End If)

Prueba con...

__________________
Pablo Tilotta
Administrador de...
www.vb-mundo.com
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Visual Basic.NET

Ya puesto en el tema quisiera hacer una pregunta mas sobre el DataEnv cuando se hace un sql a dos tablas hay que configurar el control de alguna manera diferente de cuando se le hace a una tabla
Me explico
Yo hago esto:
Select * From Productos Where CdArticulo ='" & TextCodArticulo & "'"
Me encuentra el registro indicado

Y de esta forma, añadiendo otra tabla
Select * From Productos, stock Where CdArticulo ='" & TextCodArticulo & "'"
No me encuentra el registro ¿por que ? gracias

Me parece que esa forma de abrir un recordset "From Productos, Stock..." no va a darte buenos frutos...

Abre el Command "Productos", y pinchando en el propio Command "Productos" con el botón derecho, añade un nuevo Command, al que llamas "Stock" y haces una Relación entre las dos tablas por el campo común a ambas (que supongo sea CdArticulo)... Por ahí sí podrás encontrar salida a todos los registros correspondientes a cada CdArticulo...

__________________
José María Movilla Cuadrado
______________________

Visual Basic Videos Programacion Foro Programacion
Tutoriales Programacion Trucos Programacion Codigos Programacion

Mucha gracia, es que llevo muchas cosa a la ves y se me olvido daros las gracia por vuestra ayuda, un saludo