2012 in review

The WordPress.com stats helper monkeys prepared a 2012 annual report for this blog.

Here’s an excerpt:

600 people reached the top of Mt. Everest in 2012. This blog got about 2,500 views in 2012. If every person who reached the top of Mt. Everest viewed this blog, it would have taken 4 years to get that many views.

Click here to see the complete report.

galau

entah arti sebenarnya,tp kata ini yang muncul d kepala saat menulis judul.
Rasanya banyak yang ingin d tulis, d ceritakan dan ingin mereka tahu apa yang d rasa, apa yang terjadi..
Suka, duka, senang, susah, cinta, benci..
Tentang kamu, dia atau mereka yang pernah datang dan pergi mengisi hariku..
Entah kenapa tidak ada keberanian untuk melakukannya, terlalu banyak yang d pertimbangkan..(manusiawi)..karena manusia makhluk sosial yang harus berfikir sebelum berkata, agar orang tidak tersinggung, cemburu, emosi, salah mengartikan atau semacamnya.

2011 in review

The WordPress.com stats helper monkeys prepared a 2011 annual report for this blog.

Here’s an excerpt:

A San Francisco cable car holds 60 people. This blog was viewed about 1,400 times in 2011. If it were a cable car, it would take about 23 trips to carry that many people.

Click here to see the complete report.

koneksi Oracle

sebenarnya udah lama mau posting ini, karna satu dan lain hal jadi baru sekarang deh bisa postingnya 😀
oracle, database yang oke banget itu mau saya gunakan untuk penyimpanan data dan saya menggunakan program PHP sebagai interface.
langkah awal yang harus d lakukan sebelum coding adalah
hapus remark yang php_oci8 dan php_oracle yang ada pada apache\bin\php.ini (hapus semicolon dua line d bawah ini)

;extension=php_oracle.dll
;extension=php_oci8.dll

nah setelah itu restart apache dan mulailah berkreasi dengan PHP dan Oracle.
berikut salah satu contoh untuk koneksi PHP dengan Oracle :

index.php

<table>
<TR>
<TD ALIGN="left">customer id</TD>
<TD ALIGN="right">name</TD>
<TD ALIGN="right">country</TD>
</TR>
<?php
$koneksi=@oci_connect("username","password","database");
	if(!$koneksi) {
		$e = oci_error();
		echo htmlentities($e["message"]);
		exit();
		}
		
$query = "select customer_id,name,country";
$query .= " from tbl_customer order by customer_id";
$stmt = OCIparse($koneksi,$query);
OCIexecute($stmt,OCI_DEFAULT);
while (OCIfetchInto($stmt,&$userinfo)) {
?>
<TR>
<TD ALIGN="left"><? echo $userinfo[0]; ?></TD>
<TD ALIGN="right"><? echo $userinfo[1]; ?></TD>
<TD ALIGN="right"><? echo $userinfo[2]; ?></TD>
<TD ALIGN="right"><? echo $userinfo[3]; ?></TD>
<TD ALIGN="right"><? echo $userinfo[4]; ?></TD>
</TR>
<?php
} // endwhile
OCIFreeStatement($stmt);
OCILogoff($koneksi);
?>
</table>

setelah ini seperti biasa d jalankan pada browser dan selamat bercoding ria 😉

GridView

saya ingin menampilkan data dari database dalam bentuk tabel pada ASP.Net,
dalam ASP.Net ada yang namanya GridView untuk mengabulkan keinginan tersebut.
sebenarnya sih kita tinggal tarik saja pada Visual Studio,
tapi disini saya gak menampilkan tarik menariknya melainkan dalam bentuk source.
dan disini juga gak menjelaskan fungsi-fungsi dari code tersebut,
bukan gak mau menjelaskan…
ya, lebih baik dicoba jalankan dulu dan cari tau sendiri dulu fungsi-fungsi tersebut 😉
oh ya, disini saya menggunakan database MS.Access (simple aja ya :D)

code GridView.aspx

	<div>
    <asp:GridView id="myGridView" runat="server" CellPadding="3" 
        GridLines="Horizontal" AllowPaging="True" PageSize="15" BackColor="White" 
            BorderColor="#E7E7FF" BorderStyle="None" BorderWidth="1px">
        <FooterStyle BackColor="#B5C7DE" ForeColor="#4A3C8C" />
        <RowStyle BackColor="#E7E7FF" ForeColor="#4A3C8C" />
        <PagerStyle BackColor="#999999" ForeColor="Black" HorizontalAlign="Center" />
        <SelectedRowStyle BackColor="#738A9C" Font-Bold="True" ForeColor="#F7F7F7" />
        <HeaderStyle BackColor="#4A3C8C" Font-Bold="True" ForeColor="#F7F7F7" />
        <AlternatingRowStyle BackColor="#F7F7F7" />
    </asp:GridView>
    </div>

code GridView.vb

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Collections
Imports System.Configuration
Imports System.Web
Imports System.IO

Partial Public Class GridView
    Inherits System.Web.UI.Page

    Dim dstam As New DataSet
    Dim objConn As OleDbConnection
    Dim objCmd As OleDbCommand

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim strConnString As String
        strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("dataku.mdb") & ""
        objConn = New OleDbConnection(strConnString)

        Try
            objConn.Open()

            Dim strSQL As String

            dstam = New DataSet

            strSQL = "SELECT nik,nama,alamat,email,telp FROM karyawan order by nik"

            Dim tabel As OleDbDataAdapter
            tabel = New OleDbDataAdapter(strSQL, objConn)
            tabel.Fill(dstam, "karyawan")

            myGridView.DataSource = dstam.Tables(0)
            myGridView.DataMember = "nik"
            myGridView.DataBind()

        Catch myException As Exception
            Response.Write("Error...")
        Finally
            objConn.Close()
        End Try

    End Sub
	
	Sub Page_UnLoad()
        objConn.Close()
        objConn = Nothing
    End Sub
	
	Protected Sub myGridView_PageIndexChanged(ByVal sender As Object, _
           ByVal e As System.EventArgs) Handles myGridView.PageIndexChanged
        LoadGrid()
    End Sub
    Protected Sub myGridView_PageIndexChanging(ByVal sender As Object, _
           ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles myGridView.PageIndexChanging
        myGridView.PageIndex = e.NewPageIndex
    End Sub

    Private Sub LoadGrid()
        Dim strSQL As String

        dstam = New DataSet

        strSQL = "SELECT nik,nama,alamat,email,telp FROM karyawan order by nik"

        Dim tabel As OleDbDataAdapter
        tabel = New OleDbDataAdapter(strSQL, objConn)
        tabel.Fill(dstam, "karyawan")

        myGridView.DataSource = dstam.Tables(0)
        myGridView.DataMember = "nik"
        myGridView.DataBind()

    End Sub

silahkan mencoba dan mengembangkannya 🙂

sobat kecil

terlintas dalam fikiranku sewaktu kita kecil dulu
tak terasa lama telah kita habiskan waktu bersama
sobat…
kita bersama bermain,
berkelahi hingga menangis dan tak lama kemudian kita kembali jajan bersama tertawa gembira,
SMA kita saling curhat tentang wanita-wanita yang memikat hati dan berkeluh kesah saat putus, disakiti atau menyakiti
setelah lulus SMA ternyata kau memilih untuk mencari kerja dan aku yang sedikit beruntung dapat melanjutkan kuliah
setelah itu pula kita jarang bercanda ria seperti dulu lagi.
hingga kini aku telah mencoba mengimplementasikan ilmuku pada perusahaan-perusahaan yang membutuhkan
membuat kita semakin menjauh.
tapi…
apa yang aku dengar dan lihat tentang dirimu?
apa yang kau lakukan itu?
kau menghamili anak orang!
pedih rasanya hati ini, panas telinga ini mendengarnya.
kita yang dulu tiap sore mengaji bersama,
kita yang meramaikan masjid dengan anak-anak,
kita yang pernah mengajarkan orang cara sholat,
kita…
kini bayi atas perbuatanmu telah lahir dan kau telah menjadi ayah
bangga bercampur tangis aku melihatmu sobat
bangga karena kau sudah dipercaya untuk di titipkan seorang anak yang tampan
sedih karena kau melakukah hal yang seharusnya kau lakukan
oke…
yang terjadi biarlah terjadi akan menjadi sebuah kenanagan terindah dan pelajaran terbaik
semoga kau dapat merawat dan mendidik jagoanmu dengan sangat baik dan membanggakanmu di kemudian hari.

-Tuyul-

membuat dan membaca file txt

hmmm…
baru posting tentang ASP.NET bukannya perkenalan tentang ASP.NET dan dasar-dasar form atau koneksi database(insert, update dan delete) malah langsung membuat file txt 😀
ya, mungkin kalau untuk form2 pada ASP.NET sama dengan HTML dan bisa menggunakan Visual Studio tinggal drag and drop :p
kalau untuk koneksi, mungkin sambil berjalan :p.

source pada vb script untuk membuat file txt :

Imports System
Imports System.Data
Imports System.IO
Imports System.Data.OracleClient
Imports System.Collections

Partial Public Class FormKu
    Inherits System.Web.UI.Page
    Dim myConnection As New OracleConnection
    Dim dstam As New DataSet
    Dim sql As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim sw As New System.IO.StreamWriter(Server.MapPath("yourfile.txt"), False)

myConnection = New OracleConnection("data source=rifkyiip;User ID=punyaku;password=pass;")

sql = "select x.a,x.b,x.c from tabelku x where x.id='" + LBLno.Text + "'"
myConnection.Open()

Dim i As Integer
Dim penghubungku As OracleDataAdapter
penghubungku = New OracleDataAdapter(sql, myConnection)
penghubungku.Fill(dstam, "tabelku x")
Try
  For i = 0 To dstam.Tables(0).Rows.Count - 1
     With dstam.Tables(0).Rows(i)
        sw.WriteLine("Nama :" & .Item(0) & "<BR>")
        sw.WriteLine("Alamat :" & .Item(1) & "<BR>")
     End With
  Next
Catch myException As Exception
     Response.Write("Error...")
 Finally
     sw.Close()
End Try
myConnection.Close()
End Sub
End Class

membaca file txt :

Dim FileName As String
Dim fp As StreamReader
FileName = "yourfile.txt"
Dim myWriter As System.IO.TextWriter

Try
    fp = File.OpenText(Server.MapPath(FileName))
    myWriter = Response.Output
    myWriter.WriteLine(fp.ReadToEnd())
    'txtBOX.Text = fp.ReadToEnd()
    fp.Close()
    ClientScript.RegisterStartupScript(Me.GetType(), "onclick", "<script language=javascript>window.print();</script>")
   Catch err As Exception
   lblIIP.Text = "File Read Failed. Reason is as follows " & err.ToString()
Finally
End Try

semoga bermanfaat 🙂