cyber_zero
11-05-2008, 23:45:12
hola amigos, gracias a este foro pude crear un base d datos de access desde Delphi, pero me pregunto si es posible ponerle contraseña desde el codigo, en este caso el codigo es este
procedure TForm1.Button1Click(Sender: TObject);
var db: OleVariant;
begin
db := CreateOleObject('dao.dbengine.36');
db := db.CreateDatabase('C:\Program Files\Borland\Delphi7\Projects\proyecto speciales\PIEI.mdb', ';langid=0x040a;cp=1252;country=0');
db.Execute('create table Inscripcion(nombre char (20), apelpat char(15), apelmat char(15), nocue int, carrera char(50), grupo char (5), nivel char(2), banco char(15), referencia int)'); // Strings + SQL ...
db.Execute('create table Alumnobasico(nombre char (20), apelpat char(15), apelmat char(15), nocue int, carrera char(50) )'); // Strings + SQL ...
Close;
end;
que fue puesto en este foro antes y agradezco por la aportacion, pero para mi proyeto tambien es necesario poner una contraseña y me preguntaba si alguien sabe como hacer o que codigo necesito poner, de antemano, muchas gracias
procedure TForm1.Button1Click(Sender: TObject);
var db: OleVariant;
begin
db := CreateOleObject('dao.dbengine.36');
db := db.CreateDatabase('C:\Program Files\Borland\Delphi7\Projects\proyecto speciales\PIEI.mdb', ';langid=0x040a;cp=1252;country=0');
db.Execute('create table Inscripcion(nombre char (20), apelpat char(15), apelmat char(15), nocue int, carrera char(50), grupo char (5), nivel char(2), banco char(15), referencia int)'); // Strings + SQL ...
db.Execute('create table Alumnobasico(nombre char (20), apelpat char(15), apelmat char(15), nocue int, carrera char(50) )'); // Strings + SQL ...
Close;
end;
que fue puesto en este foro antes y agradezco por la aportacion, pero para mi proyeto tambien es necesario poner una contraseña y me preguntaba si alguien sabe como hacer o que codigo necesito poner, de antemano, muchas gracias