jadi saya punya kendala pada saat insert data ke database.
database yg saya pakai dbf (visual foxpro 3.0) yg typenya table
jadi proses yg saya lakukan adalah mengcompare data a dg data b
kalau di data a ada yg berbeda dg data b maka isi yg beda akan di lempar ke data b. nah awalnya saya select all semua yg ada di data a kemudian di lempar ke datagrid untuk di filter, setelah datanya sudah di filter saya mau lempar lagi ke data b yg struktur filenya sama dg data a.
nah yg saya lakukan sekarang adalah seperti ini
For Each drproyek In dtproyek.Rows
tgl = Microsoft.VisualBasic.Day(drproyek("date"))
bln = Microsoft.VisualBasic.Month(drproyek("date"))
th = Microsoft.VisualBasic.Year(drproyek("date"))
If drproyek("sts") = " " Then
oledbpusat.exec = "insert into attend (badgeno,date,daytype,schecode,shiftno,adhoc,nosche,break,resume,ot,done,work,overtime,in,out) values ('" & drproyek("badgeno") & "',date(" & CStr(th) & "," & CStr(bln) & "," & CStr(tgl) & "),'" & drproyek("daytype") & "','" & drproyek("schecode") & "','" & drproyek("shiftno") & "'," & ".F." & "," & ".F." & ",'" & drproyek("break") & "','" & drproyek("resume") & "','" & drproyek("ot") & "','" & drproyek("done") & "'," & CInt(drproyek("work")) & ",'" & drproyek("in") & "','" & drproyek("out") & "')"
oledbpusat.execute()
ElseIf drproyek("sts") = "blmout" Then
oledbpusat.exec = "update attend set out = '" & drproyek("out") & "' where badgeno = '" & drproyek("badgeno") & "' and date = date(" & CStr(th) & "," & CStr(bln) & "," & CStr(tgl) & ") "
oledbpusat.execute()
ElseIf drproyek("sts") = "blmin" Then
oledbpusat.exec = "update attend set in = '" & drproyek("in") & "' where badgeno = '" & drproyek("badgeno") & "' and date = date(" & CStr(th) & "," & CStr(bln) & "," & CStr(tgl) & ") "
oledbpusat.execute()
End If
Next
di file a mempunyai kurang lebih 50 field sedangkan kalau perintah insert yg saya tahu setiap insert harus disebutkan satu2 fieldnya
misal
insert into attend (field1,field2,field3,dst,field50) values (' " & drproyek("field1") & " ', ' " & drproyek("field2") & " ', dst sampai field50)
kira2 ada ngak ya syntax supaya saya tinggal insert isi record yg saya sesuai kriteria tapi tanpa melihat fieldnya lagi satu2.
mugkin seperti insert all ,
saya developnya paka vb.net tapi kalau ada yg tau syntaxnya pakai vb 6 juga gpp.
thanks
New Yahoo! Messenger with Voice. Call regular phones from your PC and save big.
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
