Ada banyak metode untuk memasukkan data ke dalam tabel. Salah satunya menggunakan insert into. Ini contohnya: Dim db As Database Dim i As Integer If Text1 <> "" Then Set db = CurrentDb For i = 1 To 3 db.Execute "insert into tabel" & i _ & " (field" & i & ") values ('" & Text1 & "')" Next i db.Close Set db = Nothing End If Script diatas jalan untuk type data fieldnya adalah text. Bila type datanya number maka pada valuenya harus dihilangkan tanda ' (upperstrop). Sehingga berubah menjadi values (" & Text1 & ")" Semoga bisa membantu dan memberi semangat. Hariyanto (Surabaya) --- On Sat, 14/1/12, Nurul Mukminin <cahoraman@yahoo.co.id> wrote:
|
__._,_.___
SPAM IS PROHIBITED
MARKETPLACE
.
__,_._,___
No comments:
Post a Comment