Private Sub cmd_save_Click( )
If simpan = 1 Then
cn.Execute "Insert into trx_tslmqios (no_bill,nama_ toko,typepulsa,
no_hp,harga, jmlh)" & _
"values('" & txtnobill & "','" & cbo_toko & "','" & cbo_pulsa
& "','" & txttlp & "','" & txtharga & "','" & txtjmlh & "')"
Else
cn.Execute "Update trx_tslmqios set nama_toko='" & cbo_toko & "',
typepulsa='" & cbo_pulsa & "', no_hp='" & txttlp & "',harga='" & txtharga & "',
jmlh='" & txtjmlh & "' where no_bill='" & cbo_bill & "'"
End If
cbo_bill.Visible = False
'Adodc1.Refresh
'Adodc1.Recordset. Requery
'DataGrid1.Refresh
End Sub
wah itu sih commentnya kebanyakan .. pilih salah satu ...
ADODC.Refresh itu udah cukup ....
----- Pesan Asli ----
Dari: McBoenBoen <[EMAIL PROTECTED]>
Kepada: [email protected]; Waroeng VB <[EMAIL PROTECTED]>; [EMAIL
PROTECTED]
Terkirim: Selasa, 8 Mei, 2007 1:14:10
Topik: Fwd: [Programmer-VB] Refresh DataGrid Belum Bisa
saya sudah coba yg teman2 kasi tp tetap aja tidak ada respon
scrip saya seprti ini nih...
Private Sub cmd_save_Click( )
If simpan = 1 Then
cn.Execute "Insert into trx_tslmqios (no_bill,nama_ toko,typepulsa,
no_hp,harga, jmlh)" & _
"values('" & txtnobill & "','" & cbo_toko & "','" & cbo_pulsa
& "','" & txttlp & "','" & txtharga & "','" & txtjmlh & "')"
Else
cn.Execute "Update trx_tslmqios set nama_toko='" & cbo_toko & "',
typepulsa='" & cbo_pulsa & "', no_hp='" & txttlp & "',harga='" & txtharga & "',
jmlh='" & txtjmlh & "' where no_bill='" & cbo_bill & "'"
End If
cbo_bill.Visible = False
'Adodc1.Refresh
'Adodc1.Recordset. Requery
'DataGrid1.Refresh
End Sub
pls mohon pencerahannya, saya pakai Vb 6 dan database Access 2003
thxb4
mc
Note: forwarded message attached.
Don't pick lemons.
See all the new 2007 cars at Yahoo! Autos.
Terimakasih kepada semua teman2 yg telah membantu saya dalam hal penomoran
sudah resolve.
yaang saya hadapi saat ini adalah bagaimana supaya data yang baru di save
langsung kelihatan di datagrid. saya sudah coba tambahkan refresh tapi tetap
tidak refresh juga
saya pakai conection ADODC, dan DataGrid sebagai tampungannya langsng bind ke
ADODCnya
bagaimana caranya supaya setipa record di simpan langsung terlihat di DataGrid
tsb
demikian, mohon pencerahannya
rgds,
mc
Ahhh...imagining that irresistible "new car" smell?
Check out new cars at Yahoo! Autos.
________________________________________________________
Lelah menerima spam? Surat Yahoo! mempunyai perlindungan terbaik terhadap spam.
http://id.mail.yahoo.com/
