halo para master VB, ada yang punya tutorial untuk membuat perhitungan arah kiblat menggunakan VB. tlng kasih saya yah soalnya untuk keperluan Tugas Akhir nih.
----- Original Message ---- From: Bace - Bace <[EMAIL PROTECTED]> To: [email protected] Sent: Thursday, May 10, 2007 3:39:20 PM Subject: Re: [indoprog-vb] Re: mendapatkan Nomor Record waduh ini rancu deh, bicara database atau tabel ya?, aku anggap tabel deh... kamun maunya nilai 2 itu sebagai apa? klu nilainya 2 itu sebagai hasil dari kolom kd, maka perintahnya adalah : msgbox rs("kd") tetapi harus kamu perhatikan berapa record sih hasil yang ditampilkan dengan perintah SQL yang kamu buat? (klu menurutku hasilnya satu record, jika type data kd didalam tabel itu numeric, klu kd itu string type datanya hasilnya nol) Klu menurut mu, [hasilnya rs.AbsolutePosisiti on 'Kenapa hasilnya selalu 0] berarti type data kolom kd itu string) klu nilai 2 itu maunya sebagai posisi record yang ditampilkan ya hasilnya nol, krn tidak ada record. Klu jumlah recordnya satu, ya yang ditampilkan adalah satu juga, klu jumlah recordnya lebih dari satu ya yang ditampilkan juga satu (slalu record pertama). Jadi nilai 2 yang kamu inginkan itu tidak akan didapat dengan code yang kamu buat tersebut. Semoga membantu: =(oVo)= ============ ======== BaceInside Publisher Copyright @2007 Not for reproduced, republished. Thank You ============ ======== ----- Original Message ---- From: ADEX <[EMAIL PROTECTED] co.id> To: indoprog-vb@ yahoogroups. com Sent: Thursday, May 10, 2007 2:50:45 PM Subject: [indoprog-vb] Re: mendapatkan Nomor Record Absolutposition digunakan untuk mengetahui posisi record yg terpilih saat itu dari query yg di jalankan. jadi klo query dari mas sony spt itu ya jelas akan tampil 0 karena cuman ada 1 record. dan record yg terpilih adalah record pertama. maksud untuk mendapatkan no record itu gimana, kurang jelas. --- In indoprog-vb@ yahoogroups. com, sonny marpaung <sonny_mp03@ ...> wrote: > > Mas2 aku mau tanya bagai mana caranya untuk mendapatkan nomor record? > saya untuk konek ke databasenya dengan coding seperti dibawah ini > > misalnya isi database DB: > kd nama > 1 A > 2 B > 3 C > > dim con As New ADODB.Connection > dim rs As New ADODB.Recordset > Public Sub Buka_Con() > con.Open "Provider=Microsoft .Jet.OLEDB. 4.0;Data Source=" & App.Path & "\DB.mdb" & _ > ";Persist Security Info=False;Jet OLEDB:Database Password=" > > rs.open("select * from tabel order by kd where kd = 2",cn,1,3) > msgbox rs.AbsolutePosisiti on 'Kenapa hasilnya selalu 0 bukan 2 > End Sub > > > > > > ------------ --------- --------- --- > Ahhh...imagining that irresistible "new car" smell? > Check outnew cars at Yahoo! Autos. > > [Non-text portions of this message have been removed] > ____________ _________ _________ _________ _________ __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail. yahoo.com [Non-text portions of this message have been removed] <!-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a { text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc { background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o {font-size:0;} .MsoNormal { margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq {margin:4;} --> ____________________________________________________________________________________ We won't tell. Get more on shows you hate to love (and love to hate): Yahoo! TV's Guilty Pleasures list. http://tv.yahoo.com/collections/265 [Non-text portions of this message have been removed]
