Eu faço da seguinte forma:
1)no CD eu coloco o MSDE pra instalar normal já pré-configurado no .ini
2) coloco também um aplicativozinho que roda um script no banco. Este
aplicativo irá carregar os scripts que cria a base de dados e as tabelas na
base e ajustes adicionais como criar usuaário inicial e alimentar algumas
tabelas. Veja abaixo o núcleo do código dele (a partir dele voce faz o seu).
Este aplicativo carrega um script e roda no banco. Serve pra criar tabelas e
ajustar dados. Mas pra tudo você terá que fazer via script sql.
procedure TMMMAT.Button1Click(Sender: TObject);
var
fb : file of byte;
f : textfile;
qry : TADOQuery;
PathScript, line : string;
nline : integer;
Resultado : TStringList;
begin
OpenDialogScript.Execute;
PathScript := OpenDialogScript.FileName;
if PathScript <> '' then
begin
ActiveButtonsImport;
Button1.Enabled := False;
pBar.position := 0;
assignfile(fb,PathScript);
FileMode := 0;
Reset(fb);
pBar.max := FileSize(fb);
closefile(fb);
assignfile(f, PathScript);
reset(f);
WinExec('NET START MSSQL$TELEMONT',SW_SHOWNORMAL);
qry := TADOQuery.Create(nil);
qry.ConnectionString := format('Provider=SQLOLEDB.1;Password=sa;Persist
Security Info=True;User ID=sa;Initial Catalog=master;Data
Source=%s\RECRIAR;',[NomeComputador]);;
// qry.ConnectionString := 'Provider=SQLOLEDB.1;Password=rm;Persist
Security Info=True;User ID=sa;Initial Catalog=master;Data
Source=servdatarms\TELEMONT;';
Resultado := TStringList.Create;
Application.ProcessMessages;
try
nline := 0;
while (not eof(f)) and (not isStop) do
begin
inc(nline);
readln(f, line);
pBar.StepBy(length(line) + 2);
line := trim(line);
if uppercase(line) = 'GO' then
begin
try
qry.ExecSQL;
qry.SQL.Clear;
except
MessageDlg('Erro ao executar sentença na linha '+
IntToStr(nline-1) + ' :' + Exception(exceptobject).message, mtError, [mbOk],
0);
Resultado.Add('Erro ao executar sentença na linha
'+IntToStr(nline-1)+' :');
Resultado.Add(qry.SQL.text);
Resultado.Add(exception(exceptobject).message);
break;
end;
end
else
qry.SQL.Add(line);
Application.ProcessMessages;
end;
finally
qry.free;
closefile(f);
if Resultado.Count > 0 then
begin
fResult := TFResult.Create(nil);
fResult.mResult.Lines.Assign(Resultado);
fResult.ShowModal;
fResult.free;
end
else
Showmessage('Importação finalizada.');
Resultado.Free;
end;
DeactiveButtonsImport;
end;
end;
[]s
Walter Alves Chagas Junior
Projeto e desenvolvimento de sistemas
Telemont Engenharia de telecomunicações S/A
Belo Horizonte - MG - Brasil
[EMAIL PROTECTED]
Fone: (31) 3389-8215 Fax: (31) 3389-8200
Parabens Telemont - Somos a 8ª maior empresa do Brasil no segmento de
construção!!
-----Mensagem original-----
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
nome de paulo4784
Enviada em: quarta-feira, 13 de setembro de 2006 13:43
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: RES: [delphi-br] Inno Setup com MSDE2000
Walter, até pode ser separado, mas minha dificuldade está em criar um
instalador com o Inno Setup, que na opção servidor já anexe ou crie um
banco de dados no MSDE. Vc usa algo assim? tem algum exemplo que eu
possa me basear?
Obrigado
--- Em delphi-br@yahoogrupos.com.br, Walter Alves Chagas Junior
<[EMAIL PROTECTED]> escreveu
>
> geralmente eu faço separado
>
> []s
>
> Walter Alves Chagas Junior
> Projeto e desenvolvimento de sistemas
> Telemont Engenharia de telecomunicações S/A
> Belo Horizonte - MG - Brasil
> [EMAIL PROTECTED]
> Fone: (31) 3389-8215 Fax: (31) 3389-8200
>
> Parabens Telemont - Somos a 8ª maior empresa do Brasil no segmento de
> construção!!
>
>
> -----Mensagem original-----
> De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
> nome de paulo4784
> Enviada em: quarta-feira, 13 de setembro de 2006 11:04
> Para: delphi-br@yahoogrupos.com.br
> Assunto: [delphi-br] Inno Setup com MSDE2000
>
>
> alguem tem o script pra fazer um instalador com o Inno Setup,
> instalando o MSDE2000?
>
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
