[Programmer-VB] Re: insufficient key column.....

Sun, 01 Jan 2006 22:40:06 -0800

saya coba kasih saran ya....
 
karena anda sudah gunakan tdbgrid mendingan gunakan fsilitas 'clone tabel' saja
itu akan lebih menghemat memory komputer dibandingkan 'join'  sehingga loadnya lebih cepat, coba code dibawah ini :
 
 
1.di General Declaration tambahkan code sbb:
 
Private bolCancel as boolean
Private bolRefresh as boolean
Dim objCloneRS As Recordset
 
 
2.dbl click pd tdbgrid dan pilih event UnboundColumnFetch, tulis code sbb:
 
Private Sub tdbGrid1_UnboundColumnFetch(Bookmark As Variant, ByVal Col As Integer, Value As Variant)
If bolCancel = False Then
 
  If bolRefresh Then
     i_Clone
     bolRefresh = False
  End If
  objCloneRS.Bookmark = Bookmark
 
  Value = i_ItemDesc
 
End If
End Sub
3. Tulis sub rutin dibawah ini yg berfungsi utk memanggil fungsi clone yg akan di masukkan kedalam recordset bernama objCloneRS :

Private Sub i_Clone()
   objCloneRS.Close
   Set objCloneRS = Nothing
   Set objCloneRS = dtaDummy.Recordset.Clone
End Sub
 
4. Tulis sub rutin dibawah ini yg berfungsi utk memanggil field dari tabel ke 2 dan ditempelkan (clone) ke grid.dalam hal ini saya ambil contoh di tabel1 ambil field Kode barang dan cari Nama barang di tabel2 :
 
Private Function i_ItemDesc() As String
  Dim strSearch As String
 
  i_ItemDesc = ""
 
  strSearch = "Barang = '" & objCloneRS.Fields("Kode") & "'"
  objmstBarang.FindFirst strSearch
 
   If Not objmstBarang.BOF And Not objmstBarang.EOF Then
      If Not objmstBarang.NoMatch Then
         i_ItemDesc = objmstBarang.Fields("Nama")
      End If
   End If
 
End Function

5.Saya tambahkan object Data di form dan saya beri nama 'dtaDummy' tulis code   sbb:
 
Private Sub i_SetDataCtl(dtaDataCtl As Data)
 bolRefresh = True
  dtaDataCtl.Visible = True
  Set dtaDataCtl.Recordset = objTempRs
  Set objTempRs = Nothing  ' it's unused after that
  bolRefresh = True
  dtaDataCtl.Refresh
  dtaDataCtl.Recordset.LockEdits = False  'optimistic locking (lock is performed
                                         'on update)
  Set objCloneRS = dtaDummy.Recordset.Clone
End Sub
 
 
6. Selesai. Selamat mencoba....... 
 
gimana terlalu sulit? mungkin rekan2 lain punya solusi yg lebih simpel.....

--- In [email protected], "Eko" <[EMAIL PROTECTED]>
wrote:
>
> temen2 vb ...mo minta tolong lagi nih..
> saya kan join 2 tabel n ditampilin ke tdbgrid
> cuma klo diedit keluar message
> "insufficient key column information for updating or refreshing"
> gmn solusinya
>
> sbb klo cuma satu tabel bisa
> saya baca di internet katanya ada 2 key yang diedit dlm waktu yang
sama
>


__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke