TPB constant (user_name) is unkown

TPB constant (user_name) is unkown
2014-09-09T22:17:22+02:00
2014-09-10T15:39:54+02:00
2022-12-01T13:50:41+01:00
saxonb76
Sziasztok,

Pár év kihagyás után újra nekiültem egy kis hobbi-programozásnak de elakadtam.
Rendszer: Windows 7 (64 bit)
Delphi7
Firebird -  2.5.1.26351
DB manager program: IBexpert Personal Edition
DB: Local, Dialect3, Codelap: WIN1250 (szokásos SYSDBA / masterkey)

Mielőtt bárki elküldene a googlehoz jelzem, hogy már végigtúrtam. Többnyire orosznyelvű oldalakon említenek hasonló problémát.
 
Mielőtt létrejón a főform egy loginformon beléptetném a felhasználót.

A belépés buttonra leellenőrzi hogy a felhasználójogosult e belépni:
1) Meghívja az adabazisnyitas eljárást, ami a következő:

procedure TFrmLogin.AdatbazisNyitas; var db,hst,prot,user,pw:string; begin db:=''; hst:=''; prot:='';user:='';pw:=''; if ((Edit1.Text<>'') and (edit2.text<>'')) then begin /////connect kezd try DM1.LuxDb.Close; DM1.LuxDb.Open; except on ex: Exception do begin try DM1.LuxDb.Params.clear; DM1.LuxDb.Params.add('user_name=ADMIN'); ///Kipróbáltam már más értékekkel is DM1.LuxDb.Params.add('password=admin'); ///Kipróbáltam már más értékekkel is DM1.LuxDb.Params.add('lc_ctype=Win1250'); DM1.LuxDb.Open; except try DM1.LuxDb.Params.clear; DM1.LuxDb.Params.add('lc_ctype=Win1250'); DM1.LuxDb.LoginPrompt:=true; DM1.LuxDb.open; except Application.ProcessMessages; Messagedlg('Connect to the DB is not possible. Please contact the administrator!', mtError,[mbOk], 0); exit; end; end; end; end; end;//0 end;//case Az adatbáziskapsolat elvileg rendben létrejön. Debugoltam de nem talált hibát. A Params: user_name=SYSDBA password=masterkey lc_ctype=WIN1250

Majd: TIbquery (luzeru) + Tdatasource: Paraméteres lekérdezés: select * from LUZER where JELSZO=:passwd;
       with luzeru do begin
          close;
          ParamByName('passwd').AsString:=trim(edit2.Text);
          open;
       end;

Nos a debuggoltam és a luzeru.open - nél kiakad a következő hibaüzenettel: "Project Luxor.exe raised exception class EIBlienterror with message TPB constant (user_name)is unknown."
Remélem mindent leírtam. Ha nem akkor kérdezzetek.

Van valakinek ötlete hogy mi a gond kérem ne fogja vissza magát

UI. Ja XP alatt 1.5-ös Firebirddel alatt tökéletesen működött a fenti kód.
Mutasd a teljes hozzászólást!
Üdv mindenkinek,
Megoldottam a problémát, de mielőtt kiröhöghettek azelőtt kösz az építő jellegű válaszokat.
Mint kiderült akkor Láma vagzok de akkora...

Nos azzal kezdtem, hogy lekaptam mindent és visszatettem a régebbi 1.5 ös Firebird-et.
A probléma nem oldódott meg.

Emelhu: lecsekkoltam - már amennyire egy Láma erre képes - a kompatibilitást is amit javasoltál de minden jónak tünt.

Freewind: kipróbáltam az általad javasoltakat is de nem segített. Én már régőta uigy használom a kapcsolatnyitást. A DB neve meg van adva az TIBDatabase -ben és még sosem volt gondom az opennel.

Nos mielőtt még megőrültem volna még egyszer mindent az alapoktól átnéztem - mostantól szabad röhögni - és kiderült, hogy a



user_name=SYSDBA

password=masterkey

lc_ctype=WIN1250

paramétereket nem a TIBdatabase-nél adtam meg a Params részben hanem a TIBTransaction-nél. Ahhhhhhhhhhh
Visszaírtam és voila minden múködik szépen.

Üdv és kösz mégegyszer,
SaxonB
Mutasd a teljes hozzászólást!

  • Igen nagy valószínűséggel vagy az IBX csomag vagy a kliens oldali firebird könyvtár küldi a hiba üzenetet.

    Ha a kódban az IBX nem változott, akkor utána néznék kliens DLL verziónak, illetve hogy a kettő kompatibilis-e.
    Mutasd a teljes hozzászólást!
  • Hello!

    A kódban nem látom, hogy megadtad volna az adatbázis nevét. Pl:

    DM1.LuxDb.DatabaseName:='c:\adatbazis.gdb';

    Én az Open helyet a Connected-et szoktam használni:

    DM1.LuxDb.Connected:=true;

    Tomi
    Mutasd a teljes hozzászólást!
  • Üdv mindenkinek,
    Megoldottam a problémát, de mielőtt kiröhöghettek azelőtt kösz az építő jellegű válaszokat.
    Mint kiderült akkor Láma vagzok de akkora...

    Nos azzal kezdtem, hogy lekaptam mindent és visszatettem a régebbi 1.5 ös Firebird-et.
    A probléma nem oldódott meg.

    Emelhu: lecsekkoltam - már amennyire egy Láma erre képes - a kompatibilitást is amit javasoltál de minden jónak tünt.

    Freewind: kipróbáltam az általad javasoltakat is de nem segített. Én már régőta uigy használom a kapcsolatnyitást. A DB neve meg van adva az TIBDatabase -ben és még sosem volt gondom az opennel.

    Nos mielőtt még megőrültem volna még egyszer mindent az alapoktól átnéztem - mostantól szabad röhögni - és kiderült, hogy a



    user_name=SYSDBA

    password=masterkey

    lc_ctype=WIN1250

    paramétereket nem a TIBdatabase-nél adtam meg a Params részben hanem a TIBTransaction-nél. Ahhhhhhhhhhh
    Visszaírtam és voila minden múködik szépen.

    Üdv és kösz mégegyszer,
    SaxonB
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd