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.
[Non-text portions of this message have been removed]
