[firebase-br] RES: ENC: Hello world em VB.NET com FB, alguém tem?
motorolars .
motorolars em gmail.com
Qua Jun 14 13:14:42 -03 2017
Olá
Exemplo:
CN = New ADODB.Connection
CN.Open("DRIVER={Firebird/InterBase(r)
driver};SERVER=10.0.1.166;DATABASE=10.0.1.166:
c:\tools\dados.gdb;UID=SYSDBA;PWD=masterkey;CHARSET=ISO8859_1")
[]s
Marcelo
Em 14 de junho de 2017 12:59, Sofia Bonato de Moraes - EES <
sbonato em ees.com.br> escreveu:
> Deve ser alguma diferença entre o 2.5 e o 3.0...
>
> O importante é q funcionou
>
> -----Mensagem original-----
> De: lista [mailto:lista-bounces em firebase.com.br] Em nome de Gladiston
> Santana
> Enviada em: quarta-feira, 14 de junho de 2017 11:33
> Para: FireBase <lista em firebase.com.br>
> Assunto: Re: [firebase-br] ENC: Hello world em VB.NET com FB, alguém tem?
>
> Olá,
>
> A String de conexão não funcionou porque estava incompleta (sem o charset e
> dialect não conecta-se) e por alguma razão misteriosa é necessário
> mencionar
> a client dll. Ficou assim no final:
>
> Dim sConnParamList As String
> Dim sUserName As String
> Dim sPassword As String
> Dim sDriver As String
> Dim sServer As String
> Dim sDataBase As String
> Dim sCharSet As String
> Dim sClient As String
> Dim sDialect As String
> Dim myConn As New Odbc.OdbcConnection
>
>
> sUserName = "SYSDBA" 'Colocar o usuário do banco
> sPassword = "masterkey" ' Colocar a senha do banco
> sDriver = "Firebird/InterBase(r) driver"
> sServer = "localhost" 'Colocar o IP da maquina
> sDataBase = "C:\TESTE\DADOS\TESTE.FDB" 'Colocar o nome do banco
> sCharSet = "WIN1252"
> sClient = "C:\Program Files
> (x86)\Firebird\Firebird_3_0\fbclient.dll"
> sDialect = "3"
>
> 'String FireBird
> sConnParamList = "DRIVER=" & sDriver & _
> ";UID=" & sUserName & _
> ";PWD=" & sPassword & _
> ";Dbname=" & sServer & ":" & sDataBase & _
> ";CharacterSet=" & sCharSet & _
> ";Dialect=" & sDialect & _
> ";Client=" & sClient
> myConn.ConnectionString = sConnParamList
> Try
> myConn.Open()
> If myConn.State = ConnectionState.Open Then
> MsgBox("Conectado")
> myConn.Close()
> End If
> Catch ex As Exception
> MessageBox.Show("Não foi possível conectar à base de dados: " &
> ex.Message, "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
> Application.Exit()
> End Try
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br Para
> saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas:
> http://www.firebase.com.br/pesquisa_lista.html
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use:
> http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://www.firebase.com.br/
> pesquisa_lista.html
>
Mais detalhes sobre a lista de discussão lista