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
