Member baru? Bingung? Perlu bantuan? Silakan baca panduan singkat untuk ikut berdiskusi.

Welcome to Forum Sains Indonesia. Please login or sign up.

November 30, 2022, 12:35:31 AM

Login with username, password and session length

Topik Baru

Artikel Sains

Anggota
  • Total Anggota: 26,848
  • Latest: Jameswaw
Stats
  • Total Tulisan: 139,639
  • Total Topik: 10,395
  • Online today: 61
  • Online ever: 441
  • (Desember 17, 2011, 09:48:51 AM)
Pengguna Online
Users: 0
Guests: 33
Total: 33

Aku Cinta ForSa

ForSa on FB ForSa on Twitter

error simpan data

Dimulai oleh fathian, Juli 08, 2017, 11:19:33 AM

« sebelumnya - berikutnya »

0 Anggota dan 1 Pengunjung sedang melihat topik ini.

fathian

For i = 1 To xRow - 1
    With Grid
       SQL = ""
        SQL = "Insert Into defektaobatdet_far Values('" & Trim(TxtNobuktiDefekta.Text) & "','" _
            & .TextMatrix(i, 1) & "','" _
            & .TextMatrix(i, 8) & "','" _
            & "" & "','" _
            & .TextMatrix(i, 5) & "')"
    End With
    koneksi.Execute SQL, , adCmdText
Next i