Penulis Topik: Satu Query Untuk Tiga Textbox  (Dibaca 1299 kali)

0 Anggota dan 1 Pengunjung sedang melihat topik ini.

Offline Kang Asep

  • Administrator
  • Master
  • *****
  • Tulisan: 9589
  • Thanked: 61 times
  • Total likes: 482
  • Jenis kelamin: Pria
  • Logika = Undang-undang berpikir
    • Lihat Profil
Satu Query Untuk Tiga Textbox
« pada: April 10, 2013, 01:54:40 PM »
Saya membuat tiga buah textbox, dengan nama Bpusat, Bpasar, dan Bwarung.

Saya bermaksud mengisi masing-masing textbox tersebut dengan nilai dari tbTamp.

Kode yang saya buat adalah sebagai berikut :

Kode: [Pilih]
MSQL = "select*from tbtamp where cb_in = '" & CmbCAb.Value & "'" & _
" and cb_out = '" & TxtBpst.Value & "' "

Set rs = CNN.Execute(MSQL)

If Not rs.EOF Then
rs.MoveFirst

Do While Not rs.EOF
Biaya = rs.Fields("total_biaya")
TotBiaya = TotBiaya + Biaya

rs.MoveNext



Loop

BPusat.Value = TotBiaya

End If

rs.Close

kode tersebut berhasil membuat textbox Bpusat terisi dengan angka dari TbTamp. Permasalahnnya, untuk mengisi tiga textbox saya mesti membuat tiga query. Semua scriptnya sama, kecuali “Bpusat.value” mesti diganti dengan “Bwarung.value” dan “Bpasar.value”. rasanya ini tidak efektif. Bagaimana kalau saya bermaksud mengisi sepuluh textbox, masa saya harus membuat 10 query? Jadi, apakah bisa membuat satu query untuk tiga textbox tersebut? bagaimana caranya?
Diskusi adalah usaha saling membantu dalam memahami struktur realitas melalui jalan komunikasi berlandaskan pada rasa hormat dan kasih sayang.
 

Offline kang radi

  • Moderator
  • Master
  • *****
  • Tulisan: 1062
  • Thanked: 3 times
  • Total likes: 21
  • Jenis kelamin: Pria
  • Kemelekatan yang tak terasa
    • Lihat Profil
Re:Satu Query Untuk Tiga Textbox
« Jawab #1 pada: April 10, 2013, 02:29:49 PM »

Kode: [Pilih]
MSQL = "select*from tbtamp where cb_in = '" & CmbCAb.Value & "'" & _
" and cb_out = '" & TxtBpst.Value & "' "

Set rs = CNN.Execute(MSQL)

If Not rs.EOF Then
rs.MoveFirst

Do While Not rs.EOF
Biaya = rs.Fields("total_biaya")
TotBiaya = TotBiaya + Biaya

rs.MoveNext



Loop

BPusat.Value = TotBiaya
BPasar.Value =  TotBiaya
BWarung.Value = TotBiaya

End If

rs.Close
« Edit Terakhir: April 10, 2013, 02:49:20 PM oleh kang radi »
 

Offline kang radi

  • Moderator
  • Master
  • *****
  • Tulisan: 1062
  • Thanked: 3 times
  • Total likes: 21
  • Jenis kelamin: Pria
  • Kemelekatan yang tak terasa
    • Lihat Profil
Re:Satu Query Untuk Tiga Textbox
« Jawab #2 pada: April 10, 2013, 02:48:32 PM »
Maaf pak tadi ngetiknya dari HP jadi kalo ada yang salah ketik dimaklujm yach, Mungkin solusinya bisa seperti diatas itu
 

Offline Kang Asep

  • Administrator
  • Master
  • *****
  • Tulisan: 9589
  • Thanked: 61 times
  • Total likes: 482
  • Jenis kelamin: Pria
  • Logika = Undang-undang berpikir
    • Lihat Profil
Re:Satu Query Untuk Tiga Textbox
« Jawab #3 pada: April 10, 2013, 08:41:31 PM »
he..he..., jawaban kang radi benar. tapi pertanyaan saya salah. soalnya tadi saya udah pusing banget. jadi nulis rumusan permasalahnnya acak-acakan. akibatnya, inti permasalahannya tidak terkemuka dengan baik. tapi makasih atas tanggapannya die.

sebenarnya, bukan hanya Bpusat itu yang nilainya berubah, tapi juga txtbpst. tapi barusan sudah dibantu sama kang ade.rohana. masalah sudah teratasi. berikut hasilnya :

Kode: [Pilih]
MSQL = "select*from tbtamp where cb_in = '" & CmbCAb.Value & "' and tanggal = #" & Format(TxtTgl.Value, "m/d/yyyy") & "# "

Set rs = CNN.Execute(MSQL)

BPusat.Value = 0
BTagog.Value = 0

If Not rs.EOF Then
rs.MoveFirst

Do While Not rs.EOF
Biaya = rs.Fields("total_biaya")
If rs.Fields("cb_out") = TxtBpst.Value Then
BPusat.Value = BPusat.Value + Biaya
Else
If rs.Fields("cb_out") = TxtBtgg.Value Then
BTagog.Value = BTagog.Value + Biaya

End If
End If
rs.MoveNext

Loop



End If

rs.Close
Diskusi adalah usaha saling membantu dalam memahami struktur realitas melalui jalan komunikasi berlandaskan pada rasa hormat dan kasih sayang.
 

Offline kang radi

  • Moderator
  • Master
  • *****
  • Tulisan: 1062
  • Thanked: 3 times
  • Total likes: 21
  • Jenis kelamin: Pria
  • Kemelekatan yang tak terasa
    • Lihat Profil
Re:Satu Query Untuk Tiga Textbox
« Jawab #4 pada: April 10, 2013, 10:26:37 PM »
he..he..., jawaban kang radi benar. tapi pertanyaan saya salah. soalnya tadi saya udah pusing banget. jadi nulis rumusan permasalahnnya acak-acakan. akibatnya, inti permasalahannya tidak terkemuka dengan baik. tapi makasih atas tanggapannya die.

sebenarnya, bukan hanya Bpusat itu yang nilainya berubah, tapi juga txtbpst. tapi barusan sudah dibantu sama kang ade.rohana. masalah sudah teratasi. berikut hasilnya :

Kode: [Pilih]
MSQL = "select*from tbtamp where cb_in = '" & CmbCAb.Value & "' and tanggal = #" & Format(TxtTgl.Value, "m/d/yyyy") & "# "

Set rs = CNN.Execute(MSQL)

BPusat.Value = 0
BTagog.Value = 0

If Not rs.EOF Then
rs.MoveFirst

Do While Not rs.EOF
Biaya = rs.Fields("total_biaya")
If rs.Fields("cb_out") = TxtBpst.Value Then
BPusat.Value = BPusat.Value + Biaya
Else
If rs.Fields("cb_out") = TxtBtgg.Value Then
BTagog.Value = BTagog.Value + Biaya

End If
End If
rs.MoveNext

Loop



End If

rs.Close

Sip pak, dilanjut goyang nya ^_^
 

 

GoogleTagged



Related Topics

  Subyek / Dimulai oleh Jawaban Tulisan terakhir
19 Jawaban
5381 Dilihat
Tulisan terakhir Juni 25, 2015, 10:42:52 AM
oleh Monox D. I-Fly
2 Jawaban
2491 Dilihat
Tulisan terakhir Mei 11, 2013, 10:22:34 AM
oleh Kang Asep
1 Jawaban
1324 Dilihat
Tulisan terakhir Pebruari 28, 2014, 03:51:58 PM
oleh Kang Asep
70 Jawaban
23370 Dilihat
Tulisan terakhir Desember 12, 2013, 02:50:39 PM
oleh sky
0 Jawaban
1306 Dilihat
Tulisan terakhir Mei 24, 2014, 05:19:48 AM
oleh Kang Asep
0 Jawaban
449 Dilihat
Tulisan terakhir April 30, 2015, 11:43:44 AM
oleh Kang Asep
0 Jawaban
504 Dilihat
Tulisan terakhir Juli 10, 2015, 06:06:12 AM
oleh Kang Asep
0 Jawaban
225 Dilihat
Tulisan terakhir Agustus 19, 2016, 07:58:01 PM
oleh Kang hendri
0 Jawaban
405 Dilihat
Tulisan terakhir Agustus 28, 2016, 06:27:17 PM
oleh Kang Asep
0 Jawaban
210 Dilihat
Tulisan terakhir Oktober 26, 2016, 07:00:33 PM
oleh Kang Asep

Ilmu Logika

Proposisi Syllogisme Kupas Logika TTS

Meditasi

Menenangkan Pikiran Mengembangkan Kekuatan-Kekuatan