Macam Mana Papar Data Ikut Abjad

[dell123 0]

Macam mana nak tengok ikut abjad contohnya A,B,C......Z.

Kalau user klik kat button A, Senarai yang bermula dengan huruf A akan di paparkan. So, nak tahu cooding??

aku guna access dan asp

[hafizzd 0]

Macam mana nak tengok ikut abjad contohnya A,B,C......Z.

Kalau user klik kat button A, Senarai yang bermula dengan huruf A akan di paparkan. So, nak tahu cooding??

aku guna access dan asp

←

dekat sql ko tu, tambah ORDER BY .... cthNya:

sql = "SELECT * FROM mytable ORDER BY Name"

alrite..

[muhamadnasron 0]

tambah sikit..

kalu nak papar ikut abjad menaik :

sql = "SELECT * FROM mytable ORDER BY Name ASC"

kalu menurun:

sql = "SELECT * FROM mytable ORDER BY Name DESC"

wallahu a'lam

[fnd 0]

sql = "SELECT * FROM mytable ORDER BY Name ASC"

Sambung sikit...

rs.Open sql, conn

Kemudian kalau nak paparkan dgn agak tersusun

boleh guna cara bawah ni.

<table>

<%

for each x in rs.Fields

response.write("<td>" & x.name & "</td>")

next

Response.Write("<tr>")

do until rs.EOF

for each x in rs.Fields

Response.Write("<td>" & x.value &"</td>")

next

rs.MoveNext

Response.Write("<tr>")

loop

%>

[DevGuy 0]

rasa baik ko jgn susun abjad tu, just guna la like statement yg ada % tu.

contoh

Select * from mytable where Name = '" & txtAbjad.text & "%'"

cadangan jer

[fnd 0]

OK..saya dah baca semula soalan tu betul2.

Sekarang lupakan dulu semua yang diatas tu.

Apa kata kita cuba bina satu persatu dari mula sampai siap.

Mula2 buatkan satu page yang memaparkan A, B, C,..sampai Z. Letakkan link a href="" di setiap huruf-huruf tu seperti contoh dibawah.

<a href="javascript:hantar('a')">A</a>

<a href="javascript:hantar('b')">B</a>

.

.

<a href="javascript:hantar('z')">Z</a>

Benda ni kalau nakkan cantik sikit elok disusun dalam table.contoh macam dibawah.

<table border=1>

<td>

<a href="javascript:hantar('a')">A</a>

</td>

<td>

<a href="javascript:hantar('b')">B</a>

</td>

..

..

<td>

<a href="javascript:hantar('z')">Z</a>

</td>

</table>

Kalau kita save dan lihat dibrowser, kedudukan link huruf-huruf tersebut akan tersusun atur dalam kotak-kotak table....

Kemudian buat satu 'form' dengan satu 'hidden variable' seperti dibawah.

Nama form tersebut=f1 , method=post dan akan dihantar ke namafail.asp.

<form name='f1' action='namafail.asp' method=post><input type=hidden name='hurufygdihantar'></form>

Seelok-eloknya benda form ni diletakkan dibahagian atas table yang telah dibuat sebentar tadi. Tutorial ni tak ikut turutan susunan skripnya, jadi kena baca dan faham betul-betul.

Seterusnya buatkan satu script yang akan hantar huruf-huruf untuk diproses.

<script>

function hantar(hurufdiklik){

document.f1.hurufygdihantar.value=hurufdiklik

}

</script>

Script ni pun diletakkan diatas bahagian form yang kita buat sebentar tadi.

Save dulu fail ni dengan nama 'namafail.htm'. Cuba bukak dgn ie, tengok ada error..

Nanti sambung....

[dell123 0]

ok aku dah try buat..tapi yang kengkawan bg koding tuh macam sorting je kan...dia papar semua data..dari a sampai z...aku xnak camtu..

aku dah buat button..button a sampai z..aku nak bila user klik button a..akan terpapar semua data yang bermula huruf a sahaja..kalau user klik button b, data yang dipaparkan bermula huruf b je begitula seterusnya ..emm..kalau buat order by name tu...dia kuar semua..aku nak bahagikan data dalam database aku tu ikut abjad la..bila dipaparkan..iskk..terpanjang lak citer aku ni..maybe senang je ni..tp xtau dah nak wat camane.. please help me once again:blink:

wasalam..

[muhamadnasron 0]

lor itu macam ka..

wat camni la.. tambah WHERE dgn LIKE

ni nak susun dgn pangkal nama bermula dari huruf "A" :

sql = "SELECT * FROM mytable WHERE nama LIKE 'a%' ORDER BY nama ASC

kita geng..

wallahua'lam..

[DevGuy 0]

aku dah ckp dah.. so buat jer la mcm aku kasi cadangan tuu

contoh aa ko nyer button a object dia cmdA

so kokena la buat cam ni

On Error GoTo ErrorHandler

Dim rsTemp As ADODB.Recordset

Set rsTemp = CreateObject("ADODB.Recordset")

strsql = "SELECT * FROM MyTAble Where name LIKE 'a%'"

With rsTemp

.CursorLocation = adUseClient

.Open strSql , strConnect, adOpenStatic + adOpenForwardOnly, adLockReadOnly

Set .ActiveConnection = Nothing

End With

Set Read1 = rsTemp

Set rsTemp = Nothing 'GetObjectContext.SetComplete

Exit Function

tu utk a.

tapi di sebab kan byk sngat a-z so ko ken ala buat function. cth dia mcm nii

Public Function Read1(ByVal strConnect As String, ByVal strSql As String, _

Optional ByVal strFilterString As String) As ADODB.Recordset

On Error GoTo ErrorHandler

Dim rsTemp As ADODB.Recordset

Set rsTemp = CreateObject("ADODB.Recordset")

With rsTemp

.CursorLocation = adUseClient

If Trim(strFilterString) <> "" Then

.Open strSql & " Where " & strFilterString, strConnect, adOpenStatic + adOpenForwardOnly, adLockReadOnly

Else

.Open strSql, strConnect, adOpenStatic + adOpenForwardOnly, adLockReadOnly

End If

Set .ActiveConnection = Nothing

End With

Set Read1 = rsTemp

Set rsTemp = Nothing 'GetObjectContext.SetComplete

Exit Function

ErrorHandler:

App.LogEvent Err.Number & " " & Err.Description & TypeName(Me) & " :Read", vbLogEventTypeError

End Function

so kang kat ko nyer button panggil la mcm nii

read1("oConn","SELECT * FROM MyTable","name ='a'")

ok good luck

[fnd 0]

Sorry la..lambat masuk.

Saya cuma nak tanya... takda satu arahan pun yang saya tengok akan memaparkan data-data yang telah diselect tu.

Atau mungkin arahan-arahan untuk paparkan data-data tu dianggap perkara remeh yang tak perlu ditunjukkan. (Mungkin difikirkan yg penanya dah tahu caranya..).Saya harap saya silap kat sini.

Satu lagi , salah seorang penjawab ada beritahu 'ikut cara yang dia bagi tu'. Tapi sql yang diberi sebelum tu tak sama dgn sql yang dia baru bagi.Totally Lain.

Dan saya tahu sql yang satu lagi yg dijawab oleh penjawab satu lagi lebih tepat dan cepat untuk select data-data tu. (tepat dengan soalan yang diberikan..).

Saya pastekan disini.

SELECT * FROM mytable WHERE nama LIKE 'a%' ORDER BY nama ASC

Sekarang sambung sikit lagi..(untuk penanya dan yang nak tahu..)

Bahagian script tu ada sambungan lagi.

<script>

function hantar(hurufdiklik){

document.f1.hurufygdihantar.value=hurufdiklik

document.f1.submit

}

</script>

Senang cite ini kod penuh (belum habis lagi..) htmlnya.

<script>
function hantar(hurufdiklik){
document.f1.hurufygdihantar.value=hurufdiklik
document.f1.submit}
</script>
<form name='f1' action='namafail.asp' method=post><input type=hidden name='hurufygdihantar'></form>
<table border=1>
<td><a href="javascript:hantar('a')">A</a></td>
<td><a href="javascript:hantar('b')">B</a></td>
..
..
<td><a href="javascript:hantar('z')">Z</a></td>
</table>

Bahagian table tu kalau nak ringkas boleh tulis dengan script tapi untuk elakkan kekeliruan guna yang ini dulu.

Kemudian masuk bahagian ASP nya.

Seperti biasa tulis seperti dibawah.

<%

abjadditerima = Request.Form("hurufyangdihantar")

sql="SELECT * FROM mytable WHERE nama LIKE '"&abjadditerima&"%' ORDER BY nama ASC

..Buat masa ni jangan fikir sebarang error yang akan terjadi.Buat semak kod je.

Nanti sambung.

[hafizzd 0]

mak aih, ayat bersopan santun.

[fnd 0]

Secara ringkas kod keseluruhannya macam ni....kemungkinan ada error tu memang terlalu besarlah sebab memang langsung tak test...(terus tulis je).

Tapi kalau rajin beritahu kat mana ada error, mungkin org lain boleh kasi betulkan atau hentam balik sama aku...

Kalau aku, aku aku macam nilah.. (untuk permulaan)

<%
abjadditerima = Request.Form("hurufyangdihantar")
%>
<script>
function hantar(hurufdiklik){
document.f1.hurufygdihantar.value=hurufdiklik
document.f1.submit}
</script>
<form name='f1' action='namafail.asp' method=post><input type=hidden name='hurufygdihantar'></form>
<table border=1>
<td><a href="javascript:hantar('a')">A</a></td>
<td><a href="javascript:hantar('b')">B</a></td>
..
..
<td><a href="javascript:hantar('z')">Z</a></td>
</table>
<%
if len(abjadditerima)>0 then
sql="SELECT * FROM mytable WHERE nama LIKE '"&abjadditerima&"%' ORDER BY nama ASC
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("namadatabase.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
rs.Open sql, conn
%>
<table border="1" width="100%">
<%for each x in rs.Fields%>
<td><%= x.name%></td>
<%next%>
<tr>

<%do until rs.EOF
for each x in rs.Fields%>
<td><%=x.value%></td>
<%next
rs.MoveNext%>
<tr>
<%loop

rs.close
conn.close
%>
</table>
<%end if%>

Selain dari tu banyak lagi perlu diambil kira...

Kalaulah data dlm database tu penuh tanda-tanda(asing), memang tak boleh guna cara paparan data macam ni.

[fnd 0]

Sebenarnya dulu ada cuba-cuba nak buat kamus. Tu yang cuba ingat-ingat balik lebih kurang macam ni scriptnya.

Ingat lepas ni nak cari balik kod tu sambung balik dan upload kat internet ni.

Tunggu...Canggih kamusnya , macam wikipedia jugaklah (harap kat org lain penuhkan databasenya... ).Tapi entahlah...

Nak harapkan sambutan tu memang..tahu-tahu jelah...susah sikit.