Hali!

Egy egyszerű kérdésem lenne. Ha egy label caption-ébe szöveget akarok írni akkor hogy tudok új sort kezdeni?
Tehát ha pl ezt akarom beírni:
xyxyyxyxy

vcvc


label1.caption:=xyxyyxyxy(és ide kéne ugye valami karakter amivel sort vált)vcvc




[Szerkesztve]

Közben rájöttem.

Na, újabb problémám akadt. Van egy szöveges állomány(txt) amiből adatokat szerenék beolvasni.

deklarálom fext;

assign(f,'xy.txt');
Erre a delphi a következő hibát adja:Incompatible types: 'TPersistent' and 'Text'
Ez miért van. Ugyanezt a progit kellett pascalban is megírnom, ott tökéletesen működik.

erre is rajonnel magadtol, hidd el.
AssignFile( f, 'xy.txt');

kerestem neked egy jo helyet nezelodni:
http://delphi.about.com/od/fileio/l/aa110999.htm



[Szerkesztve]

Na nekem is akadt egy, immáron sokadszor.
Update SQL-lel meg tudom csinálni, az insert-et, és az update-t,
de nem megy a delete.

Ezt csinálom:
query11.ParamByName('dkod').AsInteger:=dkodja;
query11.Open;
query11.Delete;
{query5.ApplyUpdates;}
query11.Close;

Ha ebben benne van az ApplyUpdates, akkor nem működik, hibaüzenettel leáll, hogy nem tudja végrehajtani ''closed dataset''-en.
Ha nincs benne, akkor nincs hibaüzenet, csak éppen nem töröl ki semmit.
Ilyenkor mit lehet tenni?

Köszi. Közben már rájöttem.
Most megint egy érdekes hibát ír ki, de remélem, ezt is sikerül megfejtenem.

Kedves latenight kóderek!

Szeretnék FireBird-del adatbázist kezelni! (mí egyedi)

Sorrendben ezeket szeretném megvalósítani!

1. Egy SQL lekérdezés megvalósítás
2. Egy adatbázis létrehozása
Benne egy tábla
Belőle egy lekérdezés
Adatbázis törlés

Szerenélek titeket megkérni, hogy mondjátok el, milyen komponenseket kell használni, ahhoz, hogy egy ilyen lekérdezést le tudjak futtatni!

És ha ez nem nagy gond, légyszives magyarázzátok el, hogy az egyes kopmponensek, mire szolgálnak az adott ''adatfolyamban'' azaz, hogy az adott komponons mit reprezentál!

Válaszaitokat köszönöm!

Nézz szét itt : Bővebben: link.

Ha valami nem világos kérdezz nyugodtan.

Ha esetleg a felhasznált komponenseket és az SQL-ek szövegét megadnád könnyebb lenne segíteni mert így szemre jó (vagy még nagyon korán van )

Ez a query11:
select dkod, nev, helyseg from tdolg where dkod=:dkod

Ennek a Query11-nek pedig van UpdateObjectje-yUpdateSQL1, aminek a Delete
metódusába ezt írtam: delete from tdolg where dkod=:dkod

Látszólag meg is csináltam, mert írtam az eljárásba egy olyat, hogy
a végén ShowMessage('Kész vagyok!'); Ez mindig pillanatok alatt kijön, minden hibaüzenet nélkül. Namármost én ennek az UpdateSQL-nek kitöltöttem
az Insert és Modifí metódusát, és tökéletesen teszik a dolgukat.

[Szerkesztve]

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]

delphi 7 és Oracle

Delphi 7 és normál TQuery

Valami olyasmi is lehet, hogy a query-k meg a Table-k Afterdelete metódusába
be kell írogatni, hogy DbiSaveChanges(query5.Handle);

Ezt valahol olvastam, azt, hogy mit jelent, nem tudom, de az insert és a modfy
az megy vele. Csak ez a delete nem.

Azóta van még egy nyűgöm, ami viszont rejtély.

Mondjuk módosítani szeretnék egy rekordot, egy táblában egy gombnyomásra,
vagy beszúrni.

Megcsinálok mindent, teljesen ugyanúgy, mint egy másik táblánál, direkt
Copy-Paste-zok, hogy ami eddig ment, az ezután is menjen.

Erre, most meg mindent úgy csinál, ha megynyomom a beszúr gombot,
akkor beszúrja a Combobox-ok 0. elemét, nem azt, ami aktuálisan be van jeölve, majd megnyomom mégegyszer, akkor beszúrja jól.

Hasonlóan: ha megnyomom a módosít gombot, akkor nem csinál semmit,
ha megnyomom mégegyszer, akkor módosítja.

Na kezdtem megörülni, hárha 2x kell megnyomni a törlés gombot, hogy menjen.
De sajna az egyáltalán nem megy.

Hát itt van az, hogy megáll az ész, és körbenéz.






[Szerkesztve]

De jó neked, tusi74! Én még ott se tartok ahol te

Egy FireBird szervert szeretnék vezérelni!

1) kérdésem igazán egyszerű.
Hogyan tudok, egy nekem tetsző SQL kódot elküldeni a szervernek?
Másképp: Hogyan tudok adatbázist benne jó kis táblákkal létrehozni?

2) kérdésem szintén:
Hogy kell használni a dbExpress kompononseket?
Egyáltalán lehet használni őket FireBird/InterBase-hez?
Mivel tud többet/kevesebbet az InterBase komonenscsomagnál?

3) elméleti jellegű
Mikor érdemes létrehozni egy alkalmazás adatbázisát?
Érdemes a kódból létrehozni pl egy első indításnál?
Egy külső ''diagnoszikai programnak'' kell a főprogram adatbázisát ápolnia?
Vagy elég ha egy FB/IB adminisztrációs programmal megcsinálom és utána a programfejlesztés során már nem törődök azzal, hogy az elején létrehozzam az adatbázist?

Köszönöm türelmetetket!