can';t使用VB.NET连接到interbase
我是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"
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不一样。所以。。。!!!
挖网后,我终于让它工作了
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).....
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).....
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).....
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).....
我希望此线程可以帮助其他人解决此问题。它是否适用于ans=Convert.ToString(row.Item(0))?这听起来根本不像是连接问题。你在哪一行收到异常?记住,集合等都是基于零的-第一项将是
项(1)
nop,在调试模式下,它会在cnn.open()上停止,并抛出附加的错误cnn.open有点太早了。我怀疑行.item(1)可能导致此问题。删除所有后,如果station includeFOR
循环仍然在cnn.Open()
:(它是否与ans=Convert.ToString(行.item(0))一起工作)?这听起来根本不像是一个连接问题。你在哪一行得到异常?记住,集合等都是基于零的-第一项是item(1)
nop,在调试模式下它会在cnn.open()
上停止并抛出附加的错误cnn.open有点太早了。我怀疑row.item(1)可能是导致此问题的原因。删除所有后,如果
station includeFOR
循环仍然在cnn.Open()上出错(
):(它是否与ans=Convert.ToString(row.Item(0))一起工作)?这听起来根本不像是一个连接问题。你在哪一行得到异常?记住,集合等都是基于零的-第一项是item(1)
nop,在调试模式下它会在cnn.open()
上停止并抛出附加的错误cnn.open有点太早了。我怀疑row.item(1)可能是导致此问题的原因。删除所有后,如果
station includeFOR
循环仍然在cnn.Open()上出错(
):(它是否与ans=Convert.ToString(row.Item(0))一起工作)?这听起来根本不像是一个连接问题。你在哪一行得到异常?记住,集合等都是基于零的-第一项是item(1)
nop,在调试模式下它会在cnn.open()
上停止并抛出附加的错误cnn.open有点太早了。我怀疑row.item(1)可能是导致此问题的原因。删除所有后,如果
station includeFOR
循环仍在cnn.Open()上出错
:(