@_freeze: Kalo pake Access mestinya untuk datetime pake #, spt ini : select * from tbl where dtime > #08:00:00#
^ Hehehe, maksud sy pas string disambung ngetiknya ke bawah juga var qry : AnsiString; begin qry := 'SELECT HR_Personnel.Custom_1 AS NIK, HR_Personnel.Custom_3 AS nama, ' + // di sini uda ganti baris gitu 'LEFT(TA_Record_Info.Date_Time, 10) AS Tanggal' + ... // di sini ganti ...
Kan bisa dimasukin ke variable dulu, kayak gini var qry : AnsiString; begin qry := 'SELECT HR_Personnel.Custom_1 AS NIK, HR_Personnel.Custom_3 AS Nama, ' + 'LEFT(TA_Record_Info.Date_Time, 10) AS Tanggal' + ... adodataset1.commandtext := qry; end;
^ sebelum memanggil fungsi random, panggil dulu fungsi randomize agar benar2 random. Randomize dipanggil sebelum repeat.
Tes2 USES Crt; Var \ta, b, c, i, bil : integer; Begin \tClrScr; \tREPEAT \tWrite('Masukkan titik potong (1-9) : ');Readln(bil); \tUNTIL (bil > 0) AND (bil<=9); \tfor a := 9 downto 1 do \tbegin \t\tfor b := 1 to 9 do \t\tbegin \t\...
Error key violation biasanya krn ada duplikasi data pada field2 yg punya constraint unique atau sbg primary key.
Coba lakukan ini di client : 1. Misal nama server adalah MySQLDBServer dgn ip 192.168.1.2, edit file c:\windows\system32\drivers\etc\host tambahkan baris "192.168.1.2 MySQLDBServer" (tanpa tanda quote). 2. Lewat cmd prompt, coba ping MySQLDBServer, lebih bagus lg t...
Hmmm, jd kalo TotBayar = 1000001 cuma dpt tissue :D Jadiin gini : If TotBayar >1000000 Then hadiah='Dompet'; else If TotBayar >500000 Then hadiah :='Tissue'; else hadiah :='BallPoint'; .......... Ehadiah.text:= hadiah Semoga bener :)
Numpang buat PT Jaya Teknik Indonesia :Peace:\n\nTgl issue : 2009-07-13\nTgl exp. : 2009-10-13\n\nDicari programmer dengan kualifikasi :\n- Memiliki logika yang bagus\n- Menguasai salah satu bhs pemrograman (VB,Delphi,.NET,Java, dll)\n- Menguasai konsep database ...