[firebase-br] RES: ENC: Hello world em VB.NET com FB, alguém tem?
Marcelo - MK Softwares
marcelo em mksoftwares.com.br
Qua Jun 14 14:26:47 -03 2017
Como você esta usando VB.Net eu recomendaria você usar a dll FirebirdClient, pois ela é o método nativo de comunicação .net com o firebird, qualquer outro modo pode apresentar problemas, eu disse pode.
Ficaria mais ou menos assim:
Imports FirebirdSql.Data.FirebirdClient
Public Class Form1
Private Sub Conecta()
Dim fbStringBuider As New FbConnectionStringBuilder
fbStringBuider.UserID = "SYSDBA" 'Colocar o usuário do banco
fbStringBuider.Password = "masterkey" ' Colocar a senha do banco
fbStringBuider.DataSource = "localhost" 'Colocar o IP da maquina
fbStringBuider.Database = "C:\TESTE\DADOS\TESTE.FDB" 'Colocar o nome do banco
fbStringBuider.Charset = "WIN1252"
fbStringBuider.ClientLibrary = "C:\Program Files (x86)\Firebird\Firebird_3_0\fbclient.dll"
fbStringBuider.Dialect = "3"
Dim myConn As FbConnection
Try
myConn = New FbConnection(fbStringBuider.ConnectionString)
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
End Sub
End Class
From: Sofia Bonato de Moraes - EES
Sent: quarta-feira, 14 de junho de 2017 13:02
To: 'FireBase'
Subject: [firebase-br] RES: ENC: Hello world em VB.NET com FB, alguém tem?
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