Como creo una base de datos por Delphi

[Shidalis]

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

[roman]

¿Qué tipo de base de datos?

// Saludos

[Shidalis]

Una Base de Datos en MySQL

[roman]

¿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]

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

   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]

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]

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:

 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]

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

  mi_base:= Nombre_BaseDatos+'1'; 
   query1.Close;
   query1.SQL.Add('create database if not exists');
   query1.SQL.Add(mi_base);
   query1.ExecSQL;

[roman]

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]

Muchas Gracias por tu Ayuda Roman