Dear IT'ers,
Saya punya masalah dengan script VB dengan database MS Access.
Saya membuat tabel Peserta, Grup, dan Temporary.
Peserta :
ID, Nama, No_HP, Tgl
001 Eka 70000 1/1/2011
001 Eka 70000 1/2/2011
002 Eko 70120 1/1/2011
002 Eko 70120 1/2/2011
Grup :
ID_grup, PEriode, Tanggal, Jumlah_peserta, Status
1 Pertama 1/1/2011 2 Schedule
1 Pertama 1/2/2011 2 Schedule
Temporary :
Tanggal, Jumlah peserta
1/1/2011 3
1/2/2011 4
Yang mau saya tanyakan:
Bagaiman cara mengupdate Jumlah_peserta di tabel grup, jika datanya terdapat
pada tabel Temporary dengan kondisi Tanggal yang sama (krn tanggal field unik)
berdasarkan datagrid di suatu form dengan menggunakan event click pada command
button.
script VB yang saya gunakan seperti ini :
'+-------- DEKLARASI GRUP --------------+
Set RS_User = New ADODB.Recordset
COnn.CursorLocation = adUseClient
Strsql = "SELECT * FROM Peserta"
RS_User.Open Strsql, COnn, adOpenDynamic, adLockOptimistic
RS_User.Filter = "ID = '" & Val(Text1.Text) & "'"
'+------- SIMPAN DATA -------------+
If RS_User.EOF Then
While Not RS_TemP.EOF
Set RS_User = New ADODB.Recordset
Strsql = "INSERT INTO Peserta (ID, Nama, No_HP, Tgl) VALUES ('" &
Val(Text1.Text) & "','" & Text2.Text & "','" & Text3.Text & "', '" &
DataGrid2.Columns(0) & "')"
RS_User.Open Strsql, COnn, adOpenDynamic, adLockOptimistic
Set RS_Grup = New ADODB.Recordset
Strsql = "Update Grup Set Jumlah_Peserta = '" &
Val(DataGrid2.Columns(1)) & "' Where Tanggal = '" & DataGrid2.Columns(0) & "'
(saya terbentur di script ini)
( JUMLAH PESERTA ) ( TANGGAL )
RS_Grup.Open Strsql, COnn, adOpenDynamic, adLockOptimistic
RS_TemP.MoveNext
Wend
'Call tes2
'Call REf
Set DataGrid2.DataSource = RS_TemP
Else
MsgBox "Nomor user telah ada", vbOKOnly + vbCritical, "Konfirmasi"
Text1.SetFocus
Call REf
Exit Sub
End If
End Sub
Mohon bantuan dari rekan-rekan sekalian, jika mempunyai link referensi,
silahkan dilampirkan pada reply.
Terima kasih,
E.Sufiatna, Palembang.
[Non-text portions of this message have been removed]
------------------------------------
--
www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia
Gabung, Keluar, Mode Kirim : [email protected]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/ITCENTER/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/ITCENTER/join
(Yahoo! ID required)
<*> To change settings via email:
[email protected]
[email protected]
<*> To unsubscribe from this group, send an email to:
[email protected]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
