Modul Praktek Visual Basic Net Database

RPL Center 2011 – SMK Negeri 10 Semarang

�� . �� . �� . �� 1. �� A�� 2003 / 2007 2. �� 1 �� .�� 3. �� B.�� . A��. 4. �� ( �� ). 5. �� ( �� ) 6. �� ( �� ) 7. �� B�� ( �� ) 8. �� ( �� ) 9. �� ( �� ) 10. �� ( �� ).

�. �� .1. �� . �� 200� 1. B�� A�� 2007 2. B�� 10.�� 3. B�� 1 �� 4. �� !

5. �� 2 �� !

��

��


�.2. �� 1 �� .�� 1. B�� B.�� 2. B�� 10 3. �� !

�� 1�7

�� 1 �7

��1 B�� 1�6 ��B�� 1�2 ��8 4. �� A�� .

��

��


�.3. �� Imports System.Data Imports System.Data.OleDb Public Class Form1 Dim Database As OleDbConnection Dim Tabel As OleDbDataAdapter Dim Data As DataSet Dim Record As New BindingSource Sub Koneksi() Try 'pakai ms access 2003 'Database = New ‘OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data ‘Source=databasesmk102003.mdb") 'pakai ms access 2007 Database = New OleDbConnection("Provider=Microsoft Office 12.0 Access Database Engine OLE DB Provider;Data Source = databasesmk10.accdb") Database.Open() Catch ex As Exception MsgBox(ex.ToString()) End Try End Sub

�� , �� Sub Data_Record() Try Tabel = New Data.OleDb.OleDbDataAdapter("select * from tblsiswa", Database) Data = New DataSet Tabel.Fill(Data) Record.DataSource = Data Record.DataMember = Data.Tables(0).ToString() DataGridView1.DataSource = Record DataGridView1.Columns(0).Width = 50 DataGridView1.Columns(1).Width = 90 DataGridView1.Columns(2).Width = 50 DataGridView1.Columns(3).Width = 50 DataGridView1.Columns(4).Width = 150 DataGridView1.Columns(5).Width = 75 DataGridView1.Columns(6).Width = 80 Catch ex As Exception MsgBox(ex.ToString()) End Try End Sub Sub bersih() TextBox1.Text TextBox2.Text TextBox3.Text TextBox4.Text

= = = =

"" "" "" ""

��

��


TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" RadioButton1.Checked = False RadioButton2.Checked = False TextBox1.Focus() Button1.Enabled = True Button2.Enabled = False Button3.Enabled = False Call Koneksi() Call Data_Record() End Sub

�.4. �� Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim DML As New OleDbCommand DML.Connection = Database DML.CommandType = CommandType.Text DML.CommandText = "insert into tblsiswa values ( " & _ TextBox1.Text & ",'" & TextBox2.Text & "','" & TextBox3.Text & _ "', '" & TextBox4.Text & "', '" & TextBox5.Text & "','" & _ TextBox6.Text & "', '" & TextBox7.Text & "' )" DML.ExecuteNonQuery() MsgBox("Data Telah Disimpan") Call bersih() Catch ex As Exception MsgBox(ex.ToString()) End Try

��

�.5. �� Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Try Dim DML As New OleDbCommand DML.Connection = Database DML.CommandType = CommandType.Text DML.CommandText = "Update tblsiswa set nama = '" & TextBox2.Text & "', kelas ='" & TextBox3.Text & "', jurusan = '" & TextBox4.Text & "', alamat = '" & TextBox5.Text & "', kelamin = '" & TextBox6.Text & "', tgl_lahir = '" & TextBox7.Text & "' where nis = " & TextBox1.Text & "" DML.ExecuteNonQuery() MsgBox("Data Telah Diubah") Call bersih() Catch ex As Exception MsgBox(ex.ToString()) End Try End Sub

��

��


�.�. �� Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Try Dim DML As New OleDbCommand DML.Connection = Database DML.CommandType = CommandType.Text DML.CommandText = "Delete from tblsiswa where nis = " & TextBox1.Text & "" DML.ExecuteNonQuery() MsgBox("Data Telah Dihapus") Call bersih() Catch ex As Exception MsgBox(ex.ToString()) End Try End Sub

�.�. �� Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Call bersih() End Sub

�.�. �� Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click TextBox8.Focus() End Sub

Private Sub RadioButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton2.Click TextBox8.Focus() End Sub Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged Try If RadioButton1.Checked = True Then Tabel = New Data.OleDb.OleDbDataAdapter("select * from tblsiswa where nis like '%" & TextBox8.Text & "%'", Database) Data = New DataSet Tabel.Fill(Data) Record.DataSource = Data Record.DataMember = Data.Tables(0).ToString() DataGridView1.DataSource = Record DataGridView1.Columns(0).Width = 180 ElseIf RadioButton2.Checked = True Then Tabel = New Data.OleDb.OleDbDataAdapter("select * from tblsiswa where nama like '%" & TextBox8.Text & "%'", Database)

��

��


Data = New DataSet Tabel.Fill(Data) Record.DataSource = Data Record.DataMember = Data.Tables(0).ToString() DataGridView1.DataSource = Record DataGridView1.Columns(0).Width = 180 End If Catch ex As Exception MsgBox(ex.ToString()) End Try End Sub

�.�. �� 1. �� .�� , ��: �� ��  A��  �� . �� , �� .��

��

��

��


��  ��

A�� , ��  ��

��  >>

��

��


��  ��

��

��

��

��


�� .

�.10. �� Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Form2.CrystalReportViewer1.RefreshReport() Form2.CrystalReportViewer1.PrintReport() End Sub

%%% ��A�A� ��BA %%%

��

��


��

��

Modul Praktek Visual Basic Net Database

Recommend Documents