> Sub ComboIsiField(NamaGrid As VSFlexGrid, NamaTabel as string,
> NamaField as string, Kolom as Integer)
>
> Dim Query As String, IsiTabel As String, ListGrid As String
>
> Query = "SELECT " & namafield & " FROM " & NamaTabel
> NamaRS.Open Query, NamaDB
> NamaRS.MoveFirst
> Do While NamaRS.EOF <> True
> IsiTabel = NamaRS.Fields(namafield).Value 'atau = namars
(0) atau = namars.fields(0) atau = namars.fields(namafield) atau =
namars(0).value atau = namars.fields(0).value dll terserah mau pake
yg mana
> ListGrid = ListGrid & " | " & IsiTabel
> NamaRS.MoveNext
> Loop
> NamaGrid.ColComboList(Kolom) = ListGrid
> NamaRS.Close
>
> End Sub
best regards
[wwn]
--- In [email protected], "Ardhi Adhary Arbain"
<[EMAIL PROTECTED]> wrote:
>
> 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
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
