minta tolong ...
bagai mana cara mengupdate data TABEL dengan multiselect pada tdbgrid :
Code Source Saya :
Dim Con As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim StrSQL, STR As String
Dim kon As String
kon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"\TEST.mdb;Persist Security Info=False;Jet OLEDB:Database Password=XXXXXXXX"
Dim m_SavedBookmarks As Collection
Dim i As Integer
Set m_SavedBookmarks = New Collection
For i = 0 To TDBGrid1.SelBookmarks.Count - 1
m_SavedBookmarks.Add TDBGrid1.SelBookmarks(i)
Set Con = New ADODB.Connection
Con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
App.Path & "\TEST.mdb;Persist Security Info=False;Jet OLEDB:Database
Password=XXXXXXXX"
Con.Open
StrSQL = " update DATA set KOLOM1 =1 where KOLOM_ID ='" &
Tdbgrid1.Colomns("KOLOM_ID").Value & "'"
Con.Execute (StrSQL)
Con.Close
Set Con = Nothing
Next i
Mohon bantuannya.....
terima kasih
