<????> = String
Modif. Code nya : IsiTabel = NamaRS(NamaField).value
Assalamualaikum,
Saya pingin nanya soal akses tabel lewat prosedur sub di modul
standar. Koneksinya sih nggak masalah. Masalahnya ada di argumen
prosedur. Script untuk mengakses tabelnya :
Sub ComboIsiField(NamaGrid As VSFlexGrid, NamaTabel as <????>,
NamaField as <????>, Kolom as Integer)
Dim Query As String, IsiTabel As String, ListGrid As String
Query = "SELECT * from '" & NamaTabel &
'"
NamaRS.Open Query, NamaDB
NamaRS.MoveFirst
Do While NamaRS.EOF <> True
IsiTabel = NamaRS!NamaField
ListGrid = ListGrid & " |
" & IsiTabel
NamaRS.MoveNext
Loop
NamaGrid.ColComboList(Kolom) = ListGrid
NamaRS.Close
End Sub
Nah kira2 jenis argumen yg cocok untuk bagian <????> apa yah ? String
? Objek ? Atau Apa ?
Terutama di baris : IsiTabel = NamaRS!NamaField.
Saya udah coba pake script kayak gini : NamaRS! & NamaField atau
NamaRS!NamaField, tp selalu gagal.
Udah diganti tipenya ke string, fields, objek dll, masih jg gagal.
Cuman bisa berhasil kalo ditulis langsung nama fieldnya, nggak pake
argumen.
Itu aja, mohon petunjuknya.
-VB Beginner-
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
YAHOO! GROUPS LINKS
