SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: rony_pineda en Miércoles 16 de Marzo de 2005, 17:06
-
:scream: Estoy creando una aplicación en VB 6.0 en la cual manejo varias tablas de una misma Base de Datos creada en Access 2000. El problema que tengo es que no puedo llenar mas de dos tablas.
Alguien me podria proporcionar una ayuda, ya que no tengo idea de como hacerlo.
Gracias,
-
Hola Rony.
Podrias ser mas explicito. Por lo poco que alcanzo a entender, debes manejar una data (en caso que lo utilize) por cada tabla que quiera manejar en un mismo formulario.
-
Por ejemplo: empleados_general, historial_empleados, empleado_laboral, historial_laboral...
Cuando ingreso datos a empleados_general automaticamente deberia de enviar a actualizar algunos datos a la tabla empleado_laboral, y si y solo si, un empleado ya existe y se modifica su salario o numero de telefono o cualquier otro campo deberia de almacenar el registro modificado en la tabla maestra y el registro antiguo lo deberia de crear como un historial.
El problema que me da, es que cuando trato de utilizar otra tabla me dice que la base de datos esta abierta, y ya revise una y otra vez y mediante codigos no la tengo abierta.
Gracias
-
Hola Rony.
Primero que todo con que control lo estas haciendo (Data, ADO) si habres la conexion por codigo, lo podrias hacer solo una vez en todo el proyecto. Para actualizar las tablas podrias hacer con consultas de Actualizacion "UPDATE", pero deberias empezar de atras hacia adelante ej: actualizas primero los historiales del empleado y luego su registro, para la insercion lo haces con una consulta "INSERT" recuerda que los campos calculados no se almacen, si no que se calculan cada vez que se les requiera, a menos que tu aplicacion asi lo requiera.
Chao.
-
:hola: Gracias Widark... trabajo con ADO.
Me podrias dar un ejemplo del codigo?
-
Hola Rony.
Este es un modulo para la conexion con ADO
Dim Cnx As ADODB.Connection
Dim rsUnidad as ADODB.Recordset
Function Coneccion(strRuta As String)
Set Cnx = New ADODB.Connection
Cnx.CursorLocation = adUseClient
Cnx.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strRuta & ";Jet OLEDB:Database Password=Pass;"
'Ejemplo de abertura de un recordset
Set rsUnidad = New ADODB.Recordset
rsUnidad.Open "Select * From unidades", Cnx, adOpenStatic, adLockOptimistic
End Function
En cuanto a las consultas de actualizacion e insercion no las utilizo mucho pero podrias guiarte por la ayuda de Visual Basic. :comp: