terima kasih buat pencerahan teman-teman semua. regards
tan ----- Original Message ----- From: Bace - Bace To: [email protected] Sent: Wednesday, May 14, 2008 6:01 PM Subject: Re: [Programmer-VB] Ubah Data Null Yang harus anda pastikan adalah "Apakah benar nilainya field kh itu adalah null?, jika tidak null ya sudah pasti kode anda tidak dapat dipakai." menurut kode anda: Public DBU As ADODB.Connection Public rsBarangU As ADODB.Recordset Private Sub CmdEdit_Click( ) . . . End Sub itu suatu pemborosan dimemory komputer hanya untuk mengupdate kolom null, bayangkan jika recornya 10000 baris, apakah proggram akan meloop 10000 kali "hanya" untuk mencari nilai null tersebut??? langsung aja gunakan perintah sql untuk melakukan tersebut, efisien dan pasti, krn dilakukan disisi engine database (apapun databasenya), bukan disisi program (yang anda buat) Private Sub CmdEdit_Click( ) Dim mys As String mys = "update barang set kh = '.' where kh is null" Set rsBarangU = New ADODB.Recordset rsBarangU.Open mys, DBU, adOpenDynamic, adLockOptimistic End Sub dengan koding diatas, isi data tidak diload di memori komputer oleh program, dan engine database hanya akan meload kolom kh yg isinya null (itupun jika ada). Jika anda tidak yakin apakah isi kolom tersebut nul coba aja gunakan perintah sql dibawah ini di disign view database acces nya select * from barang where kh is null jika ada recornya berarti isinya memang null, jika tidak ada coba pake: select * from barang where kh = '' jika ada berarti isinya bukan null, melainkan kosong "" (null sama kosong itu berbeda) Semoga membantu: =(oVo)= ==================== BaceInside Publisher Copyright @2007 Not for reproduced, republished. Thank You ==================== ----- Original Message ---- From: Febry Kurniawan <[EMAIL PROTECTED]> To: [email protected] Sent: Tuesday, May 13, 2008 4:46:57 PM Subject: Re: [Programmer-VB] Ubah Data Null Coba di debug aja dulu trus tambahin watch juga untuk memantau isi dari rs itu. apakah emang null atau spasi. nanti tinggal ganti aja nilai value nya. kalo program nya ga mau karena nilai nya ga cocok. coba aja debug and watch dulu. atau update aja langsung di database nya pake query, lebih cepat. Semoga membantu. regards, Febry Kurniawan BI Consultant ----- Original Message ----- From: Yunatan S. Widada To: Programmer-VB@ yahoogroups. com Sent: Monday, May 12, 2008 1:45 PM 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 ------------------------------------------------------------------------------ No virus found in this incoming message. Checked by AVG. Version: 7.5.524 / Virus Database: 269.23.16/1431 - Release Date: 13/05/08 7:55 PM
