can';t使用VB.NET连接到interbase

can';t使用VB.NET连接到interbase,vb.net,odbc,sqlconnection,interbase,Vb.net,Odbc,Sqlconnection,Interbase,我是VB.NET的新手 我正在尝试连接INTERBASE数据库(本地),但出现错误: 我试过很多东西,但都没有用。 不知道我做错了什么或错过了什么 Imports FirebirdSql Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim query As String = "select * from EMPLOYEE"

我是VB.NET的新手

我正在尝试连接INTERBASE数据库(本地),但出现错误:

我试过很多东西,但都没有用。 不知道我做错了什么或错过了什么

Imports FirebirdSql

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim query As String = "select * from EMPLOYEE"
    Dim csb As FbConnectionStringBuilder
    Dim cnn As New FbConnection

    csb = New FbConnectionStringBuilder()
    csb.DataSource = "LOCALHOST"
    csb.ServerType = 0
    csb.Database = "c:\db\office.gdb"
    csb.UserID = "SYSDBA"
    csb.Password = "masterkey"

    cnn = New FbConnection(csb.ToString)

    Dim da As New FirebirdSql.Data.FirebirdClient.FbDataAdapter(query, cnn)
    Dim ds As New DataSet
    Dim dt As New DataTable

    Try
        cnn.Open()
        da.Fill(dt)
        cnn.Close()
        cnn.Dispose()

        Dim ans As String

        If dt.Rows.Count > 0 Then
            For Each row As DataRow In dt.Rows
                ans = Convert.ToString(row.Item(1))
                TextBox1.Text = ans
            Next
        Else
            TextBox1.Text = "Record Not Found"
        End If
    Catch ex As Exception
        MessageBox.Show("Error: " & ex.Message, "Error")
    End Try

End Sub
End Class

您不能使用
FirebirdClient
连接到InterBase。Firebird和InterBase不一样。

您不能使用
FirebirdClient
连接到InterBase。Firebird和InterBase不一样。

您不能使用
FirebirdClient
连接到InterBase。Firebird和InterBase不一样。

您不能使用
FirebirdClient
连接到InterBase。Firebird和InterBase不一样。

所以。。。!!! 挖网后,我终于让它工作了

  • 已安装“Firebird_ODBC_2.0.3.154_Win32.exe”,下载自

  • 修复了我的脚本:

    Dim query As String = "select * from EMPLOYEE"
    Dim cnn As New Odbc.OdbcConnection()
    Dim estring As New Odbc.OdbcConnectionStringBuilder("DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=128.1.7.81:C:\office\db\office.gdb;")
    cnn = New OdbcConnection(estring.ToString)
    
    Dim da As New OdbcDataAdapter("select * from EMPLOYEE", estring.ToString)
    Dim ds As New DataSet
    Dim dt As New DataTable
    
    Try
        cnn.Open()
        da.Fill(dt)
        cnn.Close()
        cnn.Dispose()
       ' (and so one).....
    
  • 建立了联系,我很高兴! 关于Firdbird的.NET OLE DB提供程序(不使用Interbase),您是对的,谢谢大家的帮助

    我希望这个帖子能帮助其他人解决这个问题。

    所以。。。!!! 挖网后,我终于让它工作了

  • 已安装“Firebird_ODBC_2.0.3.154_Win32.exe”,下载自

  • 修复了我的脚本:

    Dim query As String = "select * from EMPLOYEE"
    Dim cnn As New Odbc.OdbcConnection()
    Dim estring As New Odbc.OdbcConnectionStringBuilder("DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=128.1.7.81:C:\office\db\office.gdb;")
    cnn = New OdbcConnection(estring.ToString)
    
    Dim da As New OdbcDataAdapter("select * from EMPLOYEE", estring.ToString)
    Dim ds As New DataSet
    Dim dt As New DataTable
    
    Try
        cnn.Open()
        da.Fill(dt)
        cnn.Close()
        cnn.Dispose()
       ' (and so one).....
    
  • 建立了联系,我很高兴! 关于Firdbird的.NET OLE DB提供程序(不使用Interbase),您是对的,谢谢大家的帮助

    我希望这个帖子能帮助其他人解决这个问题。

    所以。。。!!! 挖网后,我终于让它工作了

  • 已安装“Firebird_ODBC_2.0.3.154_Win32.exe”,下载自

  • 修复了我的脚本:

    Dim query As String = "select * from EMPLOYEE"
    Dim cnn As New Odbc.OdbcConnection()
    Dim estring As New Odbc.OdbcConnectionStringBuilder("DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=128.1.7.81:C:\office\db\office.gdb;")
    cnn = New OdbcConnection(estring.ToString)
    
    Dim da As New OdbcDataAdapter("select * from EMPLOYEE", estring.ToString)
    Dim ds As New DataSet
    Dim dt As New DataTable
    
    Try
        cnn.Open()
        da.Fill(dt)
        cnn.Close()
        cnn.Dispose()
       ' (and so one).....
    
  • 建立了联系,我很高兴! 关于Firdbird的.NET OLE DB提供程序(不使用Interbase),您是对的,谢谢大家的帮助

    我希望这个帖子能帮助其他人解决这个问题。

    所以。。。!!! 挖网后,我终于让它工作了

  • 已安装“Firebird_ODBC_2.0.3.154_Win32.exe”,下载自

  • 修复了我的脚本:

    Dim query As String = "select * from EMPLOYEE"
    Dim cnn As New Odbc.OdbcConnection()
    Dim estring As New Odbc.OdbcConnectionStringBuilder("DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=128.1.7.81:C:\office\db\office.gdb;")
    cnn = New OdbcConnection(estring.ToString)
    
    Dim da As New OdbcDataAdapter("select * from EMPLOYEE", estring.ToString)
    Dim ds As New DataSet
    Dim dt As New DataTable
    
    Try
        cnn.Open()
        da.Fill(dt)
        cnn.Close()
        cnn.Dispose()
       ' (and so one).....
    
  • 建立了联系,我很高兴! 关于Firdbird的.NET OLE DB提供程序(不使用Interbase),您是对的,谢谢大家的帮助


    我希望此线程可以帮助其他人解决此问题。

    它是否适用于ans=Convert.ToString(row.Item(0))?这听起来根本不像是连接问题。你在哪一行收到异常?记住,集合等都是基于零的-第一项将是
    项(1)
    nop,在调试模式下,它会在
    cnn.open()上停止,并抛出附加的错误cnn.open有点太早了。我怀疑行.item(1)可能导致此问题。删除所有
    后,如果
    station include
    FOR
    循环仍然在
    cnn.Open()
    :(它是否与ans=Convert.ToString(行.item(0))一起工作)?这听起来根本不像是一个连接问题。你在哪一行得到异常?记住,集合等都是基于零的-第一项是
    item(1)
    nop,在调试模式下它会在
    cnn.open()
    上停止并抛出附加的错误cnn.open有点太早了。我怀疑row.item(1)可能是导致此问题的原因。删除所有
    后,如果
    station include
    FOR
    循环仍然在
    cnn.Open()上出错(
    ):(它是否与ans=Convert.ToString(row.Item(0))一起工作)?这听起来根本不像是一个连接问题。你在哪一行得到异常?记住,集合等都是基于零的-第一项是
    item(1)
    nop,在调试模式下它会在
    cnn.open()
    上停止并抛出附加的错误cnn.open有点太早了。我怀疑row.item(1)可能是导致此问题的原因。删除所有
    后,如果
    station include
    FOR
    循环仍然在
    cnn.Open()上出错(
    ):(它是否与ans=Convert.ToString(row.Item(0))一起工作)?这听起来根本不像是一个连接问题。你在哪一行得到异常?记住,集合等都是基于零的-第一项是
    item(1)
    nop,在调试模式下它会在
    cnn.open()
    上停止并抛出附加的错误cnn.open有点太早了。我怀疑row.item(1)可能是导致此问题的原因。删除所有
    后,如果
    station include
    FOR
    循环仍在
    cnn.Open()上出错
    :(