Autor | Zpráva | ||
---|---|---|---|
Kaeru Profil |
#1 · Zasláno: 27. 8. 2007, 09:22:07
Mám problém s Delphi. Doufám, že se tu najde někdo, kdo mi umí poradit. Jak uložit text z komponenty Memo do databáze za běhu programu pomocí SQL příkazu INSERT? Pokud ukládám text z Editu, tak žádný problém, pokud z Mema, tak to vyhlásí incopatible Types - String a TString... Prosím pomozte, tady je kód:
//Příprava proměnných nazev:=Edit1.Text; popis:=Memo1.Text; lokace:=Edit2.Text; hraci:=Edit3.Text; //zápis do databáze Query1.SQL.Clear; Form1.Caption:='Hry'; Query1.SQL.Text:='INSERT INTO Hry values("'+nazev+'","'+Memo1.Lines+'","'+lokace+'","'+hraci+'")'; Query1.ExecSQL; ShowMessage('Přidáno'); Edit1.Text:=''; |
||
Kaeru Profil |
#2 · Zasláno: 27. 8. 2007, 09:23:54
Koukám, že ten kód je divně, tak aby vás to nemátlo, tak malá úprava.
nazev:=Edit1.Text; popis:=Memo1.Lines; lokace:=Edit2.Text; hraci:=Edit3.Text; //zápis do databáze Query1.SQL.Clear; Form1.Caption:='Hry'; Query1.SQL.Text:='INSERT INTO Hry values("'+nazev+'","'+popis+'","'+lokace+'","'+hraci+'")'; Query1.ExecSQL; ShowMessage('Přidáno'); Edit1.Text:=''; |
||
Časová prodleva: 9 měsíců
|
|||
Zb. Profil * |
#3 · Zasláno: 29. 5. 2008, 06:55:47
mám otázku k uvedenému kódu: vždy když zadám do editu údaj a odešlu obsah do databáze, vždy zmizí obsah databáze v dbgrid a nedaří se mi to nijak ošetřit, aby tam údaje zůstaly. Když program restartuji, zadané údaje se objeví, ale po zadání nového apět to samé. Prosím o pomoc.
Zde je ukázka kódu, který používám: ibquery1.SQL.Clear; ibquery1.SQL.text:='insert into kucharka(nazev) values('''+edit1.text+''')'; ibquery1.Active:=true; |
||
Časová prodleva: 16 let
|
0