Visual Basic - Seleccionar Tablas

Life is soft - evento anual de software empresarial
   
Vista:

Seleccionar Tablas

Publicado por Patricio (47 intervenciones) el 22/05/2010 05:12:43
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
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
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Alarmas
- Ejercicio de gravedad
- ProgressBar

RE:Seleccionar Tablas

Publicado por Pedro Luis (128 intervenciones) el 26/05/2010 09:03:29
Solo necesitas un Data.
if Check1 =1 then
Data1.recordsource="select ....... "
else
data1.Recordsouce=Select ... "
endif
data1.refresh
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