Biar lebih cepet prosesnya mendingan untuk upadate gunakan kalau banyakan.... rsBarangU.Open "Update Barang set kh="." where kh is null",DBU,adOpenDynamic,adLockOptimistic Salam Mawardi
-----Original Message----- From: Yunatan S. Widada [mailto:[EMAIL PROTECTED] Sent: Monday, May 12, 2008 13:45 To: [email protected] Subject: [Programmer-VB] Ubah Data Null temans, ada yang bisa bantu? saya punya tabel barang dan data di import dari file excell, tapi ada satu field yang kosong (null). nah saya pengen ubah field yang nilainya null tsb dengan program kecil seperti di bawah ini : fields yg nilainya null ada di fields kh, dan pengen saya ganti dng larakter "." program saya : Public DBU As ADODB.Connection Public rsBarangU As ADODB.Recordset Private Sub CmdEdit_Click() Dim mys As String mys = "select * from barang" Set rsBarangU = New ADODB.Recordset rsBarangU.Open mys, DBU, adOpenDynamic, adLockOptimistic If Not rsBarangU.EOF Then rsBarangU.MoveFirst Do While Not rsBarangU.EOF If rsBarangU.Fields("kh").Value = Null Then rsBarangU.Fields("kh").Value = "." rsBarangU.Update End If rsBarangU.MoveNext Loop x = MsgBox("Update Selesai...!!!", vbInformation) Unload Me End Sub Private Sub Command6_Click() Unload Me End Sub Private Sub Form_Load() Set DBU = New ADODB.Connection DBU.Provider = "microsoft.jet.oledb.4.0" DBU.Open App.Path & "\newtb.mdb", "Admin", "" DBU.CursorLocation = adUseClient End Sub tapi kenapa ga mau yah??? ada yang bisa bantu??? regards tan
