[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