Consulta Tablas Multiples
Publicado por damny (6 intervenciones) el 13/08/2008 23:11:57
Hola disculpen, tengo un problema con la consulta de tablas multiples e usado el inner join y cuando realizo la consulta me duplica los campos, hay alguna forma de hacer sin q duplique la informacion, aca le envio la sintaxis q tengo:
Dim mysql$
Dim TAM As Long
TAM = Len(Text4.Text)
mysql$ = "SELECT "
mysql = mysql & "diseno.orden_trabajo, "
mysql = mysql & "productos.orden_trabajo,"
mysql = mysql & "diseno.trabajo, "
mysql = mysql & "productos.cliente "
mysql = mysql & "FROM diseno INNER JOIN productos "
mysql = mysql & "ON diseno.orden_trabajo = productos.orden_trabajo "
Data1.RecordSource = mysql
If Label4.Caption = "Orden de Trabajo:" Then
mysql = mysql & "WHERE mid(diseno.orden_trabajo,1,'" & TAM & "')= '" & Text4.Text & "'"
mysql = mysql & "ORDER BY diseno.orden_trabajo "
GRACIAS DE ANTEMANO
Dim mysql$
Dim TAM As Long
TAM = Len(Text4.Text)
mysql$ = "SELECT "
mysql = mysql & "diseno.orden_trabajo, "
mysql = mysql & "productos.orden_trabajo,"
mysql = mysql & "diseno.trabajo, "
mysql = mysql & "productos.cliente "
mysql = mysql & "FROM diseno INNER JOIN productos "
mysql = mysql & "ON diseno.orden_trabajo = productos.orden_trabajo "
Data1.RecordSource = mysql
If Label4.Caption = "Orden de Trabajo:" Then
mysql = mysql & "WHERE mid(diseno.orden_trabajo,1,'" & TAM & "')= '" & Text4.Text & "'"
mysql = mysql & "ORDER BY diseno.orden_trabajo "
GRACIAS DE ANTEMANO
Valora esta pregunta


0