Concatenar campos en un form

Pau
11 de Junio del 2004
a ver tengo un grid en el que se muestran los datos de una tabla, pero esos datos que se muestran son de un cliente del cual muestro los datos. el tio mete un codigo y le tiene que salir el nombre, la direccion y en el grid los pedidos que ha hecho ese hombre. como lo hago?

shiquilla
11 de Junio del 2004
Suponiendo que tendrás dos tablas, una para clientes y otra con los pedidos cn la referencia del cliente, me crearia dos recordset, uno para la tabla del cliente y otro para los pedidos.

Dim rs as New Adodb.Recordset
Dim rs_Pedidos as New Adodb.Connetion
Dim sql as String
Dim cn as New Adodb.Connection
Set cn.ConnectionString = "el string de conexion a la base de datos"
cn.open
sql = "SELECT Nombre, Direccion FROM Tabla WHERE Campo = " & Text1.Text
rs.open sql, cn
IF NOT rs.EOF THEN
TextNombre.Text = rs![CampoNombre]
TextDireccion.Text = rs![CampoDireccion]
sql = "SELECT * FROM Pedidos WHERE Campo = " & Text1.Text
Set rs_Pedidos.CursorLocation = adUseClient
rs_Pedidos.open sql, cn
Set DataGrid.DataSoruce = rs_Pedidos
GRID.Refresh
END IF
SET RS_PEDIDOS = NOTHING
SET RS = NOTHING
SET CN = NOTHING


(Si alguna propiedad la he escrito mal perdonad, pero es que no tengo el Visual a mano)

Saludos.