Foros del Web » Programación para mayores de 30 ;) » Programación General »

Selecionar Tablas

Estas en el tema de Selecionar Tablas en el foro de Programación General en Foros del Web. Hola a todos , favor si me pueden ayudar con lo siguiente Tengo una base de datos que tiene 2 tablas llamadas Ingreso1 (Campo = ...
  #1 (permalink)  
Antiguo 21/05/2010, 21:22
 
Fecha de Ingreso: mayo-2010
Mensajes: 1
Antigüedad: 14 años, 1 mes
Puntos: 0
Selecionar Tablas

Hola a todos , favor si me pueden ayudar con lo siguiente

Tengo una base de datos que tiene 2 tablas llamadas Ingreso1 (Campo = Articulo) e Ingreso2 (Campo = Articulo)

He hecho un form de busqueda de un articulo, este form tiene 2 checkbox y una datagrid

Check 1 hace referencia a Ingreso1
Check 2 hace referencia a Ingreso2

La idea es que al seleccionar el check1 en el data grid me muestre los articulos de la tabla Ingreso1. Que al seleccionar el check2 el data me muestre los articulos de la tabla Ingreso2

Esto es lo que tengo programado por el momento, asi como esta solo me seleciona en una sola tabla, ya tengo conectada con 2 adodc uno para cada tabla.

Dim base As Connection
Dim WithEvents Temp As Recordset
Dim consulta As String, cod As Integer

Private Sub DataGrid1_Click()
DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
End Sub

Private Sub Form_Load()
Set base = New Connection
Set Temp = New Recordset
base.Open "dsn=data"
Temp.Open "Ingreso1", base, adOpenStatic, adLockReadOnly
End Sub

Private Sub Text1_Change()
Temp.Close
Set DataGrid1.DataSource = Nothing
consulta = "select Distinct Articulo from Ingreso1 where Articulo like '" & Text1 & "%' "
Temp.Open consulta, base, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = Temp

Etiquetas: selecionar, tablas
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:39.