如果要直连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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货