Fórum DBExpress, MySQL (Create Database) #158153

Estou precisando disso ai para automatizar a instalação do meu sistema.

:cry:

Poxa ninguem sabe um jeito de fazer isso naum ?

Será que essa minha pergunta é tão dificil assim que ninguem sabe responder?

//Caro colega aqui vai a sua solução

procedure CriaBanco(ConName, pUsuario, pSenha: String);
begin

Database := TSQLConnection.Create(nil);

// configura DataBase
DataBase.ConnectionName := ConName;
DataBase.DriverName := ´MYSQL´;
DataBase.GetDriverFunc := ´getSQLDriverMYSQL´;
DataBase.KeepConnection := True;
DataBase.LibraryName := ´dbexpmy4.dll´; // ou a versão adequada ao seu banco
DataBase.LoadParamsOnConnect := false;
DataBase.LoginPrompt := False;
DataBase.TableScope := ([tsTable] + [tsView]);
DataBase.Tag := 0;
DataBase.VendorLib := ´LIBMYSQL.dll´;

DataBase.Params.Clear;
DataBase.Params.Add(´DriverName=MYSQL´);
DataBase.Params.Add(´BlobSize=-1´);
DataBase.Params.Add(´Database=nomedobanco´);
DataBase.Params.Add(´ErrorResourceFile=´);
DataBase.Params.Add(´HostName=nome do host ou ip´);
DataBase.Params.Add(´LocaleCode=0000´);
DataBase.Params.Add(´Password=´+ pSenha);
DataBase.Params.Add(´User_Name=´ + pUsuario´);

try
DataBase.Connected := true;
except

try

DataBase.Connected := False;
DataBase.Params.Clear;
DataBase.Params.Add(´DriverName=MYSQL´);
DataBase.Params.Add(´BlobSize=-1´);
DataBase.Params.Add(´Database=mysql´);
DataBase.Params.Add(´ErrorResourceFile=´);
DataBase.Params.Add(´HostName=nome do host ou ip´);
DataBase.Params.Add(´LocaleCode=0000´);
DataBase.Params.Add(´Password=´);
DataBase.Params.Add(´User_Name=root´);
DataBase.Connected := true;

DataBase.ExecuteDirect(´CREATE DATABASE nomedobanco´);

DataBase.ExecuteDirect(´GRANT ALL PRIVILEGES ON *.* TO root@localhost WITH GRANT OPTION´);
DataBase.ExecuteDirect(´FLUSH PRIVILEGES´);
DataBase.ExecuteDirect(´GRANT ALL PRIVILEGES ON *.* TO root@´¬´ WITH GRANT OPTION´);
DataBase.ExecuteDirect(´FLUSH PRIVILEGES´);

DataBase.ExecuteDirect(´GRANT ALL PRIVILEGES ON *.* TO ´´@localhost WITH GRANT OPTION´);
DataBase.ExecuteDirect(´FLUSH PRIVILEGES´);
DataBase.ExecuteDirect(´GRANT ALL PRIVILEGES ON *.* TO ´´@´¬´ WITH GRANT OPTION´);
DataBase.ExecuteDirect(´FLUSH PRIVILEGES´);

if lengthpUsuario) <> 0 then
begin
if length(pSenha) <> 0 then
begin
DataBase.ExecuteDirect(´GRANT ALL PRIVILEGES ON *.* TO ´ + pUsuario + ´@localhost IDENTIFIED BY ´ + QuotedStr(pSenha) + ´ WITH GRANT OPTION´);
DataBase.ExecuteDirect(´FLUSH PRIVILEGES´);
DataBase.ExecuteDirect(´GRANT ALL PRIVILEGES ON *.* TO ´ + pUsuario + ´@´¬´ IDENTIFIED BY ´ + QuotedStr(pSenha) + ´ WITH GRANT OPTION´);
DataBase.ExecuteDirect(´FLUSH PRIVILEGES´);
end
else
begin
DataBase.ExecuteDirect(´GRANT ALL PRIVILEGES ON *.* TO ´ + pUsuario + ´@localhost WITH GRANT OPTION´);
DataBase.ExecuteDirect(´FLUSH PRIVILEGES´);
DataBase.ExecuteDirect(´GRANT ALL PRIVILEGES ON *.* TO ´ + pUsuario + ´@´¬´ WITH GRANT OPTION´);
DataBase.ExecuteDirect(´FLUSH PRIVILEGES´);
end;
end;

DataBase.Connected := False;
DataBase.Params.Clear;
DataBase.Params.Add(´DriverName=MYSQL´);
DataBase.Params.Add(´BlobSize=-1´);
DataBase.Params.Add(´Database=nomedobanco´);
DataBase.Params.Add(´ErrorResourceFile=´);
DataBase.Params.Add(´HostName=nome do host ou ip´);
DataBase.Params.Add(´LocaleCode=0000´);
DataBase.Params.Add(´Password=´+pSenha);
DataBase.Params.Add(´User_Name=´+pUsuario);
DataBase.Connected := true;

except
on e:exception do
showmessage(´Rotina ´CriaBanco´: ´+ConName+´->´+e.Message);
end;
end;
end;

Valeu cara ... isso vai ajudar bastante :)

eu não sabia dakele tal de DataBase.ExecuteDirect(´CREATE DATABASE nomedobanco´);

Foi isso que faltou na minha rotina ...

Claro vc não lé o HELP copia dica po .