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