Witam, proszę was o pomoc, chciałbym aby w mojej bazie danych (Pacjenci) zapisywała sie wybrana przez komponenet DateTimePicker w kolumnie data_rejestracji.
Wrzuce może kod dodawania:
procedure TForm2.Button1Click(Sender: TObject);
var
id:integer;
begin
try
//operacja służąca do wybierania maksymalnego numeru
id:=StrToInt(pzapytanieSelect('Select Max(id) AS id FROM Pacjenci;',Form3.ADOQuery1,'id'));
except
//jeśli w bazie nie było żadnego wpisu to ustawiamy wartość klucza głównego na 0
id:=0;
end;
id:=id+1;//zwiększamy o 1 wartość klucza głównego
if (Edit1.Text<>) and (Edit2.Text<>
) then //jeśli użytkownik wypełnił pola Edit, to znaczy wpisał Imię i Nazwisko(te pola są wymagane w bazie)
begin
//wywołujemy procedurę dodającą nowe dane do bazy danych
zapytanieInsert_Update('INSERT INTO Pacjenci (id, Imie_i_nazwisko, Miejscowość, Nr_domu, Gmina,
pesel, ubezpieczenie, icd, placówka_kierująca, lekarz_kierujący, data_rejestracji) VALUES ('+IntToStr(id)+',
+Edit1.Text+' '+Edit2.Text+
, +ComboBox1.Text+
, +Edit4.Text+
, +ComboBox2.Text+
, +ComboBox3.Text+
, +ComboBox4.Text+
, +ComboBox5.Text+
, +ComboBox6.Text+
, +ComboBox7.Text+
, +DateTimePicker1.Name+
);',Form3.ADOQuery1);
ADOConnection1.Connected:=False;//rozłączamy sie z bazą...
ADOConnection1.Connected:=True;//...i ponownie się z nią łączymy
zapytanieSelect('SELECT * FROM Pacjenci',Form3.ADOQuery1);
end
else
showmessage('Uzupelnij pola imię i nazwisko');
begin
Close;
end ;
end;
Sczerze tak jak to dodałem to nie działa. Jak mam to zrobić ?
</b>