Forums Últimos mensajes - Powered by IBM
 

2tablas para 1mismo datagrid

28/04/2005 - 11:46 por Sonia | Informe spam
hola
quiero llenar un datagrid con datos de 2 tablas diferentes. es posible?

solo kiero q al poner un cp en un textbox y pulsar el boton se rellene el
datagrid

en teoria mi consulta tendria q comparar q las claves de las 2 tablas fueran
iguales (klvcol de telemarketing = klave de centros1) pero hacer esto me
daba errores por todas partes.
os pongo aki el codigo con los camps q kiero sacar en datagrid a ver si
podeis decirme como solucionarlo
muchas gracias!!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim nuevo As cargadatagrid

If TextBox1.Text <> "" Then

If IsNumeric(TextBox1.Text) Then

mysql = "select NOMBR,DPOST from centros1 where DPOST='" & TextBox1.Text &
"';"

nuevo.Carga(mysql, "CENTROS1", DataGrid1)

mysql = "select KLVCOL from TELEMARKETING"

nuevo.Carga(mysql, "TELEMARKETING", DataGrid1)

End If

End If

End Sub
 

Leer las respuestas

#1 Sonia
28/04/2005 - 11:52 | Informe spam
anteriormente habia unido las 2 tablas de esta manera, pero da error al
correrlo:

mysql = "select NOMBR,DPOST,KLVCOL,FECHAS,XESCR1,XLECT1,XMATE1,XORTO1 from
centros1,telemarketing where DPOST='" & TextBox1.Text & "'AND
klvcol.telemarketing= klave.centros1;"

nuevo.Carga(mysql, "TELEMARKETING", DataGrid1)





"Sonia" escribió en el mensaje
news:
hola
quiero llenar un datagrid con datos de 2 tablas diferentes. es posible?

solo kiero q al poner un cp en un textbox y pulsar el boton se rellene el
datagrid

en teoria mi consulta tendria q comparar q las claves de las 2 tablas


fueran
iguales (klvcol de telemarketing = klave de centros1) pero hacer esto me
daba errores por todas partes.
os pongo aki el codigo con los camps q kiero sacar en datagrid a ver si
podeis decirme como solucionarlo
muchas gracias!!
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim nuevo As cargadatagrid

If TextBox1.Text <> "" Then

If IsNumeric(TextBox1.Text) Then

mysql = "select NOMBR,DPOST from centros1 where DPOST='" & TextBox1.Text &
"';"

nuevo.Carga(mysql, "CENTROS1", DataGrid1)

mysql = "select KLVCOL from TELEMARKETING"

nuevo.Carga(mysql, "TELEMARKETING", DataGrid1)

End If

End If

End Sub


Preguntas similares