Personal Mind of ASEP

Wahh gila siang ini perasaan berad banget dah mata gw…rasanya ada yg narik-narik nih kelopak mata gw buat ditutup, akhirnya tanpa adanya perlawanan yang tangguh gw tertidur dah diatas meja kerja gw…

Eeee…pas lagih enak2 nya gw terlelap terbawa di alam yang di hiasi permata-permata impian, ko serasa ada yang manggil-manggil gw, oi oi oi … katanya, lama lama gw kebangunin juga.. ternya yang manggil-manggil entu bos gede gw, wah wah sedikid malu juga sehhh, tapi ya apah boleh bikin gw dah nguantuk berad heheheh…

‘General – Declaration

Imports System.Data.Odbc

‘ Code

Dim Conn As OdbcConnection
Dim ConnStr As String = “DSN=MyODBCNET”

Try
Conn = New OdbcConnection(ConnStr)
Conn.Open()
MsgBox(“Connected with ” + Conn.DataSource & _
Chr(10) + “Database ” + Conn.Database.ToString & _
Chr(10) + “Driver ” + Conn.Driver.ToString, _
MsgBoxStyle.Information, “Connected”)
Catch ODBCex As OdbcException
MsgBox(“ODBC Error : ” + ODBCex.Message)
Catch ex As Exception
MsgBox(“Error to connecting : ” + ex.Message)
Finally
Conn.Close()
Conn.Dispose()
End Try

‘ Declattion
Imports System.Data.OleDb

‘code

Private Sub btnConnect_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnConnect.Click
Dim Conn As OleDbConnection
Dim connStr As String
connStr = String.Format(“Provider=MySqlProv;” & _
“Location={0};Data Source={1};” & _
“User={2}; Password={3}”, _
txtServer.Text, txtDatabase.Text, _
txtUser.Text, txtPassword.Text)
Try
Conn = New OleDbConnection(connStr)
Conn.Open()
MsgBox(“Connected with ” + Conn.DataSource & _
Chr(10) + “Provider ” + Conn.Provider, _
MsgBoxStyle.Information, “Connected”)
Me.Text = “Connected with ” + Conn.DataSource
Catch ex As Exception
MsgBox(“Error to connecting : ” + ex.Message)
Finally
Conn.Close()
Conn.Dispose()
End Try
End Sub

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 ” & _
“(id_anggota, nama, alamat, jenis_kelamin)” & _
” 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()

‘ 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