高分求教:如何用delphi直接连接interbase数据库,不通过BDE或者ADO,什么的。

时间:2023-01-07 18:11:54
高分求教:如何用delphi直接连接interbase数据库,不通过BDE或者ADO,什么的。

我用的是delphi6,interbase的数据库也已经建好 chen.gdb

现在我想直接通过DELPHI连接上数据库,该如何做呀。

我想用,IBTable1,或者IBQuery1控件,可不会用,也不知道可以不可以直接连接IB数据库。

请高手多多指导呀,我是菜鸟,救命呀。

还有,那里有,delphi连接interbase的资料,和源程序下呀????

帮帮忙,大虾们。

3 个解决方案

#1


如果要直连interbase,我只会用ibx控件
ibx与传统的数据库控件区别在于:ibtransaction
ibdatabase必须指定一个ibtransaction
你看看下面的dfm文件,可能能看清楚!其他都跟传统的数据库控件没很大的区别
如果你不清楚,我可以给你一个源程序!
 object IBDatabase1: TIBDatabase
    Connected = True
    DatabaseName = 'F:\Delphi6For2000\Projects\SE\SEARCHENGINE725.GDB'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey'
      'sql_role_name=master')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = []
    Left = 56
    Top = 600
  end
  object IBTransaction1: TIBTransaction
    Active = True
    DefaultDatabase = IBDatabase1
    AutoStopAction = saNone
    Left = 88
    Top = 600
  end
  object IBQuery1: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select ID,FILENAME, FILESIZE from FILEINFO')
    Left = 128
    Top = 600
  end
  object DataSource1: TDataSource
    DataSet = IBQuery1
    Left = 24
    Top = 600
  end

#2


up

#3


thank you

#1


如果要直连interbase,我只会用ibx控件
ibx与传统的数据库控件区别在于:ibtransaction
ibdatabase必须指定一个ibtransaction
你看看下面的dfm文件,可能能看清楚!其他都跟传统的数据库控件没很大的区别
如果你不清楚,我可以给你一个源程序!
 object IBDatabase1: TIBDatabase
    Connected = True
    DatabaseName = 'F:\Delphi6For2000\Projects\SE\SEARCHENGINE725.GDB'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey'
      'sql_role_name=master')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = []
    Left = 56
    Top = 600
  end
  object IBTransaction1: TIBTransaction
    Active = True
    DefaultDatabase = IBDatabase1
    AutoStopAction = saNone
    Left = 88
    Top = 600
  end
  object IBQuery1: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    Active = True
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select ID,FILENAME, FILESIZE from FILEINFO')
    Left = 128
    Top = 600
  end
  object DataSource1: TDataSource
    DataSet = IBQuery1
    Left = 24
    Top = 600
  end

#2


up

#3


thank you