Ahmad Irfan Mohd

Extract DLL From GAC

2009-06-16T12:09:00.005+08:00

Terdapat keadaan di mana anda memerlukan DLL dalam GAC contohnya untuk deploy aplikasi anda di production server, tetapi DLL berkenaan tidak terdapat di mana-mana folder selain dari GAC.Bagaimana caranya untuk anda extract DLL berkenaan?Bertenang,dan ikuti sahaja arahan di bawah.

1. Buka command prompt anda
2. taip command seperti contoh ini:

copy "C:\WINDOWS\assembly\GAC_MSIL\System.Web.Extensions\1.0.61025.0__31bf3856ad364e35" C:\

NOTE: System.Web.Extensions = Assembly Name

1.0.61025.0__31bf3856ad364e35 = Version__PublicKeyToken
C:\ = Target Destination to copy into

ataupun boleh refer di url http://blogs.msdn.com/johnwpowell/archive/2009/01/14/how-to-copy-an-assembly-from-the-gac.aspx

Jadikan SelectParameter sebagai Optional

2009-06-15T11:17:00.006+08:00

Menggunakan SDS,anda boleh menjadikan parameter anda sebagai pilihan.Caranya?
1. Letakkan CancelSelectOnNullParameter="False" dalam SQLDataSource anda.
2. Dalam selectCommand property jadikan WHERE conditionnya seperti ini:
SelectCommand="SELECT xxx FROM tblxxx WHERE (columnX = '@columnX' OR @columnX is NULL)"
ATAU UNTUK WILDCARD
SelectCommand="SELECT xxx FROM tblxxx WHERE (columnX LIKE '%' + @columnX + '%' OR @columnX is NULL)"

Bound Field to GridView Dynamically

2009-05-26T11:54:00.003+08:00

bFld = New BoundField
bFld.DataField = "YourFieldName"
bFld.HeaderText = "YourHeaderText"
gview1.Columns.Insert(13, bFld)

Note : 13 is where to locate your new boundfield

Remote Scripting

2009-04-30T12:21:00.005+08:00

Kawan-kawan boleh gunakan kaedah remote scripting untuk panggil method dalam server side dari client script(javascript).
Just download rs.js yang boleh didapati secara percuma di internet..
penggunaannya amat mudah,tak perlu buat coding panjang-panjang..
secara konsepnya..just panggil

RS.Execute("YourRemotePage.aspx", "YourRemoteMethod", "optionalParameter1","OptionalParameter2"....,Callback,"optionalCallbackParameter1",
"optionalCallbackParameter2",...)

Untuk pengetahuan,Callback adalah function dalam rs.js yang akan dibuat bila mana remotemethod akan hantar result back to client.
untuk pemahaman yang lebih lanjut,boleh pergi kat laman di bawah;
Remote scripting

Tapi kalau korang nak file rs.js dari aku pun boleh email aku.
Cuma aku dah asingkan Callback method tu dalam .js yang lain.

regards.

Allow Resize on Gridview Column

2009-04-03T11:16:00.003+08:00

kalau korang nak bagi user boleh resize column header kat gridview korang boleh ikut step2 ni

1. download source code kat http://blog.lavablast.com/post/2007/11/ASPNET-GridView-column-resizing.aspx

2. compile (akan jadi library with name GridViewResizeExtender.dll)
3. kat page korang,
i. add reference utk guna library nie.
ii. import namespace ni LavaBlast.AJAX.GridViewResizeExtender
iii. copy paste code ni
Dim ext As GridViewResizeExtender = New GridViewResizeExtender
ext.TargetControlID = gview1.ID
ext.ID = "WhatEverID"
ext.BehaviorID = ext.ID + Me.GetType().Name
gview1.Parent.Controls.Add(ext)

NOTE :
1. gview1 tu id gridview korang
2. pastikan letak code ni lepas pada korang bind ke gridview
eg.
gview1.DataBind()
..code goes here...

selamat mencuba!

Load Large Data With Custom Paging

2009-04-01T12:43:00.003+08:00

Kawan-kawan boleh refer kat url ni:

http://www.asp.net/Learn/data-access/tutorial-25-vb.aspx

Kaedah ni amat2 bagus untuk load data yang besar.Sorry la tak terangkan kat sini,panjang sangat,tapi yang penting adalah memahami

1. TableAdapter (.xsd file)
2. ObjectDataSource instead of SQLdataSource(commonly use)

Aku sendiri dah try sample yang diberi (lupa la kat mane url sample,kalau jumpa nanti aku bg),memang improve.

Note : untuk sql2000 and backward version tak leh gunakan ni.

Export To Excel Using DataTable

2009-03-30T10:50:00.005+08:00

Selain menggunakan XML,HTMLWrite dan clientscript,korang boleh juga export data ke excel menggunakan datatable .

Contohnya (using vb.net)

Function ExportToExcel(ByVal dt As DataTable, ByVal startIdx As Integer)
Dim txt As String = ""
Dim dr As DataRow, ary() As Object, i As Integer
Dim iCol As Integer
Dim sb as stringbuilder= new stringbuilder()

If dt.Rows.Count > 0 Then
'Output Column Headers
For iCol = startIdx To dt.Columns.Count - 1
sb.append(dt.Columns(iCol).ToString & vbTab)
Next
sb.append(vbCrLf)

'Output Data
For Each dr In dt.Rows
ary = dr.ItemArray
For i = startIdx To UBound(ary)
sb.append(Trim(ary(i).ToString) & vbTab)
Next
sb.append(vbCrLf)
Next
End If
Return sb.tostring()

End Function

'//remarks:make sure event handler coontrol is outside of updatepanel control
Sub btn_click...
Dim attachment As String = "attachment; filename=Employee.xls"
Dim val As String = ""
Response.ClearContent()
Response.AddHeader("content-disposition", attachment)
Response.ContentType = "application/vnd.ms-excel"
val =ExportToExcel(DtTable, 0) '<--DtTable is your gridview datatable
Response.Write(val)
Response.End()
End sub

Merging GridView Header Cell

2009-03-27T10:05:00.005+08:00

Korang boleh merge cell untuk header gridview menggunakan function SetRenderMethodDelegate.
Tengok sample code kat bawah

Ni code yang aku dah convert ke vb.net (code asal c# boleh dirujuk di http://marss.co.ua/MergingGridViewHeaderColumns.aspx)

'//yang ni takperlu ubah ape2
'===========================

<Serializable()> _
Private Class MergedColumnsInfo
' indexes of merged columns
Public MergedColumns As New List(Of Integer)()
' key-value pairs: key = first column index, value = number of merged columns
Public StartColumns As New Hashtable()
' key-value pairs: key = first column index, value = common title of merged columns
Public Titles As New Hashtable()

'parameters: merged columns's indexes, common title of merged columns
Public Sub AddMergedColumns(ByVal columnsIndexes As Integer(), ByVal title As String)
MergedColumns.AddRange(columnsIndexes)
StartColumns.Add(columnsIndexes(0), columnsIndexes.Length)
Titles.Add(columnsIndexes(0), title)
End Sub
End Class

'property for storing of information about merged columns
Private ReadOnly Property info() As MergedColumnsInfo
Get
If ViewState("info") Is Nothing Then
ViewState("info") = New MergedColumnsInfo()
End If

Try
Return DirectCast(ViewState("info"), MergedColumnsInfo)
Catch ex As Exception
Return Nothing
End Try

End Get
End Property

'method for rendering of columns's headers
Private Sub RenderHeader(ByVal output As HtmlTextWriter, ByVal container As Control)
For i As Integer = 0 To container.Controls.Count - 1
Dim cell As TableCell = DirectCast(container.Controls(i), TableCell)
'stretch non merged columns for two rows
If Not info.MergedColumns.Contains(i) Then
cell.Attributes("rowspan") = "2"
cell.RenderControl(output)
'render merged columns's common title
ElseIf info.StartColumns.Contains(i) Then
output.Write(String.Format("{1}", info.StartColumns(i), info.Titles(i)))
End If
Next

'close first row
output.RenderEndTag()
'set attributes for second row
gview1.HeaderStyle.AddAttributesToRender(output)
'start second row
output.RenderBeginTag("tr")

'render second row (only merged columns)
For i As Integer = 0 To info.MergedColumns.Count - 1
Dim cell As TableCell = DirectCast(container.Controls(info.MergedColumns(i)), TableCell)
cell.RenderControl(output)
Next
End Sub

'kat event GridView_RowCreated() 'ni pun tak perlu ubah aper2
=========================
If e.Row.RowType = DataControlRowType.Header Then
e.Row.SetRenderMethodDelegate(AddressOf RenderHeader)
End If

'kat page_load event 'sini aje kalau nak set cell mane nak merge
================
If Not IsPostBack Then
info.AddMergedColumns(New Integer() {3, 4, 5}, "any text column baru") 'ni akan merge cell 3,4,5

'kalau nak merge lagi,just put same statement here

End If

note:so korang tak perlu pening2 buat kat itemTemplateField.
ko rang boleh copy sourcecode dari sumber asalnya dan test tengok hasilnya.Thanks to the coder!
Lagi satu,kalau tengah debug,kalau korang ubah any property value kat boundfield,korang kena run balik.so best practise,jgn ubah waktu application tgh running.

Event Not Fired When Click Event Handler

2009-03-25T14:16:00.006+08:00

mungkin berlaku masalah bila event handler korang tak fire event bila guna ajax.
caranya,try letak Trigger control kat page korang dan Set kan ControlId Property kepada eventhandler id.
contohnya

<Triggers>
<asp:PostBackTrigger ControlID="btnSave" />
</Triggers>
...
<asp:button id="btnSave" runat="server" />

Error When Using Response Object Withing UpdatePanel Object

2009-03-25T14:02:00.007+08:00

korang akan dapat error at run time bila cuba untuk guna response.xxx object bilamana event handler yang fire event(contohnya asp:button) berada dalam updatePanel tag.

at the code
...
sub mybtn_onclick(xxx,xxx) handles...
response.write("bla bla") 'ni akan sebabkan error run time
end sub

T-SQL Using Pivot To Matrix Data

2009-03-25T13:59:00.001+08:00

CREATE TABLE #temp123
(
Country varchar(15),
Variable varchar(20),
VaribleValue INT
)

INSERT INTO #temp123 VALUES ('North America','Sales','2000000')
INSERT INTO #temp123 VALUES ('North America','Expenses','1250000')
INSERT INTO #temp123 VALUES ('North America','Taxes','250000')
INSERT INTO #temp123 VALUES ('North America','Profit','500000')

INSERT INTO #temp123 VALUES ('Europe','Sales','2500000')
INSERT INTO #temp123 VALUES ('Europe','Expenses','1250000')
INSERT INTO #temp123 VALUES ('Europe','Taxes','500000')
INSERT INTO #temp123 VALUES ('Europe','Profit','750000')

INSERT INTO #temp123 VALUES ('South America','Sales','500000')
INSERT INTO #temp123 VALUES ('South America','Expenses','250000')

INSERT INTO #temp123 VALUES ('Asia','Sales','800000')
INSERT INTO #temp123 VALUES ('Asia','Expenses','350000')
INSERT INTO #temp123 VALUES ('Asia','Taxes','100000')

/** Show original table **/
SELECT * FROM #temp123

/** Create crosstab using PIVOT **/
SELECT *
FROM #temp123
PIVOT
(
SUM(VaribleValue)
FOR [Variable]
IN ([Sales],[Expenses],[Taxes],[Profit])
)
AS p

DROP TABLE #temp123

--TO ALLOW USING PIVOT COMMAND
--EXEC dbo.sp_dbcmptlevel @dbname=N'PromiseLive', @new_cmptlevel=90

T-SQL Row_Number With Group By Clause

2009-03-25T13:51:00.004+08:00

kalau nak kuarkan row number dan row number reset bila new group

1. kalau nak row number desc order

-------------------------
SELECT * FROM

(
SELECT row_number() OVER (PARTITION BY XColumn
ORDER BY COUNT(XColumn)) as RowNumber,XColumn,YColumn,ZColumn
from XYZTable
GROUP BY XColumn,YColumn,ZColumn
)a
ORDER BY XColumn,RowNumber desc

2. kalau nak asc order
-------------------------------------------------
SELECT row_number() OVER (PARTITION BY XColumn
ORDER BY COUNT(XColumn)) as RowNumber,XColumn,YColumn,ZColumn
from XYZTable
GROUP BY XColumn,YColumn,ZColumn

NOTE : berguna untuk kira total count per group,running total etc

Apabila Yang Tersembunyi Lebih Dicari

2008-11-03T18:45:00.000+08:00

Apabila Mufti Perlis,yang berbahagia Dr Mohd Asri Zainul Abidin menyingkap persoalan berkenaan Tajassus(mengintip) dalam ruangan Bicara Mufti pada hari ahad yang lepas maka sudah tentunya mengundang pelbagai pandangan dari masyarakat pembaca.Secara kesimpulannya ruangan pena itu bermaksud lebih kurangnya perkara-perkara maksiat yang tersembunyi lebih digemari untuk disingkap dan dijengah berbanding perkara-perkara maksiat yang terang lagi nyata.
Saya secara dasarnya amat bersetuju dengan pandangan Dr. Mohd Asri betapa kita(atau pihak berkuasa?) sebenarnya terlalu membiarkan maksiat yang nyata dihadapan mata berlaku,dan lebih menyedihkan seolah menghalalkannya. Contohnya..betapa banyak drama-drama maupun filem—filem kita yang memaparkan aksi-aksi maksiat,berpelukan antara bukan muhrim,bercumbuan,berpakaian tidak senonoh dan sebagainya dibiarkan sahaja sedangkan maksiat-maksiat tersembunyi lebih digemari untuk disingkap.Bukanlah bermaksud ianya harus dibiarkan namun perkara yang utama harus diutamakan.
Selayaknya semua pihak amnya dan pihak berwajib khususnya lebih memandang serius kupasan oleh Dr. Mohd Asri ini demi kebaikan semua pihak.Wallahuallam.

Adab dalam beribadah

2008-11-02T15:46:00.002+08:00

assalamualaikum.

Baru-baru ini selepas dalam perjalan balik dari kerja,saya sempat singgah di sebuah surau yang sederhana besar untuk menunaikan solat.Masuk sahaja dalam ruang solat kedengaran seseorang lelaki yang sedang berdoa dengan suara yang agak kuat.Doanya tidaklah salah,cuma menjadi isunya apabila saya melihat terdapat dua lelaki lain sedang menunaikan solat berhampiran dengan lelaki tadi.Jadi apa rasionalnya lelaki berkenaan membaca doa dengan suara yang kuat yang saya kira tentunya menganggu orang lain untuk melakukan ibadah wajib.Nampaknya disini keutamaan dalam melakukan ibadah mungkin sedikit dilupai oleh lelaki tadi.
Perkara ini mengingatkan saya kepada satu peristiwa apabila saya dalam perjalanan pulang dari perantauan ke kampung halaman.Apabila singgah di satu surau di sebuah stesen minyak,keadaan di dalam surau begitu penuh dengan jemaah yang sedang solat.Bagaimanapun pandangan saya lebih tertumpu kepada seorang jemaah yang sedang berdoa,seminit belum habis,2 minit belum lagi habis sedangkan jemaah lain yang sedang menunggu ruang kosong untuk masuk menunaikan solat makin bertambah ramai.Saya tidak pasti bilakah jemaah tadi mengakhiri doanya apabila terdapat satu ruang kosong yang baru saja di berikan oleh seorang jemaah lain yang baru selesai mendirikan solat.
Bagi saya sempurnanya ibadah seseorang adalah juga meliputi kesan ibadahnya kepada orang lain.Wallahuallam...

Nilai Seorang Pengaturcara

2008-10-30T19:22:00.003+08:00

Assalamualaikum...

Teguhnya pokok-pokok tentunya disebabkan oleh kekuatan akar-akarnya yang menerobos jauh ke dalam tanah.
Megahnya bangunan-bangunan mencakar langit semestinya ditentukan oleh cengkaman tiang-tiang bangunan jauh ke perut bumi.
Kukuhnya jambatan-jambatan disabitkan oleh kekuatan cerucuk tiang-tiang nun di dalam dasar lautan.

Persamaannya?
Ketiga-tiga penyebab kepada kekukuhan objek berkenaannya kebanyakannya tidak kelihatan pada PERMUKAAN LUAR lantas hampir TIDAK DISEDARI kewujudannya.
Ada apa dengan nilai seorang pengaturcara? Sekian.

Sebarang Isu-Isu X Office

2008-10-22T09:23:00.001+08:00

Kawan-kawan kat office lama aku,kalau ada problem atau isu kat MMCSB yang boleh aku tolong, korang posting kat sini,nanti aku jawab kat sini juga. :)

Orang kita ramai yang hanya pandai bercakap

2008-10-22T00:10:00.000+08:00

Assalamualaikum.

Minggu lepas selepas solat jumaat di salah sebuah masjid di Kuala Terengganu,ada seorang makmum membebel,mengatakan kenapa di masjid berkenaaan tidak terdapat bekas atau raga atau bakul atau sebagainya sebagai tempat untuk meletakkan kembali Surah Yasin atau Al-Quran selepas selesai dibaca.

Dibebelnya lagi bukankah masjid berkenaan mendapat banyak duit hasil dari kutipan pada setiap jumaat?Anehnya sebelum itu pandai pula si makmum ini masuk ke ruangan solat utama untuk mengambil Surah Yasin.Diperhatikan pula setelah selesai dibacanya Surah Yasin itu,maka diletakkan sahaja di atas tingkap masjid.Tidak cukup dengan itu dibuat bising mengatakan mengapa masjid tidak membeli peralatan pembesar suara yang baru untuk menggantikan dengan sistem pembesar suara yang sedia ada?

Dalam satu kes yang lain pula (di masjid yang sama),ada seorang makmum juga membuat bising kenapa dan mengapa ahli-ahli jawatankuasa masjid tidak menghamparkan tikar lebih awal sedikit.Dikatanya itu dan ini kepada ahli-ahli jawatankuasa masjid.

Untuk perhatian pembaca,masjid berkenaan adalah masjid sementara yang dibina untuk menampung keperluan masyarakat setempat sementara mengunggu masjid baru disiapkan(sedang dalam pembinaan).Masjid sementara ini mengandungi dua bahagian solat,satunya ruang solat utama,dan yang keduanya ruang dibawah(di ruang inilah dihampar tikar untuk solat dan dikatakan tiada bekas untuk menyimpan Surah Yasin).Jadi adakah wajar membazirkan banyak wang hanya untuk mengetahui bahawa masjid sementara ini akan dirobohkan juga nanti?

Apa yang anehnya,apabila ditawarkan kepada kesemua makmum yang amat pandai berkata-kata ini untuk menjadi AJK masjid berkenaan,pandai pula memberikan seribu satu alasan untuk mengelak.

Ini tidak lagi termasuk dalam hal-hal keagamaan.Ada yang sangat pandai mengatakan orang itu lebih Islamnya dari orang ini,lebih itu dan lebih ini,lebih alim dan macam-macam,padahal yang mengatakan itupun,apabila bermain hanya memakai seluar pendek atas paras lutut sahaja. Samalah juga dalam hal politiknya,oleh sebab terlalu sangat pandai bercakap,apabila mempunyai peluang untuk bertindak,yang tetap dilakukan ialah bercakap juga! Begitulah juga dengan banyak perkara-perkara lain.

Jadi benarlah; sebenarnya, sebahagian orang kita memang hanya pandai bercakap dan bercakap.