Assalammualaikum pada postingan kali ini gue bakal bikin program
di Visual Studio dan program ini akan terhubung ke database (Ms.Access),
Program ini tentang aplikasi untuk administrator perpustakaan bukan itu saja si
di program ini juga bisa dipakai oleh pengunjung untuk melihat dimata letak
buku yg mereka ingin baca atau pinjam, Cukup penjelasan dan basa-basinya kita
langsung saja ke pembuataannya oke.
Pertama kalian harus membuat beberapa form disini gue
membuat 11 form dan yg akan terhubung dengan database ada 3 form, oke pertama
buat form seperti ini :
Oke desain sudah sekarang kita buat databasenya dahulu, Disini gue akan buat satu database dan dalam database itu terdiri dari 3 table (table member, table peminjam, table buku) kegunaan table itu berbeda beda sesuai dengan namanya ga usah dijelasin lagi kan kegunaan tablenya udah jelas si dari namanya hehe, Oke buka Ms.Accessnya -> new -> Desain view lalu buat seperti ini :
Oke gimana ? udah kan ? Kalo sudah pilih data sheet view lalu isikan database tadi seperti ini :
Gimana ? Lancar ? Belom pusing kan ? Belom lah ya source codenya kan belom hehe, Lanjutin ya desain sudah, database sudah, sekarang kita ke source code deh. source code yg gue kasih bakal ngurut kaya desain form diatas, Oke nih Source codenya :
Form 1
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
form2.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim x = MsgBox("Are You Sure?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Confirmation")
If x = vbYes Then
Me.Close()
form2.Close()
Form3.Close()
'End
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form4.Show()
Me.Hide()
End Sub
End Class
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
form2.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim x = MsgBox("Are You Sure?", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "Confirmation")
If x = vbYes Then
Me.Close()
form2.Close()
Form3.Close()
'End
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form4.Show()
Me.Hide()
End Sub
End Class
Form 2
Public Class form2
Dim id, pw
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form1.Show()
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
id = TextBox1.Text = "admin"
pw = TextBox2.Text = "123456"
If id = True And pw = True Then
Form3.Show()
Me.Close()
Else
id = False Or pw = False
MessageBox.Show("ID ATAU PASSWORD YANG ANDA MASUKAN SALAH !!", "Warning", MessageBoxButtons.OK)
TextBox1.Focus()
TextBox1.Clear()
TextBox2.Clear()
End If
End Sub
End Class
Dim id, pw
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form1.Show()
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
id = TextBox1.Text = "admin"
pw = TextBox2.Text = "123456"
If id = True And pw = True Then
Form3.Show()
Me.Close()
Else
id = False Or pw = False
MessageBox.Show("ID ATAU PASSWORD YANG ANDA MASUKAN SALAH !!", "Warning", MessageBoxButtons.OK)
TextBox1.Focus()
TextBox1.Clear()
TextBox2.Clear()
End If
End Sub
End Class
Form 3
Public Class Form3
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
MessageBox.Show("See You Next Time", " ", MessageBoxButtons.OK)
Me.Close()
Form1.Show()
'End
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form10.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form11.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Form7.Show()
Me.Hide()
End Sub
End Class
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
MessageBox.Show("See You Next Time", " ", MessageBoxButtons.OK)
Me.Close()
Form1.Show()
'End
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form10.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form11.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Form7.Show()
Me.Hide()
End Sub
End Class
Form 4
Public Class Form4
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Focus()
End Sub
Private Sub RadioButton6_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton6.CheckedChanged
Me.Close()
Form1.Show()
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
Me.Close()
Form5.Show()
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
Me.Close()
Form6.Show()
End Sub
Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged
Me.Close()
Form9.Show()
End Sub
Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
Me.Close()
Form8.Show()
End Sub
End Class
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Focus()
End Sub
Private Sub RadioButton6_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton6.CheckedChanged
Me.Close()
Form1.Show()
End Sub
Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
Me.Close()
Form5.Show()
End Sub
Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
Me.Close()
Form6.Show()
End Sub
Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged
Me.Close()
Form9.Show()
End Sub
Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
Me.Close()
Form8.Show()
End Sub
End Class
Form 5
Public Class Form5
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form4.Show()
End Sub
End Class
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form4.Show()
End Sub
End Class
Form 6
Public Class Form6
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form4.Show()
End Sub
End Class
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form4.Show()
End Sub
End Class
Form 7
Public Class Form7
Dim simpan As String
Private Sub jalankansql(ByVal sQl As String)
konek()
Dim objcmd As New OleDb.OleDbCommand
Try
objcmd.Connection = conn
objcmd.CommandType = CommandType.Text
objcmd.CommandText = sQl
objcmd.ExecuteNonQuery()
objcmd.Dispose()
MessageBox.Show("Data Berhasil Disimpan", " ", MessageBoxButtons.OK)
Catch ex As Exception
MessageBox.Show("Tidak Bisa Menyimpan Data ke Database", " ", MessageBoxButtons.OK)
End Try
End Sub
Private Sub ShowData()
konek()
Dim str As String = "Select Kode_Buku as [Kode Buku], Tipe_Buku as [Tipe Buku], Nama_Buku as [Nama Buku] from table_buku ORDER By Kode_Buku"
DA = New OleDb.OleDbDataAdapter(str, conn)
DS = New DataSet
DS.Clear()
DA.Fill(DS, "table_buku")
DataGridView1.DataSource = DS.Tables("table_buku")
DA.Dispose()
DS.Dispose()
conn.Close()
End Sub
Public Sub clear()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
ShowData()
End Sub
Private Sub isiTextBox()
Dim i As Integer
i = DataGridView1.CurrentRow.Index
TextBox3.Text = DataGridView1.Item(0, i).Value
TextBox1.Text = DataGridView1.Item(1, i).Value
TextBox2.Text = DataGridView1.Item(2, i).Value
End Sub
Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("KMK")
ComboBox1.Items.Add("NVL")
ComboBox1.Items.Add("SJH")
ComboBox1.Items.Add("HRR")
ShowData()
konek()
isiTextBox()
clear()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.Text
Case "KMK"
TextBox1.Text = "Komik"
TextBox3.Text = "KMK"
Case "NVL"
TextBox1.Text = "Novel"
TextBox3.Text = "NVL"
Case "SJH"
TextBox1.Text = "Sejarah"
TextBox3.Text = "SJH"
Case "HRR"
TextBox1.Text = "Horror"
TextBox3.Text = "HRR"
End Select
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form3.Show()
End Sub
Private Sub DataGridView1_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
isiTextBox()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
conn.Close()
conn.Open()
If TextBox3.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Then
MessageBox.Show("Data Belum Lengkap", " ", MessageBoxButtons.OK)
Exit Sub
End If
simpan = "INSERT INTO table_buku (Kode_Buku, Tipe_Buku, Nama_Buku) VALUES ('" & TextBox3.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "') "
jalankansql(simpan)
ShowData()
clear()
Exit Sub
End Sub
End Class
Dim simpan As String
Private Sub jalankansql(ByVal sQl As String)
konek()
Dim objcmd As New OleDb.OleDbCommand
Try
objcmd.Connection = conn
objcmd.CommandType = CommandType.Text
objcmd.CommandText = sQl
objcmd.ExecuteNonQuery()
objcmd.Dispose()
MessageBox.Show("Data Berhasil Disimpan", " ", MessageBoxButtons.OK)
Catch ex As Exception
MessageBox.Show("Tidak Bisa Menyimpan Data ke Database", " ", MessageBoxButtons.OK)
End Try
End Sub
Private Sub ShowData()
konek()
Dim str As String = "Select Kode_Buku as [Kode Buku], Tipe_Buku as [Tipe Buku], Nama_Buku as [Nama Buku] from table_buku ORDER By Kode_Buku"
DA = New OleDb.OleDbDataAdapter(str, conn)
DS = New DataSet
DS.Clear()
DA.Fill(DS, "table_buku")
DataGridView1.DataSource = DS.Tables("table_buku")
DA.Dispose()
DS.Dispose()
conn.Close()
End Sub
Public Sub clear()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
ShowData()
End Sub
Private Sub isiTextBox()
Dim i As Integer
i = DataGridView1.CurrentRow.Index
TextBox3.Text = DataGridView1.Item(0, i).Value
TextBox1.Text = DataGridView1.Item(1, i).Value
TextBox2.Text = DataGridView1.Item(2, i).Value
End Sub
Private Sub Form7_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("KMK")
ComboBox1.Items.Add("NVL")
ComboBox1.Items.Add("SJH")
ComboBox1.Items.Add("HRR")
ShowData()
konek()
isiTextBox()
clear()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.Text
Case "KMK"
TextBox1.Text = "Komik"
TextBox3.Text = "KMK"
Case "NVL"
TextBox1.Text = "Novel"
TextBox3.Text = "NVL"
Case "SJH"
TextBox1.Text = "Sejarah"
TextBox3.Text = "SJH"
Case "HRR"
TextBox1.Text = "Horror"
TextBox3.Text = "HRR"
End Select
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form3.Show()
End Sub
Private Sub DataGridView1_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
isiTextBox()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
conn.Close()
conn.Open()
If TextBox3.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Then
MessageBox.Show("Data Belum Lengkap", " ", MessageBoxButtons.OK)
Exit Sub
End If
simpan = "INSERT INTO table_buku (Kode_Buku, Tipe_Buku, Nama_Buku) VALUES ('" & TextBox3.Text & "','" & TextBox1.Text & "','" & TextBox2.Text & "') "
jalankansql(simpan)
ShowData()
clear()
Exit Sub
End Sub
End Class
Form 8
Public Class Form8
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form4.Show()
End Sub
End Class
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form4.Show()
End Sub
End Class
Form 9
Public Class Form9
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form4.Show()
End Sub
End Class
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form4.Show()
End Sub
End Class
Form 10
Imports System.Data.OleDb
Public Class Form10
Dim simpan As String
Private Sub jalankansql(ByVal sQl As String)
konek()
Dim objcmd As New OleDb.OleDbCommand
Try
objcmd.Connection = conn
objcmd.CommandType = CommandType.Text
objcmd.CommandText = sQl
objcmd.ExecuteNonQuery()
objcmd.Dispose()
MessageBox.Show("Data Berhasil Disimpan", " ", MessageBoxButtons.OK)
Catch ex As Exception
MessageBox.Show("Tidak Bisa Menyimpan Data ke Database", " ", MessageBoxButtons.OK)
End Try
End Sub
Private Sub ShowData()
konek()
Dim str As String = "Select ID_Peminjam as [ID Peminjam], Nama_Peminjam as [Nama Peminjam], Tanggal_Peminjaman as [Tanggal Peminjaman], Tanggal_Pengembalian as [Tanggal Pengembalian] from table_peminjam ORDER By ID_Peminjam"
DA = New OleDb.OleDbDataAdapter(str, conn)
DS = New DataSet
DS.Clear()
DA.Fill(DS, "table_peminjam")
DataGridView1.DataSource = DS.Tables("table_peminjam")
DA.Dispose()
DS.Dispose()
conn.Close()
End Sub
Public Sub clear()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
ComboBox5.Text = ""
ComboBox6.Text = ""
ShowData()
End Sub
Private Sub isiTextBox()
Dim i As Integer
i = DataGridView1.CurrentRow.Index
TextBox1.Text = DataGridView1.Item(0, i).Value
TextBox2.Text = DataGridView1.Item(1, i).Value
TextBox4.Text = DataGridView1.Item(2, i).Value
TextBox5.Text = DataGridView1.Item(3, i).Value
End Sub
Private Sub Form10_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For a = 1 To 31
ComboBox1.Items.Add(a)
ComboBox6.Items.Add(a)
Next
For b = 1 To 12
ComboBox2.Items.Add(b)
ComboBox5.Items.Add(b)
Next
For c = 2000 To 2020
ComboBox3.Items.Add(c)
ComboBox4.Items.Add(c)
Next
ShowData()
konek()
isiTextBox()
clear()
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case ComboBox2.Text
Case 1
TextBox7.Text = "January"
Case 2
TextBox7.Text = "February"
Case 3
TextBox7.Text = "March"
Case 4
TextBox7.Text = "April"
Case 5
TextBox7.Text = "May"
Case 6
TextBox7.Text = "June"
Case 7
TextBox7.Text = "July"
Case 8
TextBox7.Text = "August"
Case 9
TextBox7.Text = "September"
Case 10
TextBox7.Text = "October"
Case 11
TextBox7.Text = "November"
Case 12
TextBox7.Text = "December"
End Select
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.Text
Case 1
TextBox6.Text = "1"
Case 2
TextBox6.Text = "2"
Case 3
TextBox6.Text = "3"
Case 4
TextBox6.Text = "4"
Case 5
TextBox6.Text = "5"
Case 6
TextBox6.Text = "6"
Case 7
TextBox6.Text = "7"
Case 8
TextBox6.Text = "8"
Case 9
TextBox6.Text = "9"
Case 10
TextBox6.Text = "10"
Case 11
TextBox6.Text = "11"
Case 12
TextBox6.Text = "12"
Case 13
TextBox6.Text = "13"
Case 14
TextBox6.Text = "14"
Case 15
TextBox6.Text = "15"
Case 16
TextBox6.Text = "16"
Case 17
TextBox6.Text = "17"
Case 18
TextBox6.Text = "18"
Case 19
TextBox6.Text = "19"
Case 20
TextBox6.Text = "20"
Case 21
TextBox6.Text = "21"
Case 22
TextBox6.Text = "22"
Case 23
TextBox6.Text = "23"
Case 24
TextBox6.Text = "24"
Case 25
TextBox6.Text = "25"
Case 26
TextBox6.Text = "26"
Case 27
TextBox6.Text = "27"
Case 28
TextBox6.Text = "28"
Case 29
TextBox6.Text = "29"
Case 30
TextBox6.Text = "30"
Case 31
TextBox6.Text = "31"
End Select
End Sub
Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
Select Case ComboBox3.Text
Case 2001
TextBox8.Text = "2001"
Case 2002
TextBox8.Text = "2002"
Case 2003
TextBox8.Text = "2003"
Case 2004
TextBox8.Text = "2004"
Case 2005
TextBox8.Text = "2005"
Case 2006
TextBox8.Text = "2006"
Case 2007
TextBox8.Text = "2007"
Case 2008
TextBox8.Text = "2008"
Case 2009
TextBox8.Text = "2009"
Case 2010
TextBox8.Text = "2010"
Case 2011
TextBox8.Text = "2011"
Case 2012
TextBox8.Text = "2012"
Case 2013
TextBox8.Text = "2013"
Case 2014
TextBox8.Text = "2014"
Case 2015
TextBox8.Text = "2015"
Case 2016
TextBox8.Text = "2016"
Case 2017
TextBox8.Text = "2017"
Case 2018
TextBox8.Text = "2018"
Case 2019
TextBox8.Text = "2019"
Case 2020
TextBox8.Text = "2020"
End Select
TextBox4.Text = TextBox6.Text + "-" + Strings.Left(TextBox7.Text, 3) + "-" + TextBox8.Text
End Sub
Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
Select Case ComboBox4.Text
Case 2001
TextBox11.Text = "2001"
Case 2002
TextBox11.Text = "2002"
Case 2003
TextBox11.Text = "2003"
Case 2004
TextBox11.Text = "2004"
Case 2005
TextBox11.Text = "2005"
Case 2006
TextBox11.Text = "2006"
Case 2007
TextBox11.Text = "2007"
Case 2008
TextBox11.Text = "2008"
Case 2009
TextBox11.Text = "2009"
Case 2010
TextBox11.Text = "2010"
Case 2011
TextBox11.Text = "2011"
Case 2012
TextBox11.Text = "2012"
Case 2013
TextBox11.Text = "2013"
Case 2014
TextBox11.Text = "2014"
Case 2015
TextBox11.Text = "2015"
Case 2016
TextBox11.Text = "2016"
Case 2017
TextBox11.Text = "2017"
Case 2018
TextBox11.Text = "2018"
Case 2019
TextBox11.Text = "2019"
Case 2020
TextBox11.Text = "2020"
End Select
TextBox5.Text = TextBox9.Text + "-" + Strings.Left(TextBox10.Text, 3) + "-" + TextBox11.Text
End Sub
Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
Select Case ComboBox5.Text
Case 1
TextBox10.Text = "January"
Case 2
TextBox10.Text = "February"
Case 3
TextBox10.Text = "March"
Case 4
TextBox10.Text = "April"
Case 5
TextBox10.Text = "May"
Case 6
TextBox10.Text = "June"
Case 7
TextBox10.Text = "July"
Case 8
TextBox10.Text = "August"
Case 9
TextBox10.Text = "September"
Case 10
TextBox10.Text = "October"
Case 11
TextBox10.Text = "November"
Case 12
TextBox10.Text = "December"
End Select
End Sub
Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
Select Case ComboBox6.Text
Case 1
TextBox9.Text = "1"
Case 2
TextBox9.Text = "2"
Case 3
TextBox9.Text = "3"
Case 4
TextBox9.Text = "4"
Case 5
TextBox9.Text = "5"
Case 6
TextBox9.Text = "6"
Case 7
TextBox9.Text = "7"
Case 8
TextBox9.Text = "8"
Case 9
TextBox9.Text = "9"
Case 10
TextBox9.Text = "10"
Case 11
TextBox9.Text = "11"
Case 12
TextBox9.Text = "12"
Case 13
TextBox9.Text = "13"
Case 14
TextBox9.Text = "14"
Case 15
TextBox9.Text = "15"
Case 16
TextBox9.Text = "16"
Case 17
TextBox9.Text = "17"
Case 18
TextBox9.Text = "18"
Case 19
TextBox9.Text = "19"
Case 20
TextBox9.Text = "20"
Case 21
TextBox9.Text = "21"
Case 22
TextBox9.Text = "22"
Case 23
TextBox9.Text = "23"
Case 24
TextBox9.Text = "24"
Case 25
TextBox9.Text = "25"
Case 26
TextBox9.Text = "26"
Case 27
TextBox9.Text = "27"
Case 28
TextBox9.Text = "28"
Case 29
TextBox9.Text = "29"
Case 30
TextBox9.Text = "30"
Case 31
TextBox9.Text = "31"
End Select
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form3.Show()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
conn.Close()
conn.Open()
If TextBox2.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
MessageBox.Show("Data Belum Lengkap", " ", MessageBoxButtons.OK)
Exit Sub
End If
simpan = "INSERT INTO table_peminjam (Nama_Peminjam, Tanggal_Peminjaman, Tanggal_Pengembalian) VALUES ('" & TextBox2.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "') "
jalankansql(simpan)
ShowData()
clear()
Exit Sub
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim hapussql As String
Dim pesan
pesan = MsgBox("Apakah Anda Yakin Akan Menghapus ID_Peminjam " + TextBox1.Text + " ? ", vbExclamation + vbYesNo, "Attention!")
If pesan = vbNo Then Exit Sub
hapussql = "DELETE FROM table_peminjam WHERE ID_Peminjam = " & TextBox1.Text & ""
jalankansql(hapussql)
Me.Cursor = Cursors.WaitCursor
clear()
ShowData()
Me.Cursor = Cursors.Default
End Sub
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
isiTextBox()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim x As String = TextBox1.Text
conn.Close()
conn.Open()
CMD = New OleDbCommand("SELECT * FROM table_peminjam where ID_Peminjam like '%" + x + "%'", conn)
RD = CMD.ExecuteReader
RD.Read()
If RD.HasRows Then
DA = New OleDbDataAdapter("select * from table_peminjam where ID_Peminjam like '%" + x + "%'", conn)
DS = New DataSet
DA.Fill(DS, "Ketemu")
DataGridView1.DataSource = DS.Tables("Ketemu")
DataGridView1.ReadOnly = True
TextBox1.Text = ""
TextBox1.Focus()
Else
TextBox1.Text = "Data Tidak Ada"
TextBox1.Text = ""
TextBox1.Focus()
End If
RD.Close()
End Sub
End Class
Public Class Form10
Dim simpan As String
Private Sub jalankansql(ByVal sQl As String)
konek()
Dim objcmd As New OleDb.OleDbCommand
Try
objcmd.Connection = conn
objcmd.CommandType = CommandType.Text
objcmd.CommandText = sQl
objcmd.ExecuteNonQuery()
objcmd.Dispose()
MessageBox.Show("Data Berhasil Disimpan", " ", MessageBoxButtons.OK)
Catch ex As Exception
MessageBox.Show("Tidak Bisa Menyimpan Data ke Database", " ", MessageBoxButtons.OK)
End Try
End Sub
Private Sub ShowData()
konek()
Dim str As String = "Select ID_Peminjam as [ID Peminjam], Nama_Peminjam as [Nama Peminjam], Tanggal_Peminjaman as [Tanggal Peminjaman], Tanggal_Pengembalian as [Tanggal Pengembalian] from table_peminjam ORDER By ID_Peminjam"
DA = New OleDb.OleDbDataAdapter(str, conn)
DS = New DataSet
DS.Clear()
DA.Fill(DS, "table_peminjam")
DataGridView1.DataSource = DS.Tables("table_peminjam")
DA.Dispose()
DS.Dispose()
conn.Close()
End Sub
Public Sub clear()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
ComboBox5.Text = ""
ComboBox6.Text = ""
ShowData()
End Sub
Private Sub isiTextBox()
Dim i As Integer
i = DataGridView1.CurrentRow.Index
TextBox1.Text = DataGridView1.Item(0, i).Value
TextBox2.Text = DataGridView1.Item(1, i).Value
TextBox4.Text = DataGridView1.Item(2, i).Value
TextBox5.Text = DataGridView1.Item(3, i).Value
End Sub
Private Sub Form10_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For a = 1 To 31
ComboBox1.Items.Add(a)
ComboBox6.Items.Add(a)
Next
For b = 1 To 12
ComboBox2.Items.Add(b)
ComboBox5.Items.Add(b)
Next
For c = 2000 To 2020
ComboBox3.Items.Add(c)
ComboBox4.Items.Add(c)
Next
ShowData()
konek()
isiTextBox()
clear()
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
Select Case ComboBox2.Text
Case 1
TextBox7.Text = "January"
Case 2
TextBox7.Text = "February"
Case 3
TextBox7.Text = "March"
Case 4
TextBox7.Text = "April"
Case 5
TextBox7.Text = "May"
Case 6
TextBox7.Text = "June"
Case 7
TextBox7.Text = "July"
Case 8
TextBox7.Text = "August"
Case 9
TextBox7.Text = "September"
Case 10
TextBox7.Text = "October"
Case 11
TextBox7.Text = "November"
Case 12
TextBox7.Text = "December"
End Select
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case ComboBox1.Text
Case 1
TextBox6.Text = "1"
Case 2
TextBox6.Text = "2"
Case 3
TextBox6.Text = "3"
Case 4
TextBox6.Text = "4"
Case 5
TextBox6.Text = "5"
Case 6
TextBox6.Text = "6"
Case 7
TextBox6.Text = "7"
Case 8
TextBox6.Text = "8"
Case 9
TextBox6.Text = "9"
Case 10
TextBox6.Text = "10"
Case 11
TextBox6.Text = "11"
Case 12
TextBox6.Text = "12"
Case 13
TextBox6.Text = "13"
Case 14
TextBox6.Text = "14"
Case 15
TextBox6.Text = "15"
Case 16
TextBox6.Text = "16"
Case 17
TextBox6.Text = "17"
Case 18
TextBox6.Text = "18"
Case 19
TextBox6.Text = "19"
Case 20
TextBox6.Text = "20"
Case 21
TextBox6.Text = "21"
Case 22
TextBox6.Text = "22"
Case 23
TextBox6.Text = "23"
Case 24
TextBox6.Text = "24"
Case 25
TextBox6.Text = "25"
Case 26
TextBox6.Text = "26"
Case 27
TextBox6.Text = "27"
Case 28
TextBox6.Text = "28"
Case 29
TextBox6.Text = "29"
Case 30
TextBox6.Text = "30"
Case 31
TextBox6.Text = "31"
End Select
End Sub
Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
Select Case ComboBox3.Text
Case 2001
TextBox8.Text = "2001"
Case 2002
TextBox8.Text = "2002"
Case 2003
TextBox8.Text = "2003"
Case 2004
TextBox8.Text = "2004"
Case 2005
TextBox8.Text = "2005"
Case 2006
TextBox8.Text = "2006"
Case 2007
TextBox8.Text = "2007"
Case 2008
TextBox8.Text = "2008"
Case 2009
TextBox8.Text = "2009"
Case 2010
TextBox8.Text = "2010"
Case 2011
TextBox8.Text = "2011"
Case 2012
TextBox8.Text = "2012"
Case 2013
TextBox8.Text = "2013"
Case 2014
TextBox8.Text = "2014"
Case 2015
TextBox8.Text = "2015"
Case 2016
TextBox8.Text = "2016"
Case 2017
TextBox8.Text = "2017"
Case 2018
TextBox8.Text = "2018"
Case 2019
TextBox8.Text = "2019"
Case 2020
TextBox8.Text = "2020"
End Select
TextBox4.Text = TextBox6.Text + "-" + Strings.Left(TextBox7.Text, 3) + "-" + TextBox8.Text
End Sub
Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
Select Case ComboBox4.Text
Case 2001
TextBox11.Text = "2001"
Case 2002
TextBox11.Text = "2002"
Case 2003
TextBox11.Text = "2003"
Case 2004
TextBox11.Text = "2004"
Case 2005
TextBox11.Text = "2005"
Case 2006
TextBox11.Text = "2006"
Case 2007
TextBox11.Text = "2007"
Case 2008
TextBox11.Text = "2008"
Case 2009
TextBox11.Text = "2009"
Case 2010
TextBox11.Text = "2010"
Case 2011
TextBox11.Text = "2011"
Case 2012
TextBox11.Text = "2012"
Case 2013
TextBox11.Text = "2013"
Case 2014
TextBox11.Text = "2014"
Case 2015
TextBox11.Text = "2015"
Case 2016
TextBox11.Text = "2016"
Case 2017
TextBox11.Text = "2017"
Case 2018
TextBox11.Text = "2018"
Case 2019
TextBox11.Text = "2019"
Case 2020
TextBox11.Text = "2020"
End Select
TextBox5.Text = TextBox9.Text + "-" + Strings.Left(TextBox10.Text, 3) + "-" + TextBox11.Text
End Sub
Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedIndexChanged
Select Case ComboBox5.Text
Case 1
TextBox10.Text = "January"
Case 2
TextBox10.Text = "February"
Case 3
TextBox10.Text = "March"
Case 4
TextBox10.Text = "April"
Case 5
TextBox10.Text = "May"
Case 6
TextBox10.Text = "June"
Case 7
TextBox10.Text = "July"
Case 8
TextBox10.Text = "August"
Case 9
TextBox10.Text = "September"
Case 10
TextBox10.Text = "October"
Case 11
TextBox10.Text = "November"
Case 12
TextBox10.Text = "December"
End Select
End Sub
Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedIndexChanged
Select Case ComboBox6.Text
Case 1
TextBox9.Text = "1"
Case 2
TextBox9.Text = "2"
Case 3
TextBox9.Text = "3"
Case 4
TextBox9.Text = "4"
Case 5
TextBox9.Text = "5"
Case 6
TextBox9.Text = "6"
Case 7
TextBox9.Text = "7"
Case 8
TextBox9.Text = "8"
Case 9
TextBox9.Text = "9"
Case 10
TextBox9.Text = "10"
Case 11
TextBox9.Text = "11"
Case 12
TextBox9.Text = "12"
Case 13
TextBox9.Text = "13"
Case 14
TextBox9.Text = "14"
Case 15
TextBox9.Text = "15"
Case 16
TextBox9.Text = "16"
Case 17
TextBox9.Text = "17"
Case 18
TextBox9.Text = "18"
Case 19
TextBox9.Text = "19"
Case 20
TextBox9.Text = "20"
Case 21
TextBox9.Text = "21"
Case 22
TextBox9.Text = "22"
Case 23
TextBox9.Text = "23"
Case 24
TextBox9.Text = "24"
Case 25
TextBox9.Text = "25"
Case 26
TextBox9.Text = "26"
Case 27
TextBox9.Text = "27"
Case 28
TextBox9.Text = "28"
Case 29
TextBox9.Text = "29"
Case 30
TextBox9.Text = "30"
Case 31
TextBox9.Text = "31"
End Select
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form3.Show()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
conn.Close()
conn.Open()
If TextBox2.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
MessageBox.Show("Data Belum Lengkap", " ", MessageBoxButtons.OK)
Exit Sub
End If
simpan = "INSERT INTO table_peminjam (Nama_Peminjam, Tanggal_Peminjaman, Tanggal_Pengembalian) VALUES ('" & TextBox2.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "') "
jalankansql(simpan)
ShowData()
clear()
Exit Sub
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim hapussql As String
Dim pesan
pesan = MsgBox("Apakah Anda Yakin Akan Menghapus ID_Peminjam " + TextBox1.Text + " ? ", vbExclamation + vbYesNo, "Attention!")
If pesan = vbNo Then Exit Sub
hapussql = "DELETE FROM table_peminjam WHERE ID_Peminjam = " & TextBox1.Text & ""
jalankansql(hapussql)
Me.Cursor = Cursors.WaitCursor
clear()
ShowData()
Me.Cursor = Cursors.Default
End Sub
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
isiTextBox()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim x As String = TextBox1.Text
conn.Close()
conn.Open()
CMD = New OleDbCommand("SELECT * FROM table_peminjam where ID_Peminjam like '%" + x + "%'", conn)
RD = CMD.ExecuteReader
RD.Read()
If RD.HasRows Then
DA = New OleDbDataAdapter("select * from table_peminjam where ID_Peminjam like '%" + x + "%'", conn)
DS = New DataSet
DA.Fill(DS, "Ketemu")
DataGridView1.DataSource = DS.Tables("Ketemu")
DataGridView1.ReadOnly = True
TextBox1.Text = ""
TextBox1.Focus()
Else
TextBox1.Text = "Data Tidak Ada"
TextBox1.Text = ""
TextBox1.Focus()
End If
RD.Close()
End Sub
End Class
Form 11
Imports System.Data.OleDb
Public Class Form11
Dim simpan As String
Private Sub jalankansql(ByVal sQl As String)
konek()
Dim objcmd As New OleDb.OleDbCommand
Try
objcmd.Connection = conn
objcmd.CommandType = CommandType.Text
objcmd.CommandText = sQl
objcmd.ExecuteNonQuery()
objcmd.Dispose()
MessageBox.Show("Data Berhasil Disimpan", " ", MessageBoxButtons.OK)
Catch ex As Exception
MessageBox.Show("Tidak Bisa Menyimpan Data ke Database", " ", MessageBoxButtons.OK)
End Try
End Sub
Private Sub ShowData()
konek()
Dim str As String = "Select ID_Anggota as [ID Anggota], Nama_Anggota as [Nama Anggota], Tanggal_Lahir as [Tanggal Lahir] from table_member ORDER By ID_Anggota"
DA = New OleDb.OleDbDataAdapter(str, conn)
DS = New DataSet
DS.Clear()
DA.Fill(DS, "table_member")
DataGridView1.DataSource = DS.Tables("table_member")
DA.Dispose()
DS.Dispose()
conn.Close()
End Sub
Public Sub clear()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox4.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ShowData()
End Sub
Private Sub isiTextBox()
Dim i As Integer
i = DataGridView1.CurrentRow.Index
TextBox1.Text = DataGridView1.Item(0, i).Value
TextBox2.Text = DataGridView1.Item(1, i).Value
TextBox4.Text = DataGridView1.Item(2, i).Value
End Sub
Private Sub Form11_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For a = 1 To 31
ComboBox1.Items.Add(a)
Next
For c = 2016 To 1940 Step -1
ComboBox3.Items.Add(c)
Next
ComboBox2.Items.Add("January")
ComboBox2.Items.Add("February")
ComboBox2.Items.Add("March")
ComboBox2.Items.Add("April")
ComboBox2.Items.Add("May")
ComboBox2.Items.Add("June")
ComboBox2.Items.Add("July")
ComboBox2.Items.Add("August")
ComboBox2.Items.Add("September")
ComboBox2.Items.Add("October")
ComboBox2.Items.Add("November")
ComboBox2.Items.Add("December")
ShowData()
konek()
isiTextBox()
clear()
End Sub
Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
TextBox4.Text = ComboBox1.Text + "-" + Strings.Left(ComboBox2.Text, 3) + "-" + ComboBox3.Text
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form3.Show()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
conn.Close()
conn.Open()
If TextBox2.Text = "" Or TextBox4.Text = "" Then
MessageBox.Show("Data Belum Lengkap", " ", MessageBoxButtons.OK)
Exit Sub
End If
simpan = "INSERT INTO table_member (Nama_Anggota, Tanggal_Lahir) VALUES ('" & TextBox2.Text & "','" & TextBox4.Text & "') "
jalankansql(simpan)
ShowData()
clear()
Exit Sub
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim hapussql As String
Dim pesan
pesan = MsgBox("Apakah Anda Yakin Akan Menghapus ID_Anggota " + TextBox1.Text + " ? ", vbExclamation + vbYesNo, "Attention!")
If pesan = vbNo Then Exit Sub
hapussql = "DELETE FROM table_member WHERE ID_Anggota = " & TextBox1.Text & ""
jalankansql(hapussql)
Me.Cursor = Cursors.WaitCursor
clear()
ShowData()
Me.Cursor = Cursors.Default
End Sub
Private Sub DataGridView1_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
isiTextBox()
End Sub
End Class
Public Class Form11
Dim simpan As String
Private Sub jalankansql(ByVal sQl As String)
konek()
Dim objcmd As New OleDb.OleDbCommand
Try
objcmd.Connection = conn
objcmd.CommandType = CommandType.Text
objcmd.CommandText = sQl
objcmd.ExecuteNonQuery()
objcmd.Dispose()
MessageBox.Show("Data Berhasil Disimpan", " ", MessageBoxButtons.OK)
Catch ex As Exception
MessageBox.Show("Tidak Bisa Menyimpan Data ke Database", " ", MessageBoxButtons.OK)
End Try
End Sub
Private Sub ShowData()
konek()
Dim str As String = "Select ID_Anggota as [ID Anggota], Nama_Anggota as [Nama Anggota], Tanggal_Lahir as [Tanggal Lahir] from table_member ORDER By ID_Anggota"
DA = New OleDb.OleDbDataAdapter(str, conn)
DS = New DataSet
DS.Clear()
DA.Fill(DS, "table_member")
DataGridView1.DataSource = DS.Tables("table_member")
DA.Dispose()
DS.Dispose()
conn.Close()
End Sub
Public Sub clear()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox4.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ShowData()
End Sub
Private Sub isiTextBox()
Dim i As Integer
i = DataGridView1.CurrentRow.Index
TextBox1.Text = DataGridView1.Item(0, i).Value
TextBox2.Text = DataGridView1.Item(1, i).Value
TextBox4.Text = DataGridView1.Item(2, i).Value
End Sub
Private Sub Form11_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For a = 1 To 31
ComboBox1.Items.Add(a)
Next
For c = 2016 To 1940 Step -1
ComboBox3.Items.Add(c)
Next
ComboBox2.Items.Add("January")
ComboBox2.Items.Add("February")
ComboBox2.Items.Add("March")
ComboBox2.Items.Add("April")
ComboBox2.Items.Add("May")
ComboBox2.Items.Add("June")
ComboBox2.Items.Add("July")
ComboBox2.Items.Add("August")
ComboBox2.Items.Add("September")
ComboBox2.Items.Add("October")
ComboBox2.Items.Add("November")
ComboBox2.Items.Add("December")
ShowData()
konek()
isiTextBox()
clear()
End Sub
Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged
TextBox4.Text = ComboBox1.Text + "-" + Strings.Left(ComboBox2.Text, 3) + "-" + ComboBox3.Text
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Form3.Show()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
conn.Close()
conn.Open()
If TextBox2.Text = "" Or TextBox4.Text = "" Then
MessageBox.Show("Data Belum Lengkap", " ", MessageBoxButtons.OK)
Exit Sub
End If
simpan = "INSERT INTO table_member (Nama_Anggota, Tanggal_Lahir) VALUES ('" & TextBox2.Text & "','" & TextBox4.Text & "') "
jalankansql(simpan)
ShowData()
clear()
Exit Sub
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim hapussql As String
Dim pesan
pesan = MsgBox("Apakah Anda Yakin Akan Menghapus ID_Anggota " + TextBox1.Text + " ? ", vbExclamation + vbYesNo, "Attention!")
If pesan = vbNo Then Exit Sub
hapussql = "DELETE FROM table_member WHERE ID_Anggota = " & TextBox1.Text & ""
jalankansql(hapussql)
Me.Cursor = Cursors.WaitCursor
clear()
ShowData()
Me.Cursor = Cursors.Default
End Sub
Private Sub DataGridView1_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
isiTextBox()
End Sub
End Class
Pusing ? Gapapa wajar efek sampingnya itu hehe, Desain sudah, database sudah, source code sudah, et tar dulu masih ada 2 langkah tambahan lagi nih tapi tenang sebentar lagi selesai ko 2 langkah tambahan ini juga ga terlalu ribet jadi jangan nyerah dulu hehehe. Oke langkah pertama adalah menambahkan module di program visual studio kalian, caranya ? nih liat :
Kalo itu sudah lalu kaya gini :
Nah modulenya sudah ada kan ? lalu isi kan seperti ini :
Imports System.Data.OleDb
Imports System.Data
Module Module1
Public conn As OleDbConnection
Public CMD As OleDbCommand
Public DS As New DataSet
Public DA As OleDbDataAdapter
Public RD As OleDbDataReader
Public lokasidb As String
Public Sub konek()
lokasidb = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & AppPath() & "\UAS.accdb"
'lokasidb = AppPath() & "\UAS.accdb"
conn = New OleDbConnection(lokasidb)
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
End Sub
Public Function AppPath() As String
Return System.AppDomain.CurrentDomain.BaseDirectory()
End Function
End Module
Imports System.Data
Module Module1
Public conn As OleDbConnection
Public CMD As OleDbCommand
Public DS As New DataSet
Public DA As OleDbDataAdapter
Public RD As OleDbDataReader
Public lokasidb As String
Public Sub konek()
lokasidb = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & AppPath() & "\UAS.accdb"
'lokasidb = AppPath() & "\UAS.accdb"
conn = New OleDbConnection(lokasidb)
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
End Sub
Public Function AppPath() As String
Return System.AppDomain.CurrentDomain.BaseDirectory()
End Function
End Module
Ciee tinggal satu langkah lagi nih, langsung aja oke. langkah terakhir ini adalah menambahkan database yg tadi kita buat ke dalam folder debug yg ada didalam folder projek kalian, Bingung dimana tempatnya ? nih liat :
Oke selamat kalian telah selesai hehehe, Kalo masih ada yg error kolom komentar masih setia ko dibawah.
mas buatkan saya aplikasi perpustakaan biar sy tinggal ngisi saja mas...mohon bantuannya
BalasHapusWaduh mas maaf saya cuma mahasiswa kalo untuk pembuatan projek besar saya belum sanggup, maaf ini blog juga sudah mati jadi respon lama, silakan kunjungi blog baru saya "https://simple-mindset.blogspot.com/"
HapusKomentar ini telah dihapus oleh pengarang.
BalasHapusKomentar ini telah dihapus oleh pengarang.
BalasHapusKak Kenapa yah kalo di run modulnya jadi eror ada teksnya berwarna kuning
BalasHapus