Jump to content

Realizar consulta a una base de datos Access en una macro


Recommended Posts

Hola a todos. Soy nuevo en esta comunidad y quiero pedirles ayuda, tengo una macro en la que quiero manejar la entrada y salida de activos, tengo resuelto el tema del ingreso de un nuevo registro a la base de datos pero aun no he podido generar una consulta que me traiga los datos asociados a un serial determinado, me explico puedo ingresar un registro nuevo pero quiero hacer una consulta para saber si ya he registrado un activo determinado para luego solo actualizar los campos de hora de ingreso y hora de salida, la llave principal de la tabla que tengo en access es el serial por lo que no podria repetir este campo y por esta razon quiero hacer la busqueda en la tabla para solo hacer una actualizacion sobre los campos que indique. la busqueda la voy a realizar con un command button para la busqueda.

agradezco de antemano la ayuda que me puedan brindar, adjunto el archivo de excel con la macro y el archivo de la base de datos.

Ingreso equipos EL CUBO Access 2010 - pruebas.rar

Link to comment
Share on other sites

Hola!

Mi sugerencia es cerrar la base de datos y liberar las variables al terminar la consulta que realices, de lo contrario podría mandar error o tardarse más la macro.

Puedes usar estas referencias, para probarlas pega el código en un módulo nuevo, está diseñado para utilizar tu base de datos, sólo es cuestión de acoplarlo a tu código o formulario, verás que es muy sencillo:


Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String




Sub abrirBaseDatos()
Set cnn = New ADODB.Connection


With cnn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "data source=" & ThisWorkbook.Path & "\Ingreso_Equipos.accdb"
.Open
End With


End Sub


Sub cerrarBaseDatos()


cnn.Close
Set cnn = Nothing


End Sub


Sub AbregarRegistro()


abrirBaseDatos




sql = "INSERT INTO Ingresos VALUES ('CPB2412836','PORTATIL','LENOVO', 'CARLOS IGUARAN', '79965955'," & Date & "," & Date + 1 & ")"


cnn.Execute (sql)


cerrarBaseDatos


End Sub


Sub editarRegistro()


abrirBaseDatos




sql = "UPDATE Ingresos SET Tipo= 'PORTATIL1', Marca= 'LENOVO1', Nombre_Propietario= 'CARLOS IGUARAN1', Cedula_Propietario=79965988, Hora_Entrada=#" & Date & "#, Hora_Salida= #" & Date + 1 & "# WHERE Serial='CPB2412836'"


cnn.Execute (sql)


cerrarBaseDatos


End Sub


Sub eliminarRegistro()
abrirBaseDatos




sql = "Delete FROM Ingresos WHERE Serial='CPB2412836'"


cnn.Execute (sql)


cerrarBaseDatos
End Sub


Sub consulta()
abrirBaseDatos




sql = "SELECT * FROM Ingresos"


Set rst = New ADODB.Recordset


rst.Open sql, cnn, adOpenDynamic, adLockOptimistic


While Not rst.EOF


Debug.Print rst!Serial & "," & rst!tipo & "," & rst!marca
rst.MoveNext
Wend


rst.Close
set rst = nothing
cerrarBaseDatos


End Sub




[/CODE]

Espero te sirva

Saludos!

Link to comment
Share on other sites

Gracias por tu ayuda armandocid, veo que en este codigo que me envias haces una actualizacion sobre la base de datos, de pronto no fui explicito al consultar y pido disculaps por eso, dentro de el archivo que envie tengo listo el command button con el que hago el registro de un nuevo ingreso, el tema concreto es que quiero hacer una busqueda por serial en la base de datos y poner los campos indicados en los textbox de la forma de tal manera que con un command button puedar generar la salida del equipo y actualizar el campo Hora_Salida del reistro con la funcion NOW para fecha hora, esto partiendo de la premisa que el equipo ya esta registrado y solo es modificar la hora a la que sale de las instalaciones.

Gracias por tu aporte y si me sirve de mucha ayuda para otra labor que voy a realizar.

Link to comment
Share on other sites

Macro Antonio gracias por tu valioso aporte ya probe el archivo y veo que es genial eso es muy cercano a lo que quiero hacer, la pregunta es como me puede dejar ver el codigo que empleaste para la consulta ya que debo hacer algunas modificaciones para ponerlo a funcionar vepo que la consulta se hace perfecto y es como me lo habia imaginado pero quisiera ver de que manera lo hiciste para adaptarlo a la solucion final ya que en base a esa consulta realizare un UPDATE en la tabla Ingresos para la salida del equipo.

Gracias por tu valiosisimo aporte

Link to comment
Share on other sites

Abre Excel, pulsa abrir archivo, selecciona el archivo, y manteniendo pulsada la tecla Shift, pulsa Abrir.

De esta manera no se ejecuta el evento Workbook_Open, también puedes subir la seguridad de las macros y te permitirá abrir el archivo sin ejecutar la macro de inicio.

La Hoja1 está protegida sin password.

Si quieres que no se cierre Excel al cerrar el formulario, quita la sentencia Application.Quit del evento Userform.Terminate.

Link to comment
Share on other sites

Excelente Macro Antonio eres un crack, voy a revisar y te cuento como me va.

- - - - - Mensaje combinado - - - - -

Macro Antonio es posible hacer una consulta a la base de datos que solo traiga un registro especifico y no la tabla completa y ponerlo en el formulario? he intentado hacerlo pero cuando hago la sentencia SQL para esto me sale un error que dice que hay datos a los que les falta definicion, cuentame si es posible.

la sentencia que quiero hacer es algo asi como esta:

SELECT Ingresos.[serial], Ingresos.[Tipo], Ingresos.[Marca], Ingresos.[Nombre_Propietario], Ingresos.[Cedula_Propietario], Ingresos.[Hora_Entrada], Ingresos.[Hora_Salida]

FROM Ingresos WHERE Ingresos.Serial="CPB2412835";

donde el campo que comparo seria el valor del TextBox donde hago una captura para revisar que exista o no en la base de datos y dependiendo de esto hacer un nuevo registro o actualizar el que ya existe

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy