Interbase - Criar Banco
Olá Pessoal,
Fiz uma determinada rotina pra criar um Banco de dados para uso
temporário.
Esta rotina Não funciona no micro que o Interbase está instalado como
cliente. Está correto?
Tem algum problema instalar o Interbase completo também nas estacoes?
Desde já agradeço pela ajuda
Geraldo
Fiz uma determinada rotina pra criar um Banco de dados para uso
temporário.
Esta rotina Não funciona no micro que o Interbase está instalado como
cliente. Está correto?
Tem algum problema instalar o Interbase completo também nas estacoes?
Desde já agradeço pela ajuda
Geraldo
Jose Oliveira
Curtidas 0
Respostas
Afarias
26/07/2003
|Fiz uma determinada rotina pra criar um Banco de dados para uso
|temporário. Esta rotina Não funciona no micro que o Interbase está
|instalado como cliente. Está correto?
Qual seu procedimento?? Qual o erro??
|Tem algum problema instalar o Interbase completo também nas
|estacoes?
Não é necessário.
T+
|temporário. Esta rotina Não funciona no micro que o Interbase está
|instalado como cliente. Está correto?
Qual seu procedimento?? Qual o erro??
|Tem algum problema instalar o Interbase completo também nas
|estacoes?
Não é necessário.
T+
GOSTEI 0
Jose Oliveira
26/07/2003
A mensagem de erro é: Unavailable DataBase.
A rotina é esta:
Aux:=IBDatabase1.Params.Text;
IBDatabase1.Params.Clear;
IBDatabase1.Params.Add(´USER ´SYSDBA´´);
IBDatabase1.Params.Add(´PASSWORD ´masterkey´´);
IBDatabase1.DatabaseName:= ´C:\TESTE\TESTE.GDB´;
// O ERRO OCORRE NA PROXIMA LINHA
IBDatabase1.CreateDatabase;
IBDatabase1.Close;
IBDatabase1.Params.Text:=Aux;
try
IBDataBase1.Open;
IBTransaction1.Active:=True;
except
MessageDLG(´Não foi possível estabelecer uma conexão com a Base de Dados. Verifique se o InterBase está ativo.´,mtError,[mbOk],0);
Exit;
end;
Strings1:=TStringList.Create;
IBDataBase1.GetTableNames(Strings1);
if Strings1.Count=0 then
begin
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(´CREATE Table COBRANCA (´);
IBQuery1.SQL.Add(´REGISTRO INTEGER NOT NULL´);
IBQuery1.Sql.Add(´PRIMARY KEY (REGISTRO) )´);
IBQuery1.ExecSql;
IBQuery1.Close;
except
SHOWMESSAGE(´Erro ao criar tabela.´);
end;
End;
;
IBDataBase1.Close;
Fico no aguardo,
obrigado
Geraldo
A rotina é esta:
Aux:=IBDatabase1.Params.Text;
IBDatabase1.Params.Clear;
IBDatabase1.Params.Add(´USER ´SYSDBA´´);
IBDatabase1.Params.Add(´PASSWORD ´masterkey´´);
IBDatabase1.DatabaseName:= ´C:\TESTE\TESTE.GDB´;
// O ERRO OCORRE NA PROXIMA LINHA
IBDatabase1.CreateDatabase;
IBDatabase1.Close;
IBDatabase1.Params.Text:=Aux;
try
IBDataBase1.Open;
IBTransaction1.Active:=True;
except
MessageDLG(´Não foi possível estabelecer uma conexão com a Base de Dados. Verifique se o InterBase está ativo.´,mtError,[mbOk],0);
Exit;
end;
Strings1:=TStringList.Create;
IBDataBase1.GetTableNames(Strings1);
if Strings1.Count=0 then
begin
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(´CREATE Table COBRANCA (´);
IBQuery1.SQL.Add(´REGISTRO INTEGER NOT NULL´);
IBQuery1.Sql.Add(´PRIMARY KEY (REGISTRO) )´);
IBQuery1.ExecSql;
IBQuery1.Close;
except
SHOWMESSAGE(´Erro ao criar tabela.´);
end;
End;
;
IBDataBase1.Close;
Fico no aguardo,
obrigado
Geraldo
GOSTEI 0
Afarias
26/07/2003
|A mensagem de erro é: Unavailable DataBase.
{...}
|IBDatabase1.DatabaseName:= ´C:\TESTE\TESTE.GDB´;
Se deseja criar/acessar um banco de dados na máquina local, realmente vc tem q instalar o INTERBASE SERVER na máquina.
Se deseja utilizar um servidor IB em outra máquina na rede, então, vc deve modar sua string de conexão (DatabaseName) e incluir o nome ou ip do servidor (onde está inatalado o IB Server) antes do caminho, na forma:
IBDatabase1.DatabaseName:= ´servidor:C:\TESTE\TESTE.GDB´;
ou
IBDatabase1.DatabaseName:= ´xxx.xxx.xxx.xxx:C:\TESTE\TESTE.GDB´;
T+
{...}
|IBDatabase1.DatabaseName:= ´C:\TESTE\TESTE.GDB´;
Se deseja criar/acessar um banco de dados na máquina local, realmente vc tem q instalar o INTERBASE SERVER na máquina.
Se deseja utilizar um servidor IB em outra máquina na rede, então, vc deve modar sua string de conexão (DatabaseName) e incluir o nome ou ip do servidor (onde está inatalado o IB Server) antes do caminho, na forma:
IBDatabase1.DatabaseName:= ´servidor:C:\TESTE\TESTE.GDB´;
ou
IBDatabase1.DatabaseName:= ´xxx.xxx.xxx.xxx:C:\TESTE\TESTE.GDB´;
T+
GOSTEI 0
Jose Oliveira
26/07/2003
Tem algum problema instalar o Interbase completo nas estacoes?
Alem de ser necessário criar banco/tabelas temporárias o cliente
utiliza o sistema da seguinte forma:
- quando está na empresa, conecta o notebook na rede e utiliza
a base de dados atualizada e atualiza os dados do seu notebook.
- quando vai visitar o cliente, leva o notebook para apresentacao
e consulta de dados.
Desde já agradeco pela ajuda.
Geraldo.
Alem de ser necessário criar banco/tabelas temporárias o cliente
utiliza o sistema da seguinte forma:
- quando está na empresa, conecta o notebook na rede e utiliza
a base de dados atualizada e atualiza os dados do seu notebook.
- quando vai visitar o cliente, leva o notebook para apresentacao
e consulta de dados.
Desde já agradeco pela ajuda.
Geraldo.
GOSTEI 0
Afarias
26/07/2003
|Tem algum problema instalar o Interbase completo nas estacoes?
NÃO
|Alem de ser necessário criar banco/tabelas temporárias o cliente
|utiliza o sistema da seguinte forma: {...}
vc pode fazer o q deseja com:
1 - ter o IB Server nas estações com o banco de dados e usar um sistema de REPLICAÇÃO para atualizar a base principal
2 - Desenvolver seu sistema no modelo ´Briefcase´ (com MIDAS por ex.)
T+
NÃO
|Alem de ser necessário criar banco/tabelas temporárias o cliente
|utiliza o sistema da seguinte forma: {...}
vc pode fazer o q deseja com:
1 - ter o IB Server nas estações com o banco de dados e usar um sistema de REPLICAÇÃO para atualizar a base principal
2 - Desenvolver seu sistema no modelo ´Briefcase´ (com MIDAS por ex.)
T+
GOSTEI 0