Conectar más de una tabla con adodc
Pues soy novato y me encuentro desarrollando un programa para ingresar datos de visual a access y lo estoy haciendo con código pero la cosa es que necesito conectar más de una tabla, hasta ahora solo he logrado conectar una tabla gracias a un ejercicio que encontré en Internet pero para conectarlo a otra tabla al mismo tiempo es el problema si alguien puede ayudarme se lo agradecería mucho así fuera que me ayudara con otro ejemplo en el cual basarme.
Este es código que estoy utilizando para buscar y enlamar la tabla
Option Explicit
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\db1.mdb" & ";Persist Security Info=False"
cnn.Open
rs.Open "Select * from personas", cnn, adOpenDynamic, adLockOptimistic
Call Visualizar_Datos
End Sub
Este es código que estoy utilizando para buscar y enlamar la tabla
Option Explicit
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\db1.mdb" & ";Persist Security Info=False"
cnn.Open
rs.Open "Select * from personas", cnn, adOpenDynamic, adLockOptimistic
Call Visualizar_Datos
End Sub
1 Respuesta
Respuesta de santiagomf
1
Por lo que veo lo que quieres hacer es una consulta desde visual basic.
Lo mejor es que prepares la consulta en la misma base de datos de Access y después copies el código que encontrarás al pasar a "Vista SQL" (dentro del menú Ver).
Un ejemplo inventando de una consulta SQL con dos tablas podría ser:
select clientes.nombreCliente,facturas.numeroFactura,facturas.importe from clientes inner join facturas on clientes.idCliente = facturas.idCliente.
Esa instrucción seleccionaría las facturas de los clientes, uniendo las dos tablas a través del ident¡Ficador de cliente.
Lo mejor es que prepares la consulta en la misma base de datos de Access y después copies el código que encontrarás al pasar a "Vista SQL" (dentro del menú Ver).
Un ejemplo inventando de una consulta SQL con dos tablas podría ser:
select clientes.nombreCliente,facturas.numeroFactura,facturas.importe from clientes inner join facturas on clientes.idCliente = facturas.idCliente.
Esa instrucción seleccionaría las facturas de los clientes, uniendo las dos tablas a través del ident¡Ficador de cliente.
Entonces voy por mal camino, lo que pasa es que yo tengo tres tablas y quiero ingresar datos en ellas y me queden guardados, ya lo de consultar datos es algo que ahora no quiero hacer.
Entonces tal ves puedas ayudarme si no igual gracias
<input id="gwProxy" type="hidden" /><input id="jsProxy" onclick="jsCall();" type="hidden" />
Entonces tal ves puedas ayudarme si no igual gracias
<input id="gwProxy" type="hidden" /><input id="jsProxy" onclick="jsCall();" type="hidden" />
Si lo que quieres es insertar datos en tres tablas, lo tienes que hacer una por una. No puedes hacer una inserción sobre 3 tablas a la vez.
Es posible que quieras asegurarte que se inserte en todas o en ninguna, en cuyo caso tendrás que definir una transacción de la siguiente forma:
Cnn. Begintrans
Rs. Open "personas", cnn
Rs. Addnew
rs!nif = NIF
rs!nombrePersona = nombre
.......
rs.update
rs.close
rs.open "facturas",cnn
rs.addnew
rs!nifCliente = NIF
rs!fechaFactura = fecha
.......
rs.update
Rs. Close
...
...
...
Cnn. Committrans
Es posible que quieras asegurarte que se inserte en todas o en ninguna, en cuyo caso tendrás que definir una transacción de la siguiente forma:
Cnn. Begintrans
Rs. Open "personas", cnn
Rs. Addnew
rs!nif = NIF
rs!nombrePersona = nombre
.......
rs.update
rs.close
rs.open "facturas",cnn
rs.addnew
rs!nifCliente = NIF
rs!fechaFactura = fecha
.......
rs.update
Rs. Close
...
...
...
Cnn. Committrans
