BANCO DE DADOS

AUSTANDER 05/01/2013 00:25:04
#416784

Olha só como vc vai se conectar ao banco de dados em rede,, sem precisar mecher em tcp/ip e outras tralhas que tem

1º a sua maquina tem que ter instalado o servidor firebird e o driver

2º na máquina do cliente vc instala só o driver

vai conectar assim:::

No modulo coloque

Option Explicit

Global cnSQL As New ADODB.Connection

Global rsSQL As New ADODB.Recordset

Public Function Conecta()

On Error GoTo Finalizar

Dim strConnect As String

Dim strDataBaseName As String

strDataBaseName = [Ô]C:\Arquivos de programas\[Pasta do seu programa]\banco.fdb[Ô] [ô]Tirar os colchetes

strConnect = [Ô]DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA; PWD=masterkey;DBNAME=192.168.56.1:[Ô] & strDataBaseName & [Ô];Option=3;[Ô]

Set cnSQL = New ADODB.Connection

cnSQL.CursorLocation = adUseClient

cnSQL.Open strConnect

Set rsSQL = New ADODB.Recordset

rsSQL.CursorType = adOpenStatic

rsSQL.CursorLocation = adUseClient

rsSQL.LockType = adLockPessimistic

rsSQL.ActiveConnection = cnSQL

Exit Function

Finalizar:

MsgBox [Ô]Não foi possível estabelecer comunicação com o Servidor![Ô] & _
Chr(13) & [Ô]Configure o caminho Corretamente!![Ô], vbCritical, [Ô]Aviso[Ô]

End

End Function

[ô] Gosto de colocar o DBNAME=192.168.56.1 ou outro IP porque aí a máquina cliente vai primeiro buscar o ip do servidor
e depois
o strDataBaseName = [Ô]C:\Arquivos de programas\[Pasta do seu programa]\banco.fdb[Ô]

obs: O startup do modulo tem que estar definido como submain

para usar o comando em um botao colque

Conecta

Select bla,bla,bla

Insert bla,bla,bla

Eu particulamente não sou fã do vb pq ele é orientado a eventos e tem o compilador lerdo d +,,por isso gosto de usar o delphi 2010 embargadero, pois a compilação é exelente, sem contar na hora que o cliente executa

espero que ajude