[firebase-br] ENC: Hello world em VB.NET com FB, alguém tem?

[Gladiston Santana]

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