Visual con access 200

Hola mira soy nuevo en esto de la programación y la verdad es que no puedo conectarme a una base de datos que esta hecha en Access 200, me gustaría que me pasaras un código de muestra para ver como se haces eso.
Tengo entendido que se tiene que hacer un recordset y algunas cositas más, luego lo consutaria con sentencias de SQL.
Te agradecería mucho si me podes ayudar con este tema ya que eh aprendido como se guardo todo en memoria pero nunca en una base de datos.
Gracias.

2 respuestas

Respuesta
1
Te paso el siguiente código que te puede ser de mucha ayuda. De todos modos la ayuda de VB está muy completa y puedes obtener ejemplos claros de ahí también.
Saludos.
Option Explicit
Global wrkJet As Workspace
Global dbsAutoriza As Database
Global rstAutorizantes As Recordset
Global rstNiveles As Recordset
Global rstCodigos As Recordset
Global rstCodigosAnt As Recordset
Global RstNumera As Recordset
Global pathServidor As String
Sub abrir_base()
On Error GoTo Errores
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set dbsAutoriza = wrkJet.OpenDatabase(pathServidor + "\Autoriza.mdb", False, dbDriverComplete, ";PWD=Admin")
Set rstAutorizantes = dbsAutoriza.OpenRecordset("Autorizantes", dbOpenTable)
Set rstNiveles = dbsAutoriza.OpenRecordset("Niveles", dbOpenTable)
Set rstCodigos = dbsAutoriza.OpenRecordset("CodAut", dbOpenDynaset)
Set rstCodigosAnt = dbsAutoriza.OpenRecordset("CodAutAn", dbOpenDynaset)
Exit Sub
Errores:
MsgBox "Error nro. " + Str(Err.Number) + " - " + Err.Description
Exit Sub
End Sub
Respuesta
1
Aquí tienes unos ejemplos de como hacer lo que me pides.
'Abrir la base de datos
Dim BaseDeDatos as Dao.Recordset, Rs as Dao.Recordset
Set BaseDeDatos = OpenDataBase ("Gestion.mdb")
'Abrir el recordset
Set Rs = BaseDeDatos.OpenRecordset ("Select * From Clientes")
'Consultar el recordset
Rs.FindFirst ("Cliente='" & Cliente & "'")
If not Rs.NoMatch then 'se ha encontrado
'operaciones si se ha encontrado
end if
'Tambien se puede abrir y buscar un dato a la vez
Set Rs = BaseDeDatos.OpenRecordset ("Select * From Clientes Where='Cliente'")
'Para añadir un registro
Rs.Addnew
Rs("Cliente")="Cliente"
Rs.Update
'Para editar un registro
Rs.Edit
Rs("Cliente")="Cliente"
Rs.Update

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Problemas con un recordset

Necesito lo siguiente: Cuando el nombre de mi cliente que esta en el campo CLIENTE de mi formulario activo llamado form1, se encuentre en una consulta llamada GARANTÍA me muestre un mensaje "Registro encontrado" y en caso contrario me muestre un...
1 respuesta

Problema al modificar datos access con vba

En un formulario de access tengo un campo de texto con Fecha de Ingreso de los trabajadores. Tengo que agregarle 28 días a esa fecha y guardarla en otro textbox usando este código:. Dim FechaInicio As Date Dim FechaTermino As Date FechaInicio =...
1 respuesta

Access y objetos

Estoy trabajando con una base de datos cuyos campos son hipervínculos, y para trabajar con varias tablas a la vez, he empezado a trabajar en visual basic. He declarado objetos como tablas pero no sé como manejar sus campos, ya que me da errores el...
1 respuesta

Añadir registro en access

Encontré el siguiente código en internet para añadir registro en un cuadro combinado, me en msgbox. Private Sub Lista52_NotInList(NewData As String, Response As Integer) Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim Msg As String Dim NewID As...
1 respuesta

Sql select en Access mediante VBA

Como estas mi pregunta es la siguiente resulta que tengo un formulario en Access con un texto y un botón, lo que deseo hacer es realizar una consulta dependiendo del registro que un usuario digite en el texto del mismo formulario... He realzado esto...
2 respuestas

Ayuda para imprimir

Deseo imprimir un reporte creado en cristal report v 4.6, la base de datos esta en access xp y esta protegida por contraseña. Me gustaría que me regalaran un código de ejemplo para imprimir un reporte cuando la base esta con contraseña.
3 respuestas

Buscador visual basic

He tratado de crear un buscador con visual basic pero no he podido hallar. Quiero que me busque en una base de datos el numero de factura que yo quiera, pero que me muestre los resultados en campos de textbox, hay muchos ejemplos en internet pero...
1 respuesta

ABM en un tabla sql server 2000 con vb

Tengo el siguiente problema al hacer mi ABM de una tabla clientes, estoy intentando programar en 3 capas (usuario, reglas de negocio, datos). Este código lo tenia funcionando con DAO y una base de access. Ahora lo he intentado pasar a ADO con SQL...
4 respuestas

No puedo ejecutar la aplicación

Estoy haciendo una pequeña aplicación con VB. Ya hice el paquete de instalación pero al querer ejecutar la aplicación me da el error de "no se encuentra el ISAM instalable". El programa tiene controles "control data" y "DBGrid" pero no tiene...
1 respuesta

Validación de usuarios en access

Caso 1: Tengo un formulario "Menú Principal" en el cual hay un botón "admin" que abre un segundo formulario "Menú de administración". Tengo una tabla "admins" que contiene los campos "usuario" y "contraseña" Ahora bien, lo que necesito es que al...
1 respuesta