Naruto shippuuden episode 44 @ 26 January 2008

Kategori : Lain - Lain, Naruto, Download, Anime

Ih males dhe naruto yang ke 44, udah di tunggu2, sampe telat 1 hari dari jadwal terbitnya.. ga tau nya cuman ngobrol doank, kaya drama.. huuffs.. anyway, kalo mau download , nih link nya dibawah… dari naruto central dan reality lapse

download || download

Nambah Record Ke MySql di vb.Net @ 25 January 2008

Kategori : Lain - Lain, Komputer, Programming, Vb.Net

Dim InsertQuery As String Dim Kelamin As String Dim hasil As Integer Dim cmd As MySqlCommand

If rbPria.Checked = True Then Kelamin = rbPria.Text Else Kelamin = rbWanita.Text End If

InsertQuery = “INSERT INTO Anggota ” & _ “(idanggota, nama, alamat, jeniskelamin)” & _ ” Values(’” & txtId.Text & “‘, ” & _ ” ‘” & txtNama.Text & “‘, ” & _ ” ‘” & txtAlamat.Text & “‘, ‘” & Kelamin & “‘)” Try cmd = New MySqlCommand(InsertQuery, Conn) cmd.Connection.Open() ‘ eksekusi pernyataan SQL hasil = cmd.ExecuteNonQuery() ‘ periksa nilai yang dikembalikan If (hasil > 0) Then MessageBox.Show(”Record Berhasil Dimasukkan”, _ “Sukses”, MessageBoxButtons.OK, _ MessageBoxIcon.Information) Clear() End If Catch ex As MySqlException MessageBox.Show(”Failed : ” & ex.Message, “Gagal”, _ MessageBoxButtons.OK, MessageBoxIcon.Error) End Try cmd.Connection.Close() cmd.Dispose()

Dari : Personal Mind Of Asep

Koneksi VB.NET ke MySql di vb.Net @

Kategori : Lain - Lain, Komputer, Programming, Vb.Net

‘ letakkan di bagian paling atas Imports MySql.Data.MySqlClient

‘code
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
‘ Memeriksa apakah objek koneksi masih ada
‘ Jika ada, maka menutup terlebih dahulu
If Not Conn Is Nothing Then Conn.Close()
‘ memasukkan informasi ke variabel
ConnString = “server=localhost;” _
& “uid=tidak_ada;” _
& “pwd=apasaja;” _
& “database=test;”
Try
‘ Membuat objek MySqlConnection melalui
‘ konstruktor dengan parameter string koneksi
Conn = New MySqlConnection(ConnString)
‘ membuka koneksi database
Conn.Open()
MsgBox(“Koneksi ke ” & Conn.DataSource _
& Chr(10) & “Status : ” & Conn.State.ToString(), _
MsgBoxStyle.Information, “Sukses”)
‘ menutup koneksi
Conn.Close()
Catch ex As MySqlException
Select Case ex.Number
Case 0
MessageBox.Show(”Tidak dapat Koneksi ke ” _
& Conn.DataSource, “Koneksi Gagal”, _
MessageBoxButtons.OK, _
MessageBoxIcon.Error)
Case 1045
MessageBox.Show(”Nama user atau password ” & _
” tidak dikenal”, “Login Gagal”, _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Select
Finally
‘ menghapus objek koneksi
Conn.Dispose()
End Try

End Sub ‘ end of Sub Button1_Click

Share Box @ 24 January 2008

Kategori : Lain - Lain, Komputer, Blogsome

Bagi kamu yang mau berbagi file2 gratis, bisa daftar ke box.net, di box.net menyediakan kapasitas sebesar 1GB untuk free account, bisa di upgrade koq kapasitas nya, asal bayar, heheh, contoh nya seperti di blog saya, tanpa perlu registrasi , orang lain juga bisa download, simple and efficiently.. hihiihi..

Test Javascript Lightbox v2.03a @

Kategori : Lain - Lain, Download

lagi nyoba lightbox2.03a nih, wah semakin berat ajah nih blog gw?? tapi bisa juga, yare yare…

Hello world! @ 11 January 2008

Kategori : Lain - Lain

Welcome to your new blog. This is your first post. Edit or delete it, then start blogging!

An email has been sent to you giving you details of how to log in to the administration section. From there you can change the design by clicking on the tab MANAGE and then click on the tab THEMES. If you have any questions, ask them in the forums — we are only too willing to help.