ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

conexão Firebird 2.1.7

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Banco de Dados
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
joscru01
Novato
Novato


Registrado: Quarta-Feira, 1 de Julho de 2009
Mensagens: 87
Localização: Uiraúna-PB

MensagemEnviada: Ter Dez 15, 2009 2:00 am    Assunto: conexão Firebird 2.1.7 Responder com Citação

Bom dia

Uso vb6 e estou migrando para Delhi 7, embora tenha comprado o Delphi 2005 porem ele ainda não chegou. e já mim arrependi pois já foi lançado o Delphi 2010 e vou ficar um bocado de versão atrás.

Bom vamos a duvida.

no vb para conectar ao firebird eu crio um arquivo que posso da qualquer nome, txt,dll,ini etc.

Obs. A maquina que instalo o banco de dados eu sempre coloco o nome do computador para SERVANT.

ao abrir o sistema pela primeira vez, a submain chama uma função que verifica o nome da máquina e cria o arquivo que montará a string de conexão.

Arquivo Config.dll

nome da máquina=SERVANT
IP da maquina Servidor=127.0.0.1
caminho do Banco de Dados=C:\Pastadosistema\Banco.FDB


Open "C:\PastadoSistema\Config.dll" For Input As #1
Do While Not EOF(1)
If VL = 0 Then
Line Input #1, Texto1
ElseIf VL = 1 Then
Line Input #1, Texto2
ElseIf VL = 2 Then
Line Input #1, Texto3
End If
VL = VL + 1
Loop
Close #1
Comc = Texto2 & ":" & Texto3
NMaq = Get_Computer_Name
For i = 1 To Len(NMaq)
CHAR1 = Asc(Mid(NMaq, i, 1))
If CHAR1 <> 0 Then
Char = Char & Mid(NMaq, i, 1)
End If
Next
NMaq = Char


If UCase(NMaq) <> "SERVANT" Then (Conexão rede)
Cnn.CursorLocation = adUseClient
Cnn.Open "Provider=IBOLE.PROVIDER;Data Source=" & Comc & ";User ID=" & "SYSDBA" & ";Password=" & "masterkey"
Principal = 1
Else
Comc = "LocalHost" & ":" & Texto3 (Conexão Local)
Cnn.CursorLocation = adUseClient
Cnn.Open "Provider=IBOLE.PROVIDER;Data Source=" & Comc & ";User ID=" & "SYSDBA" & ";Password=" & "masterkey"
Principal = 0
End If

Pergunto

1 - como eu faria para usar a mesma metodologia no Delphi 7

Fazer a conexão local ou em rede conforme o nome da maquina.

2 - Li em algum lugar que quando a extensão do BD é GDB significa que é Interbase e FDB Firebird, porem em 99% dos tutos,dicas etc. que falam que referem-se a firebird usam a extensão GDB.

Obrigado
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Ter Dez 15, 2009 8:40 am    Assunto: Responder com Citação

Bom dia, a extensão do banco não importa para o Fire, mais ele por padrão usa FDB.

Para configurar o acesso ao banco, depende do componente de acesso as tabelas, eu uso aqui o zeos, e não faço nada mais do que um arquivo INI

Código:
[Conexao]
HostName=meuip
Port=3050
Database=C:\Pastadosistema\Banco.FDB
Password=masterkey
User=SYSDBA
Protocol=Firebird-2.0

Pronto só esta configuração ai no zeos ele ja sabe como conectar, outros componentes como dbx, ibx, muda algumas coisinhas, mais é praticamente a mesma coisa. Não tem segredo não. O que pode as vezes dar problema ao conectar é alguma falda de dll no system do windows.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Banco de Dados Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB