Latihan Pemrograman Visual Database
Latihan Pemrograman Visual Database
Kode :
Imports System.Data.Odbc Public Class Form1 Private Sub BtnConnStr_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnConnStr.Click Dim Conn As OdbcConnection Dim ConnStr As String = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & My.Application.Info.DirectoryPath & "\Mhs.mdb" Try Conn = New OdbcConnection(ConnStr) Conn.Open() MsgBox("Koneksi ke : " & Conn.DataSource & vbCrLf & _ "Database : " & Conn.Database & vbCrLf & _ "Driver : " & Conn.Driver.ToString & vbCrLf & _ "Connection String : " & Conn.ConnectionString, MsgBoxStyle.Information,
"Connected")
Conn.Close() Conn = Nothing Catch ex As Exception MsgBox("ODBC Error : " & ex.Message) End Try End Sub
Private Sub BtnConnStrUsing_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnConnStrUsing.Click Dim ConnStr As String = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & My.Application.Info.DirectoryPath & "\Mhs.mdb" Try Using Conn = New OdbcConnection(ConnStr) Conn.Open() MsgBox("Koneksi ke : " & Conn.DataSource & vbCrLf & _ "Database : " & Conn.Database & vbCrLf & _ "Driver : " & Conn.Driver.ToString & vbCrLf & _
"Connection String : " & Conn.ConnectionString, MsgBoxStyle.Information, "Connected dengan Using") End Using Catch ex As Exception MsgBox("ODBC Error : " & ex.Message) End Try End Sub End Class
LATIHAN 1 database dengan menggunakan koneksi odbc Buat form1 sebagai berikut :
TxtPraktek.Clear() TxtPraktek.Enabled = False BtnSimpan.Enabled = False BtnUpdate.Enabled = False BtnHapus.Enabled = False TxtNIM.Focus() End Sub Private Sub BtnDaftar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDaftar.Click Form2.ShowDialog() TxtNIM.Focus() End Sub Private Sub TxtNIM_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNIM.KeyPress If Not (Asc(e.KeyChar) >= Keys.D0 And Asc(e.KeyChar) <= Keys.D9 Or Asc(e.KeyChar) = Keys.Back) Then e.KeyChar = Chr(Keys.None) End If End Sub Private Sub Nilai_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtTeori.KeyPress, TxtPraktek.KeyPress If Not (Asc(e.KeyChar) >= Keys.D0 And Asc(e.KeyChar) <= Keys.D9 Or Asc(e.KeyChar) = Keys.Back Or e.KeyChar = ",") Then e.KeyChar = Chr(Keys.None) End If End Sub Private Sub TxtNIM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtNIM.TextChanged SQL = "Select * From Nilai Where NIM = '" & TxtNIM.Text & "'" Using Cmd As New OdbcCommand(SQL, Conn) Using Reader = Cmd.ExecuteReader() RecCount = 0 While Reader.Read() RecCount += 1 End While End Using Using Reader = Cmd.ExecuteReader() If RecCount >= 1 Then TxtNama.Enabled = True TxtTeori.Enabled = True TxtPraktek.Enabled = True BtnSimpan.Enabled = False BtnUpdate.Enabled = True BtnHapus.Enabled = True While Reader.Read() TxtNama.Text = Reader.GetString(1) TxtTeori.Text = Reader.GetString(2) TxtPraktek.Text = Reader.GetString(3) End While ElseIf TxtNIM.Text.Length > 0 Then TxtNama.Clear() TxtNama.Enabled = True TxtTeori.Clear() TxtTeori.Enabled = True
TxtPraktek.Clear() TxtPraktek.Enabled = True BtnSimpan.Enabled = True BtnUpdate.Enabled = False BtnHapus.Enabled = False Else TxtNama.Clear() TxtNama.Enabled = False TxtTeori.Clear() TxtTeori.Enabled = False TxtPraktek.Clear() TxtPraktek.Enabled = False BtnSimpan.Enabled = False BtnUpdate.Enabled = False BtnHapus.Enabled = False End If End Using End Using End Sub Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click SQL = "Insert Into Nilai Values ('" & TxtNIM.Text & _ "', '" & TxtNama.Text & "', '" & Val(TxtTeori.Text) & _ "', '" & Val(TxtPraktek.Text) & "')" Using Cmd As New OdbcCommand(SQL, Conn) RecCount = Cmd.ExecuteNonQuery() If RecCount > 0 Then BtnBaru_Click(New System.Object, New System.EventArgs) Else MessageBox.Show("Data Tidak Dapat Di-Simpan ... !!!", "Data Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End If End Using End Sub Private Sub BtnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUpdate.Click SQL = "Update Nilai Set Nama = '" & TxtNama.Text & _ "', Teori = '" & Val(TxtTeori.Text) & "', Praktek = '" & _ Val(TxtPraktek.Text) & "' Where NIM = '" & TxtNIM.Text & "'" Using Cmd As New OdbcCommand(SQL, Conn) RecCount = Cmd.ExecuteNonQuery() If RecCount > 0 Then BtnBaru_Click(New System.Object, New System.EventArgs) Else MessageBox.Show("Data Tidak Dapat Di-Update ... !!!", "Data Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End If End Using End Sub Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click Dim Hasil As DialogResult SQL = "Delete From Nilai Where NIM = '" & TxtNIM.Text & "'" Using Cmd As New OdbcCommand(SQL, Conn) Hasil = MessageBox.Show("Apakah Anda Yakin Menghapus NIM = " & _
TxtNIM.Text & " ?", "Hapus Data", MessageBoxButtons.YesNo, _ MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) If Hasil = Windows.Forms.DialogResult.Yes Then RecCount = Cmd.ExecuteNonQuery() If RecCount > 0 Then BtnBaru_Click(New System.Object, New System.EventArgs) Else MessageBox.Show("Data Tidak Dapat Di-Hapus ... !!!", "Data Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End If End If End Using End Sub End Class