Több elem együttes hozzáadása az adatbázishoz

Több elem együttes hozzáadása az adatbázishoz
2012-04-10T18:00:00+02:00
2012-04-11T06:33:15+02:00
2022-10-25T10:30:32+02:00
  • Megnézem, köszönöm.
    Mutasd a teljes hozzászólást!
  • A link valamiért "átalakult". Direktben: www.inf.elte.hu/karunkrol/digitkonyv/Jegyzetek/adonet.pdf
    Mutasd a teljes hozzászólást!
  • Mutasd a teljes hozzászólást!
  • Üdv!

    Van egy régi programom még 2002-ből, Delphi 7-ben íródva, ami eddig jó is volt, de felmerültek újabb igények, miszerint átalakítanám a programot, de már Visual Basic-ben írva. Semmi cicoma, végtelenül egyszerű program, Textboxot, és ComboBox-ok tartalmát adja hozzá az adatbázishoz, btnClick-re.

    A Delphi kód így nézett ki, ezt szeretném hasonlóan egyszerű módon VB-re átültetni, de mivel még csak tanulom a nyelvet, a mai napom ráment rengeteg YT videó tutorial nézésére, de nem jutottam előrébb. Tudnátok segíteni a kód átfordításában?

    procedure TForm1.BitBtn1Click(Sender: TObject); begin If (ComboBox1.Text='') or // Kitöltés ellenőrzése (ComboBox2.Text='') or (ComboBox3.Text='') or (ComboBox4.Text='') Then Begin ShowMessage('Nem adhatsz hozzá üres sorokat!'); Exit; end else with table1 do // tábla megnyitása begin Edit; // szerkesztés Last; // utolsó elemre ugrás Append; FieldByName('Date').AsString:=FormatDateTime('ddddd',date); // Tábla Dátum mező kitöltése FieldByName('Time').AsString:=ComboBox1.Text+':'+ComboBox2.Text; // Tábla Time mező kitöltése FieldByName('Partner').AsString:=ComboBox3.Text; FieldByName('Client').AsString:=ComboBox4.Text; FieldByName('City').AsString:=ComboBox5.Text; FieldByName('Street').AsString:=ComboBox6.Text+', '+Edit1.Text; FieldByName('Patrol').AsString:=ComboBox7.Text; FieldByName('Save').AsString:='0'; Post; ComboBox3.Text:=''; // Elemek kiürítése ComboBox4.Text:=''; ComboBox5.Text:=''; ComboBox6.Text:=''; ComboBox7.Text:=''; Edit1.Text:=''; Table1.Refresh; end; end;


    Az adatbázist ez alapján a video alapján csináltam.

    How to create a database in Visual Studio

    Előre is köszönök minden segítséget.
    Mutasd a teljes hozzászólást!
Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd