Foros Club Delphi - Crear BD Accsess desde cero

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)

- - Crear BD Accsess desde cero (https://www.clubdelphi.com/foros/showthread.php?t=55896)

PaFernan99

30-04-2008 17:33:54

Crear BD Accsess desde cero

Hola Gente!
Mi pregunta no es mas que el título: ¿Es posible crear una BD Access desde cero, incluyendo el DSN, las tablas, vistas y consultas?
Muchas Gracias!

BlueSteel

30-04-2008 17:41:33

Cita:

Empezado por PaFernan99 (Mensaje 283509)

Hola Gente!
Mi pregunta no es mas que el título: ¿Es posible crear una BD Access desde cero, incluyendo el DSN, las tablas, vistas y consultas?
Muchas Gracias!

Hola PaFernan99

En relación a tu pregunta.. si es posible.... la contrarespuesta seria... desde donde lo quieres crear ???

Siempre tienes opción de ingresar al Access y crear una base nueva...

Salu2:p:D

PaFernan99

30-04-2008 17:51:17

Tenés razón

Jaja! Es verdad BlueSteel. Perdón por lo escueto de mi pregunta. Lo que quisiera hacer es una aplicación Delphi que me permite crear una base de datos desde cero, solo mencionando los campos que debe tener una tabla, y generar las consultas y los abm de forma automática, de manera que se adapte a distintas posibilidades.:rolleyes:
La parte de los abm automáticos ya la tengo resuelta. Lo que en realidad necesito saber es lo de la BD, porque sería como hacer una agenda, o directorio, adaptable a cada cliente.
Muchas gracias!

cHackAll

30-04-2008 18:13:00

Código Delphi [-]uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var db: OleVariant;
begin
 db := CreateOleObject('dao.dbengine.36');
 db := db.CreateDatabase('c:\nooBD.mdb', ';langid=0x040a;cp=1252;country=0');
 db.Execute('create table Tabla(id int, name char(66))'); // Strings + SQL ...
end;

PaFernan99

30-04-2008 18:32:14

Gracias!

Gracias cHackAll!
Lo estoy probando!

cyber_zero

09-05-2008 18:19:18

Cita:

Empezado por cHackAll (Mensaje 283519)

Código Delphi [-]uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var db: OleVariant;
begin
db := CreateOleObject('dao.dbengine.36');
db := db.CreateDatabase('c:\nooBD.mdb', ';langid=0x040a;cp=1252;country=0');
db.Execute('create table Tabla(id int, name char(66))'); // Strings + SQL ...
end;

Hola buenos dias, disculpa el codigo que pusiste me resulto muy util y te agradezco la aportacion, solo tengo unas dudas, ¿¿es posible crear con las tablas, consultas y relaciones???, de ante mano muchisimas gracias y que tengas un excelente dia

cyber_zero

09-05-2008 18:23:33

y pues abusando un poco de la ayuda, es posible crearle una contraseña cuando se esta creando????

gracias

cHackAll

12-05-2008 15:53:44

Comienza a utilizar la búsqueda,
NO repitas hilos, utiliza las etiquetas...

en fin, lee nuestra Guía de estilos.

Código Delphi [-]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;pwd=HAclave');
 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;

Saludos

La franja horaria es GMT +2. Ahora son las 01:47:42.