Re: [Programmer-VB] Fw: Compile Error: Expected:=

Wed, 18 May 2005 03:18:38 -0700

Public Sub Pilih(HMID_nya As String, Nama As String, Sex As Byte, Umur As Byte)
'Prosedur pencarian Nama, Sex dan Umur dengan HMID_nya
 
Dim HHMS As ADODB.Recordset
Set HHMS = New ADODB.Recordset
HHMS.Open "select HMID, HMName, HMSex, HMAge from TblHouseholdMember where HMID= '" & HMID_nya & "'", con
 
If Not HHMS.EOF Then
    Nama = HHMS!HMName
    Sex = HHMS!HMSex
    Umur = HHMS!HMAge
End If
 
End Sub

Ada beberapa kesalahan :
1. parameter HMID_nya, Nama, Sex, Umur hanya bisa digunakan didalam Sub itu saja
2. Jika hasil dari sub ingin digunakan pada form lain. maka ganti pernyataan Public Sub Pilih(...) menjadi
Public Function (..) As ADODB.Recordset

Coba ganti dengan cara seperi ini :
Public Function Pilih(HMID_nya As String) As ADODB.Recordset

 'Prosedur pencarian Nama, Sex dan Umur dengan HMID_nya
 
Dim HHMS As ADODB.Recordset
Set HHMS = New ADODB.Recordset
HHMS.CursorLocation = adUseClient
HHMS.Open "select HMID, HMName, HMSex, HMAge from TblHouseholdMember where HMID= '" & HMID_nya & "'", con
 
Set Pilih = HHMS

End Function

3. Gunakan di dalam form menjadi :
   Dim Cari as ADODB.Recordset

   Set Cari = Modul_SQL.Pilih(HHID.Value)

      If Not Cari.Eof Then
      Nama = Cari!HMName
      Sex = Cari!HMSex
      Umur = Cari!HMAge
   End If

Catatan : Nama, Sex, Umur merupakan variabel global.. jika ingin digunakan pada form lain.

Tolong dikabarin kl misalkan berhasil atau tidak...
Terima kasih..


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


Yahoo! Groups Links

Kirim email ke