ďťż
 
ADO - Dodanie rekordu do bazy Access ďťż
 
ADO - Dodanie rekordu do bazy Access
Zobacz wiadomości
 
Cytat
A gdyby tak się wedrzeć na umysłów górę, / Gdyby stanąć na ludzkich myśli piramidzie, / I przebić czołem przesądów chmurę, / I być najwyższą myślą wcieloną. . . Juliusz Słowacki, Kordian
Indeks BCB i MySQL subiekt gt fototapeta
 
  Witamy

ADO - Dodanie rekordu do bazy Access


POLI - 19-03-2006 00:53
ADO - Dodanie rekordu do bazy Access
  Witam

mam ustawione polaczenie
oraz z komponentu ADOTable mam wyrzucne na forma wszytskie pola danej tabeli

jak zrobic by mozna po uruchomieniu programu cos w nie wpisac bo mam albo
dane juz z bazy wyjete, badz puste pola bez mozliwosci edycji - widac zle
cos zmieniam, tzn nie tu gdzie trzeba

no i jak to juz ustawie i wpisze

to jaka komende nalezy wpisac do procedury podpietej pod przycisk "dodaj
rekord"

pola powiedzmy to ID, nazwisko, imie

czy jelsi pole ID jest moim kluczem glownym to musi byc na formie?? czy ono
sie samo ustali na kolejny dodajac rekord?




POLI - 19-03-2006 00:53

  Użytkownik "POLI" <poli@celica-team.com> napisał w wiadomości
news:dvhat9$smv$1@atlantis.news.tpi.pl...
> Witam
>
> mam ustawione polaczenie
> oraz z komponentu ADOTable mam wyrzucne na forma wszytskie pola danej
> tabeli
>
> jak zrobic by mozna po uruchomieniu programu cos w nie wpisac bo mam albo
> dane juz z bazy wyjete, badz puste pola bez mozliwosci edycji - widac zle
> cos zmieniam, tzn nie tu gdzie trzeba
>
> no i jak to juz ustawie i wpisze
>
> to jaka komende nalezy wpisac do procedury podpietej pod przycisk "dodaj
> rekord"
>
> pola powiedzmy to ID, nazwisko, imie
>
> czy jelsi pole ID jest moim kluczem glownym to musi byc na formie?? czy
> ono sie samo ustali na kolejny dodajac rekord?
>

Dodam jeszcze ze to baza Accesowa

i jak to nieproblem chetnie poznal bym dodatkowo komendy edycji i usuwania,
rekordow :D



POLI - 19-03-2006 00:53

  Wymyslilem cos takiego

procedure TForm1.DodajClick(Sender: TObject);
begin
ADOTable1.Append;
ADOTable1.FieldByName('Nazwa').AsString :='DBEdit2.Text';
ADOTable1.Post;
ADOTable1.Append;
ADOTable1.FieldByName('Miasto').AsString :='DBEdit3.Text';
ADOTable1.Post;
ADOTable1.Append;
ADOTable1.FieldByName('UlicaNr').AsString :='DBEdit4.Text';
ADOTable1.Post;
ADOTable1.Append;
ADOTable1.FieldByName('Kod').AsString :='DBEdit5.Text';
ADOTable1.Post;
ADOTable1.Append;
ADOTable1.FieldByName('Os_kontakt').AsString :='DBEdit6.Text';
ADOTable1.Post;
ADOTable1.Append;
ADOTable1.FieldByName('Telefon').AsString :='DBEdit7.Text';
ADOTable1.Post;
ADOTable1.Append;
ADOTable1.FieldByName('email').AsString :='DBEdit8.Text';
ADOTable1.Post;
end;

ale zamias dodawac nowy rekord to zamienia mi wartosc pierwszego ??

POMOCY !!!
Użytkownik "POLI" <poli@celica-team.com> napisał w wiadomości
news:dvhe28$cel$1@atlantis.news.tpi.pl...
> Użytkownik "POLI" <poli@celica-team.com> napisał w wiadomości
> news:dvhat9$smv$1@atlantis.news.tpi.pl...
>> Witam
>>
>> mam ustawione polaczenie
>> oraz z komponentu ADOTable mam wyrzucne na forma wszytskie pola danej
>> tabeli
>>
>> jak zrobic by mozna po uruchomieniu programu cos w nie wpisac bo mam albo
>> dane juz z bazy wyjete, badz puste pola bez mozliwosci edycji - widac zle
>> cos zmieniam, tzn nie tu gdzie trzeba
>>
>> no i jak to juz ustawie i wpisze
>>
>> to jaka komende nalezy wpisac do procedury podpietej pod przycisk "dodaj
>> rekord"
>>
>> pola powiedzmy to ID, nazwisko, imie
>>
>> czy jelsi pole ID jest moim kluczem glownym to musi byc na formie?? czy
>> ono sie samo ustali na kolejny dodajac rekord?
>>
>
> Dodam jeszcze ze to baza Accesowa
>
> i jak to nieproblem chetnie poznal bym dodatkowo komendy edycji i
> usuwania, rekordow :D
>



Piotr - 19-03-2006 00:54

  POLI napisał(a):
> Wymyslilem cos takiego
>
>
> procedure TForm1.DodajClick(Sender: TObject);
> begin
> ADOTable1.Append;
> ADOTable1.FieldByName('Nazwa').AsString :='DBEdit2.Text';
> ADOTable1.Post;
> ADOTable1.Append;
> ADOTable1.FieldByName('Miasto').AsString :='DBEdit3.Text';
> ADOTable1.Post;
> ADOTable1.Append;
> ADOTable1.FieldByName('UlicaNr').AsString :='DBEdit4.Text';
> ADOTable1.Post;
> ADOTable1.Append;
> ADOTable1.FieldByName('Kod').AsString :='DBEdit5.Text';
> ADOTable1.Post;
> ADOTable1.Append;
> ADOTable1.FieldByName('Os_kontakt').AsString :='DBEdit6.Text';
> ADOTable1.Post;
> ADOTable1.Append;
> ADOTable1.FieldByName('Telefon').AsString :='DBEdit7.Text';
> ADOTable1.Post;
> ADOTable1.Append;
> ADOTable1.FieldByName('email').AsString :='DBEdit8.Text';
> ADOTable1.Post;
> end;

czlowieku co ty kombinujesz.... uzyj TAdoQuery i TDataSource powiaz je
odpowiednio dodaj DbEdity dla kazdego pola powiaz je z DataSource a w
DataField wpisz pole ktore ma byc reprezentowane przez edita. Wstaw
TDbNavigator i powiaz go z TDataSource i to wszystko




Morff - 19-03-2006 00:54

  Dnia 19-03-2006 o 00:34:13 wielebny Piotr <piotrd@wp.pl> stwierdził:

> POLI napisał(a):
>> Wymyslilem cos takiego
>> procedure TForm1.DodajClick(Sender: TObject);
>> begin
>> ADOTable1.Append;
>> ADOTable1.FieldByName('Nazwa').AsString :='DBEdit2.Text';
>> ADOTable1.Post;
>> ADOTable1.Append;
>> ADOTable1.FieldByName('Miasto').AsString :='DBEdit3.Text';
>> ADOTable1.Post;
>> ADOTable1.Append;
>> ADOTable1.FieldByName('UlicaNr').AsString :='DBEdit4.Text';
>> ADOTable1.Post;
>> ADOTable1.Append;
>> ADOTable1.FieldByName('Kod').AsString :='DBEdit5.Text';
>> ADOTable1.Post;
>> ADOTable1.Append;
>> ADOTable1.FieldByName('Os_kontakt').AsString :='DBEdit6.Text';
>> ADOTable1.Post;
>> ADOTable1.Append;
>> ADOTable1.FieldByName('Telefon').AsString :='DBEdit7.Text';
>> ADOTable1.Post;
>> ADOTable1.Append;
>> ADOTable1.FieldByName('email').AsString :='DBEdit8.Text';
>> ADOTable1.Post;
>> end;
>
> czlowieku co ty kombinujesz.... uzyj TAdoQuery i TDataSource powiaz je
> odpowiednio dodaj DbEdity dla kazdego pola powiaz je z DataSource a w
> DataField wpisz pole ktore ma byc reprezentowane przez edita. Wstaw
> TDbNavigator i powiaz go z TDataSource i to wszystko

Wystarczy ustawić w datasource AutoEdit na true i powinien edytowac w
gridzie dane oraz dodawać przez zejscie poza ostatni rekord lub przez
insert .. Naprawde kombinuje .

--
Pozdrawiam
Morff
----------------------
AQQ 141151
Powered by Opera/M2
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • effulla.pev.pl

    • comp
    		Konwesja znaków w dump'ie bazy danych - ISO -> utf-8 -> ISO -> utf-8 =?iso-8859-2?Q?=5BSQL_Server_2000=5D_uprawnienienia_do_u=BFyw ania_widoku_?==?iso-8859-2?Q?opartego_na_tabeli_z_innej_bazy?= Dwie bazy czy dwie tabele? =?ISO-8859-2?Q?=5Bmysql=5D_synchronizacja_struktury_bazy_?==? ISO-8859-2?Q?lokalnej_ze_zdaln=B1?= [Oracle] Co do tworzenia aplikacji dla bazy Oracle narzedzie do transferu bazy mysql - mysql narzedzie do transferu bazy odbc - odbc Połączenie bazy danych z wykonaniem polaczenia telefonicznego Pobierananie danych z innej bazy danych w MSSQL =?ISO-8859-2?Q?=5Boracle=5D_lokalna_kopia_zdalnej_bazy_?==?IS O-8859-2?Q?--_jak_to_zrobi=E6=3F?=
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • red-hacjenda.opx.pl
    • Cytat

    Decede mihi sole - nie zasłaniaj mi słonca.
    Gdy kogoś kochasz, jesteś jak stworzyciel świata - na cokolwiek spojrzysz, nabiera to kształtu, wypełnia się barwą, światłem. Powietrze przytula się do ciebie, choćby był mróz, a ty masz w sobie tyle radości, że musisz ją rozdawać wokoło, bo się w tobie nie mieści
    Hoc fac - tak czyń.
    A tergo - od tyłu; z tyłu.
    I czarne włosy posiwieją. Safona

    Valid HTML 4.01 Transitional

    Free website template provided by freeweblooks.com