Visual Basic - existe refrencias cruzadas en VB 6.0

Life is soft - evento anual de software empresarial
 
Vista:

existe refrencias cruzadas en VB 6.0

Publicado por james (149 intervenciones) el 31/10/2006 20:54:04
Hola amigos , se puede realizar referencias cruzadas en Visual basic con access xp
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

RE:existe refrencias cruzadas en VB 6.0

Publicado por Amigo (7 intervenciones) el 31/10/2006 22:55:10
si se puede, incluso con access 97
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

RE:existe refrencias cruzadas en VB 6.0

Publicado por james (149 intervenciones) el 31/10/2006 23:20:20
Por medio del access si se puede hacer pero por codigo en el visual basic, como se hace tendras un ejemplo ...???
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

RE:existe refrencias cruzadas en VB 6.0

Publicado por Natalia Camino (88 intervenciones) el 01/11/2006 20:24:47
aqui os pongo un ejemplo sencillo de consulta de referencias cruzadas.
Tenemos un BD con dos tablas:
Tabla1 con el detalle de las ventas y tes campos idCliente, Fecha e importe.
Tabla2 con los nombres de los clientes y dos campos Id y Nombre.
Lo que queremos hacer es sumar todas las ventas de cada cliente y crear una tabla de referencias cruzadas con el total y desglosado por trimestres. Esta tabla la mostramos en un control DataGrid:

Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String

Set cn = New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\BaseDeDatos.mdb"
sql = "TRANSFORM Sum(Tabla1.Importe) AS Resultado SELECT Cliente AS [Nombre Cliente], " & _
"Sum(Tabla1.Importe) AS [Ventas Totales] FROM Tabla1 INNER JOIN " & _
"Tabla2 ON Tabla1.Id = Tabla2.Id GROUP BY Tabla1.Id, Tabla2.Cliente PIVOT " & _
"'Trimestre ' & DatePart('q',Tabla1.Fecha)"

Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub

Espero que os ayude.
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

RE:existe refrencias cruzadas en VB 6.0

Publicado por James (149 intervenciones) el 02/11/2006 14:39:01
mUCHISISISISISMASSSSSSSSSSSSS GRACIASSSSSSSSSSSSSSSSSS NATALIA ERES UN ANGELLLLLLLLLLLLLLLLLLLLLLL, NO SAES COMO ESTUVE ESTOS DIAS CON ESE PROBLEMA , YO SOY DE PERU, Y ESE PROBLEMA ME KITABA EL SUEÑO, NUEVAMENTE MUCHAS GRACIAS Y K DIOS T BENDIGA

JIMMY
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

RE:existe refrencias cruzadas en VB 6.0

Publicado por Natalia Camino (88 intervenciones) el 02/11/2006 22:54:48
se agradece tanta efusividad, sois de los pocos que al menos contestan, la mayoria les respondes y no sabes si lo has hecho bien porque se pierden en el limbo de los justos, es decir, no vuelves a saber nada mas de ellos.
debería ser una cortesía que cuando te renponden y soluccionan el problema, al menos indicarlo como vos.
si teneis cualquier otra duda, podeis exponerla, que por lo que esté en mi mano procuraré ayudaros.
un beso James.
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

RE:existe refrencias cruzadas en VB 6.0

Publicado por necro-air (77 intervenciones) el 03/11/2006 17:35:59
Natalia Camino en eso tienes razon.
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