Visual Basic - Como enlazar dos tablas de BD de acces en VB

Life is soft - evento anual de software empresarial
 
Vista:

Como enlazar dos tablas de BD de acces en VB

Publicado por Fabricio Giarelli (3 intervenciones) el 27/05/2003 01:39:07
Tengo 2 tablas Nombre de socios en una y Planes medicos en otro, como hago para que cuando yo haga click en el boton siguiente del formulario que tengo creado, para pasar a ver a otro socio de la base de datos pase cada socios con su respectivo plan.... O sea lo que tengo que hacer es enlazar la tabla socios con planes (que ya lo tengo hecho en las relaciones de acces) .
Mi problemas es que cuando paso a otro socios, todos me quedan con el plan que le puse al primer socio.
desde ya muchas gracias
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:Como enlazar dos tablas de BD de acces en VB

Publicado por Miguel Pena (37 intervenciones) el 27/05/2003 14:44:46
Necesito mas informacion para poder ayudarte, me imagino que esta utilizando una referencia DAO para accesar a los datos. Siendo asi entonces ha lo siguiente:

tu debe tener para habrir la tabla esto:

set rs = db.openrecordset("Tabla")

Te recomiendo que utilice la siguiente forma:

set rs = db.openrecordset("SELECT CAMPO1_T1, CAMPO2_T1, CAMPO3_T2 FROM TABLA1 WHERE TABLA1.CAMPOCLAVE = TABLA2.CAMPOCLAVE ")

cualquier inquietud, favor contactarme.
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:Como enlazar dos tablas de BD de acces en VB

Publicado por Fabricio Giarelli (3 intervenciones) el 27/05/2003 15:11:27
Estimado amigo esto es lo que yo hice, pero cuando click en el boton siguiente que cree la planes no pasa junto con la de socios...
tengo un datacontrol llamado dtaplanes y otro llamado dtasocios
y los datafield son NombreSocio y NombrePlanes

Private Sub cmdsiguiente_Click()
DtaSocios.Recordset.MoveNext
With DtaPlanes
DtaPlanes.Recordset.MoveNext
' End With
If DtaSocios.Recordset.EOF = True Then
MsgBox "Ultimo registro", vbExclamation
End If
End Sub

Private Sub cmdguardar_Click()
If TxtApellido.Text = "" Then
MsgBox "Es necesario ingresar el Apellido", vbExclamation
TxtApellido.SetFocus
End If
If TxtNombre.Text = "" Then
MsgBox "Es necesario ingresar el Nombre", vbExclamation
TxtNombre.SetFocus
End If
DtaSocios.Recordset.Update
cmdguardar.Enabled = False
fradatos.Enabled = False
MsgBox "Los datos han sido guardados correctamente", vbInformation
End Sub

desde ya muchas gracias
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