Új hozzászólás Aktív témák

• #172 btotyi tag tusi74 #170

  Új Válasz 2004-11-21 08:36:56 #172

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  btotyi

  tag

  válasz tusi74 #170 üzenetére

  Következő kérdés : Milyen Delphi és milyen Query ?
  
  Most próbáltam ki D7 + IBX-el és hibátlanul megy.
  
  Itt a form ami csinálja
  object Form1: TForm1
  Left = 268
  Top = 666
  Width = 502
  Height = 356
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
  Left = 8
  Top = 8
  Width = 385
  Height = 289
  DataSource = DataSource1
  TabOrder = 0
  TitleFont.Charset = DEFAULT_CHARSET
  TitleFont.Color = clWindowText
  TitleFont.Height = -11
  TitleFont.Name = 'MS Sans Serif'
  TitleFont.Style = []
  end
  object BitBtn1: TBitBtn
  Left = 408
  Top = 16
  Width = 75
  Height = 25
  Caption = 'BitBtn1'
  TabOrder = 1
  OnClick = BitBtn1Click
  end
  object IBDatabase1: TIBDatabase
  Connected = True
  DatabaseName = 'C:\DB\adr.gdb'
  Params.Strings = (
  'user_name=adruser'
  'password=adrpasswd'
  'lc_ctype=WIN1250')
  LoginPrompt = False
  Left = 16
  Top = 16
  end
  object IBTransaction1: TIBTransaction
  Active = True
  DefaultDatabase = IBDatabase1
  Left = 16
  Top = 48
  end
  object IBQuery1: TIBQuery
  Database = IBDatabase1
  Transaction = IBTransaction1
  CachedUpdates = True
  SQL.Strings = (
  'select * from FELHASZNALOK')
  UpdateObject = IBUpdateSQL1
  Left = 48
  Top = 16
  object IBQuery1FELH_AZON: TIntegerField
  FieldName = 'FELH_AZON'
  Origin = '''FELHASZNALOK''.''FELH_AZON'''
  ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
  Required = True
  end
  object IBQuery1NEV: TIBStringField
  FieldName = 'NEV'
  Origin = '''FELHASZNALOK''.''NEV'''
  Required = True
  Size = 30
  end
  object IBQuery1USERNEV: TIBStringField
  FieldName = 'USERNEV'
  Origin = '''FELHASZNALOK''.''USERNEV'''
  Required = True
  Size = 12
  end
  object IBQuery1JOG_KTGH: TIBStringField
  FieldName = 'JOG_KTGH'
  Origin = '''FELHASZNALOK''.''JOG_KTGH'''
  Size = 3500
  end
  object IBQuery1STATUS: TIBStringField
  FieldName = 'STATUS'
  Origin = '''FELHASZNALOK''.''STATUS'''
  FixedChar = True
  Size = 1
  end
  end
  object IBUpdateSQL1: TIBUpdateSQL
  RefreshSQL.Strings = (
  'Select '
  ' FELH_AZON,'
  ' NEV,'
  ' USERNEV,'
  ' JOG_KTGH,'
  ' STATUS'
  'from FELHASZNALOK '
  'where'
  ' FELH_AZON = : FELH_AZON')
  ModifySQL.Strings = (
  'update FELHASZNALOK'
  'set'
  ' FELH_AZON = : FELH_AZON,'
  ' JOG_KTGH = : JOG_KTGH,'
  ' NEV = :NEV,'
  ' STATUS = : STATUS,'
  ' USERNEV = : USERNEV'
  'where'
  ' FELH_AZON = : OLD_FELH_AZON')
  InsertSQL.Strings = (
  'insert into FELHASZNALOK'
  ' (FELH_AZON, JOG_KTGH, NEV, STATUS, USERNEV)'
  'values'
  ' (: FELH_AZON, : JOG_KTGH, :NEV, :STATUS, : USERNEV)')
  DeleteSQL.Strings = (
  'delete from FELHASZNALOK'
  'where'
  ' FELH_AZON = : OLD_FELH_AZON')
  Left = 80
  Top = 16
  end
  object DataSource1: TDataSource
  DataSet = IBQuery1
  Left = 48
  Top = 48
  end
  end
  
  A kettőspont utáni szóközöket vedd ki mert a PH motor emotikonoknak látja az SQL paraméterek. ( Hiányzik a [CODE] tag a PH-ból ?)
  
  [Szerkesztve]

Új hozzászólás Aktív témák