JA-CEK napisał(a)
Właśnie pisze swój pierwszy program bazodanowy w delphi i mam pewne wątpliwości.
Mam nadzieje że pomożecie mi je rozwiać.
A więc:
- Jak pobrać (wyciądnoąć) zawartość komurki rekordu i następnie przypisać ją do zmiennej w programie
Po pierwsze - naucz się języka. Program z błędami ortograficznymi jest nie do przyjęcia.
Po drugie, opisywałem tu kiedyś to, ale masz. To jest dla ADO, Ty musisz zmienić analogicznie dla swojego providera:
function ExecuteQueryWithVal(Query: string; Connection: TADOConnection = nil; MessageOnError: Boolean = true): Variant;
var
Ado: TADOQuery;
begin
result:=null;
if Connection = nil then Connection := Base.MainConnection; //ta linijka ma sens w moich aplikacjach :)
try
Ado:=TADOQuery.Create(Application);
Ado.Connection:=Connection;
ado.CommandTimeout:=ado.Connection.CommandTimeout;
ADO.SQL.Text:=Query;
ADO.Open;
if ADO.RecordCount>0 then
begin
ADO.First;
result:=ADO.FieldByName('Val').AsVariant;
end;
except
on E: Exception do
begin
if MessageOnError then
application.MessageBox(PChar('Wystąpił błąd: '+#13+#10+e.Message), PChar(Application.Title), mb_OK+mb_IconStop);
end;
end;
if ADO<>nil then FreeAndNil(ADO);
end;
Zapytanie do tego powinno wyglądać tak:
SELECT kolumna as VAL FROM tabela WHERE....blabla
Chodzi oczywiście o alias: "as VAL". Możesz sobie to zmienić.
- JAK W ZAPYTANIU SQLowym NAPISAĆ KIEDY CHCE ZROBIĆ PRZYRÓWNANIE np. pisząc warunek, A JAK PRZYPISANIE np. zmiennej z programu DO konkretnej KOMURKI W TABELI BAZY DANYCH W CELU ZMIANY JEJ WARTOŚCI ?? Czy w zapytaniu SQLowym jest tak samo jak w Delphi że znak przyrównania to "=" a znak przypisania to ":=" czy może jest inaczej??
Nie wiem o co Ci chodzi. Operator przyrównania w MySQL jest taki sam, jak przypisania: "="
kom<font size="4">Ó</span>rki
- użytkownik wyszukał w bazie danych interesujący go rekord (zna już ID interesującego go rekordu). Następnie chce zmienić wartość komurki ILOŚĆ_PRODUKTÓW (na większą) w tabeli PRODUKTY. Ową wartośc wpisuje do pola edit1, a ID rekordu w którym chce wprowadzić zamiany wpisuje do pola edit2.
JAK POWNNA WYGLĄDAĆ PROCEDURKA ZNAJDUJĄCA SIĘ POD PRZYCISKIEM Button1 PO WCIŚNIĘCIU KTÓREGO OWA PROCEDURKA MA SIĘ WYKONAĆ ??
U<font size="4">Ż</span>ytkownik
To nie kwestia procedury, tylko zapytania:
UPDATE tabela SET kolumna = nowa_wartosc WHERE ID = id_rekordu
A jak wykonać zapytanie, no to już chyba wiesz.
Ado.ExecSQL - dla ADO.
- Czy W DBGrid da się jakoś ustawić aby nagłowki kolumn tabeli bazy danych były wyświetlane po polsku (nazwy które wprowadziłbym podczas tworzenia programu z klawiatury) zamiast oryginalnych angielskich nazw widniejących w tabeli bazy danych ??
A robiłeś cokolwiek w celu uzyskania odpowiedzi na to pytanie, poza marudzeniem?
Wystraczyło dwa razy kliknąć na DBGrid, wybrać kolumnę z listy i zobaczyć ObjectInspectora :|
- Czy w DBGrid da się ustawić aby tylko niektóre kolumy tabeli bazy danych się wyświetlały zamiast całej Tabeli (pozostałe kolumy miały by być niewidoczne dla urzytkownika programu)??
jw.
Po któreś tam: Kup sobie jakąś książkę i przeczytaj. Albo chociaż znajdź jakiś kurs w necie, bo Twoje pytania nie kwalifikują się w ogóle do tego działu(Delphi). </span></span>