Foros Club Delphi - Como creo una base de datos por Delphi

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

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Como creo una base de datos por Delphi (https://www.clubdelphi.com/foros/showthread.php?t=24498)

Shidalis

23-08-2005 16:58:07

Como creo una base de datos por Delphi

Saludos
Como creo una base de datos por Delphi. A quien pueda ayudarme se lo agradeceria

roman

23-08-2005 17:02:21

¿Qué tipo de base de datos?

// Saludos

Shidalis

23-08-2005 17:08:13

Una Base de Datos en MySQL

roman

23-08-2005 17:21:39

¿Y qué componentes usas para conectar con MySql?

De cualquier manera la creación de una base de datos es una simple sentencia sql:

Código SQL [-]create database mi_base

Opcionalmente puedes definir el juego de caracteres y el cotejamiento a usar por defecto cuado se creen nuevas tablas:

Código SQL [-]create database mi_base
character set latin1
collate latin1_spanish_ci

// Saludos

Shidalis

23-08-2005 17:36:21

yo hago lo siquiente pero no me funciona ocurre una exepcion:

Código:

   query1.Close;

   query1.SQL.Add('Create DataBase Nombre_Basedatos');

   query1.ExecSQL;

La excepcion es la siguiente "Can't create database Nombre_BaseDatos. Database exists"

roman

23-08-2005 17:46:17

Cita:

Empezado por Shidalis

"Can't create database Nombre_BaseDatos. Database exists"

¿Y esto no te dice algo? Si la base ya existe ¿cómo es que la quieres crear de nuevo?

Ahora que puedes poner

Código SQL [-]create database if not exists mi_base

con lo que evitas el error en caso de que ya exista.

// Saludos

Shidalis

23-08-2005 20:36:12

Ok muchas gracias; y sera posible pasarle a esta tira sql el nombre de la base de datos como parametro, es decir, algo como esto:

Código:

 mi_base:= Nombre_BaseDatos+'1';

 create database if not exist mi_base;

ya que yo hago este procedimiento varias veces en tiempo de ejecucion

Shidalis

23-08-2005 20:45:51

ok ya no tienes porque responder ya logre hacerlo de esta forma:

Código:

  mi_base:= Nombre_BaseDatos+'1'; 

   query1.Close;

   query1.SQL.Add('create database if not exists');

   query1.SQL.Add(mi_base);

   query1.ExecSQL;

roman

23-08-2005 21:17:35

Aunque por claridad yo preferiría algo como

Código Delphi [-]const
  fmtCreateDatabase = 'create database if not exists %s';

begin
  Query.SQL.Text := Format(fmtCreateDatabase, mi_base);
end;

// Saludos

Shidalis

23-08-2005 22:05:15

Muchas Gracias por tu Ayuda Roman

La franja horaria es GMT +2. Ahora son las 01:45:52.