1. http://herunmalilangberbangkit.blogspot.com/2013/01/koneksi-database-dengan-visual-basic.html
2. http://herunmalilangberbangkit.blogspot.com/2012/12/function-dengan-return-value-berupa.html
3. http://herunmalilangberbangkit.blogspot.com/2012/12/tugas-ke-7_3354.html
4. http://herunmalilangberbangkit.blogspot.com/2012/10/perualangan.html
5. http://herunmalilangberbangkit.blogspot.com/2012/10/analisa-dan-memperbaiki-program.html
6. http://herunmalilangberbangkit.blogspot.com/2012/10/analisa-program-praktikum-ke-2.html
7. http://herunmalilangberbangkit.blogspot.com/2012/10/tugas-pemrograman-1-aplikasi-penghitung.html
Jalan berbangkit
Rabu, 16 Januari 2013
Selasa, 01 Januari 2013
Koneksi database dengan visual basic 2010
Koneksi Data Base dengan Visual Basic 2010
salam sejahtea untuk kita semua, pada kesemapatan yang baik ini, kami akan berbagi tentang koneksi data base dengan visual basic 2010.
semoga bermanfaat untuk kita semua.
salah satu yang harus diperhatikan sebelum kita membuat program ini adalah, kita sudah meyakinkan diri bahwa kita sudah menyiapkan data base yang nantinya akan dikoneksikan dengan visual basic 2010.
langsung saja, mari kita perhatikan antarmuka program yang akan kita buat, dibawah ini.
baik, dapat kita lihat bersama, bahwa pada gambar tersebut dapat dilihata bahwa antarmuka aplikasi tersebut terbangun atas beberapa tool yang ada pada visual basic 2010.
kemudian, langsung saja, mari kita lihat aplikasi apabila dijalankan.
================================================================================================================================================
listing program :
Dim urut As Integer = 1
Private Sub TbmhsBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmhsBindingNavigatorSaveItem.Click
Me.Validate()
Me.TbmhsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DbherunDataSet.tbmhs' table. You can move, or remove it, as needed.
Me.TbmhsTableAdapter.Fill(Me.DbherunDataSet.tbmhs)
Dim hidup As Windows.Forms.Control
For Each hidup In Me.Panel1.Controls
If (hidup.GetType.Name <> "Label") Then
hidup.Enabled = False
End If
Next
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If (TbmhsBindingSource.Count = 0) Then
MsgBox("Untuk sementara tidak ada data yang tersedia", vbOKOnly + vbInformation, "Peringatan")
Else
Dim search As String
search = InputBox("Insert Name", "Search Name")
If (TbmhsBindingSource.Find("Nama", search)) > -1 Then
MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")
Me.TbmhsBindingSource.Position =
TbmhsBindingSource.Find("Nama", search)
urut = TbmhsBindingSource.Find("Nama", search) + 1
Else
MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")
End If
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim mex As Integer = TbmhsBindingSource.Count
If (mex = 0) Then
MsgBox("Untuk Sementara belum ada data yang tersedia", vbOKOnly + vbInformation, "Peringatan")
Else
If (urut = mex) Then
MsgBox("Ini adalah data yang terakhir", vbOKOnly + vbInformation, "Peringatan")
Else
TbmhsBindingSource.MoveNext()
urut += 1
End If
End If
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If (TbmhsBindingSource.Count = 0) Then
MsgBox("Untuk sementara belum ada data yang dimasukan", vbOKOnly + vbInformation, "Peringatan")
Else
If (urut = 1) Then
MsgBox("Ini adalah data yang pertama", vbOKOnly + vbInformation, "Peringatan")
Else
TbmhsBindingSource.MovePrevious()
urut -= 1
End If
End If
End Sub
Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If (TbmhsBindingSource.Count = 0) Then
MsgBox("Untuk sementara belum ada data yang dimasukan", vbOKOnly + vbInformation, "Peringatan")
Else
TbmhsBindingSource.MoveFirst()
urut = 1
End If
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If (TbmhsBindingSource.Count = 0) Then
MsgBox("Untuk sementara belum ada data yang diisikan", vbOKOnly + vbInformation, "Peringatan")
Else
TbmhsBindingSource.MoveLast()
urut = TbmhsBindingSource.Count
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hidup As Windows.Forms.Control
For Each hidup In Me.Panel1.Controls
If (hidup.GetType.Name <> "Label") Then
hidup.Enabled = True
End If
Next
TbmhsBindingSource.AddNew()
Button2.Enabled = True
Button1.Enabled = False
NIMTextBox.Focus()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If urut = TbmhsBindingSource.Count Then
urut -= 1
End If
If (TbmhsBindingSource.Count = 0) Then
MsgBox("Untuk Sementara belum ada data yang dimasukan", vbOKOnly + vbInformation, "Peringatan")
Else
If (MsgBox("Apakah anda yakin akan mengahapus data tersebut ?", vbQuestion + vbYesNo + vbDefaultButton2, "Konfirmasi")) = vbYes Then
TbmhsBindingSource.RemoveCurrent()
Me.Validate()
Me.TbmhsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
urut = TbmhsBindingSource.Count
Me.Validate()
Me.TbmhsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
Dim hidup As Windows.Forms.Control
For Each hidup In Me.Panel1.Controls
If (hidup.GetType.Name <> "Label") Then
hidup.Enabled = False
End If
Next
Button1.Enabled = True
Button2.Enabled = False
Catch ex As Exception
MsgBox("NIM sudah ada", vbOKOnly + vbCritical, "Peringatan")
NIMTextBox.Focus()
TbmhsBindingSource.RemoveCurrent()
Me.Validate()
Me.TbmhsBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DbherunDataSet)
Button1.Enabled = True
Button3.Enabled = False
urut -= 1
End Try
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If (ComboBox1.Text = "Admin") Then
Label2.Visible = True
TextBox1.Visible = True
ElseIf (ComboBox1.Text = "User Biasa") Then
Dim hidup As Windows.Forms.Control
For Each hidup In Me.Panel1.Controls
If (hidup.GetType.Name <> "Label") Then
hidup.Enabled = False
End If
Next
Label2.Visible = False
TextBox1.Visible = False
GroupBox1.Enabled = False
End If
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If (TextBox1.Text = "herun") Then
GroupBox1.Enabled = True
Else
GroupBox1.Enabled = False
End If
End Sub
End Class
demikian semoga bermanfaat untuk kita semua.
amin...
Langganan:
Postingan (Atom)