Base de datos con contraseña
Publicado: Sab Abr 09, 2005 3:24 am
Saludos.
Perdonen mi terrible innorancia en el asunto, tengo una base de datos la cual esta protegida por contraseña, estoy utilizando el siguiente codigo para abrirla.
AccessConnect = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=NOMBRE BASE DE DATOS.MDB;" & _
"DefaultDir=" & "UBICACION\;" & _
"UID=admin;PWD=CONTRASEÑA;"
Set Conn1 = New ADODB.Connection
Conn1.ConnectionString = AccessConnect
Conn1.Open
Set Cmd1 = New ADODB.Command
Cmd1.ActiveConnection = Conn1
Cmd1.CommandText = "SELECT * FROM USUARIOS"
Set Param1 = Cmd1.CreateParameter(, adInteger, adParamInput, 3)
Param1.Value = 10
Cmd1.Parameters.Append Param1
Set Param1 = Nothing
Set trs = Cmd1.Execute()
Hasta aqui todo muy bien, pero como hago para trabajar con los recorset trs, en este caso , quiero agregar, borrar y buscar registros en la base de datos.
Como se hace esto???????????????.
Por favor ayuda¡¡¡¡¡¡¡¡¡¡¡¡¡
Gracias amigos.....................
Perdonen mi terrible innorancia en el asunto, tengo una base de datos la cual esta protegida por contraseña, estoy utilizando el siguiente codigo para abrirla.
AccessConnect = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=NOMBRE BASE DE DATOS.MDB;" & _
"DefaultDir=" & "UBICACION\;" & _
"UID=admin;PWD=CONTRASEÑA;"
Set Conn1 = New ADODB.Connection
Conn1.ConnectionString = AccessConnect
Conn1.Open
Set Cmd1 = New ADODB.Command
Cmd1.ActiveConnection = Conn1
Cmd1.CommandText = "SELECT * FROM USUARIOS"
Set Param1 = Cmd1.CreateParameter(, adInteger, adParamInput, 3)
Param1.Value = 10
Cmd1.Parameters.Append Param1
Set Param1 = Nothing
Set trs = Cmd1.Execute()
Hasta aqui todo muy bien, pero como hago para trabajar con los recorset trs, en este caso , quiero agregar, borrar y buscar registros en la base de datos.
Como se hace esto???????????????.
Por favor ayuda¡¡¡¡¡¡¡¡¡¡¡¡¡
Gracias amigos.....................