Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd Logo
Upload

Welcome to Scribd!

  • 23 views

    System - Data.Oledb System - Data.Sqlclient System - Data.Odbc: 'Access 'Sqrserver 'Mysql

    Uploaded by

    Muhammad Zainudin
    This document contains code for a Visual Basic .NET program that connects to a database and performs CRUD (create, read, update, delete) operations on customer data. It includes code to connect to the database, retrieve and display customer records in a datagrid, search for customers by code or name, add/update/delete customer records, and clear the form fields. The main functions include connecting to the database, searching for a customer, displaying the search results, and handling button clicks to save, clear, or close the form.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    System - Data.Oledb System - Data.Sqlclient System - Data.Odbc: 'Access 'Sqrserver 'Mysql

    Uploaded by

    Muhammad Zainudin
    23 views5 pages
    This document contains code for a Visual Basic .NET program that connects to a database and performs CRUD (create, read, update, delete) operations on customer data. It includes code to connect to the database, retrieve and display customer records in a datagrid, search for customers by code or name, add/update/delete customer records, and clear the form fields. The main functions include connecting to the database, searching for a customer, displaying the search results, and handling button clicks to save, clear, or close the form.

    Original Description:

    Original Title

    VBNET1.docx

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document contains code for a Visual Basic .NET program that connects to a database and performs CRUD (create, read, update, delete) operations on customer data. It includes code to connect to the database, retrieve and display customer records in a datagrid, search for customers by code or name, add/update/delete customer records, and clear the form fields. The main functions include connecting to the database, searching for a customer, displaying the search results, and handling button clicks to save, clear, or close the form.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    23 views5 pages

    System - Data.Oledb System - Data.Sqlclient System - Data.Odbc: 'Access 'Sqrserver 'Mysql

    Uploaded by

    Muhammad Zainudin
    This document contains code for a Visual Basic .NET program that connects to a database and performs CRUD (create, read, update, delete) operations on customer data. It includes code to connect to the database, retrieve and display customer records in a datagrid, search for customers by code or name, add/update/delete customer records, and clear the form fields. The main functions include connecting to the database, searching for a customer, displaying the search results, and handling button clicks to save, clear, or close the form.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    of 5

    Module

    'access
    Imports System.Data.OleDb
    Imports System.Data.SqlClient 'sqrserver
    Imports System.Data.Odbc 'mysql

    Module Module1

    Public conn As OleDbConnection


    Public da As OleDbDataAdapter
    Public ds As DataSet
    Public cmd As OleDbCommand
    Public dr As OleDbDataReader
    Public adaptor As OleDbDataAdapter
    Public read As OleDbDataReader

    Public Sub Koneksi()


    conn = New OleDbConnection("provider=microsoft.jet.OleDb.4.0;data
    source=TI18A.mdb")
    conn.Open()
    End Sub

    End Module
    Syntax form

    Imports System.Data.OleDb 'wajib


    Public Class Customer

    Dim Pilihan As String


    'untuk mengkosongkan yang sudah tersimpan pada textbox
    Sub kosongkan()
    TextBox1.Clear()
    TextBox2.Clear()
    RadioButton1.Checked = False
    RadioButton2.Checked = False
    TextBox1.Focus()
    End Sub
    'untuk menampil data baru yang sudah tersimpan pada textbox
    Sub DataBaru()
    TextBox2.Clear()
    RadioButton1.Checked = False
    RadioButton2.Checked = False
    TextBox2.Focus()
    End Sub
    Sub Ketemu()
    On Error Resume Next
    TextBox2.Text = dr.Item("Nama_Customer")
    If dr.Item("Jenis_Usaha") = "Barang" Then
    RadioButton1.Checked = True
    ElseIf dr.Item("Jenis_Usaha") = "Jasa" Then
    RadioButton2.Checked = True
    End If
    TextBox2.Focus()
    End Sub

    Sub TampilGrid()
    da = New OleDbDataAdapter("Select * from tblCustomer", conn)
    ds = New DataSet
    da.Fill(ds)
    DGV.DataSource = ds.Tables(0)
    DGV.ReadOnly = True

    End Sub
    Sub CariKode()
    cmd = New OleDbCommand("Select * from tblCustomer where
    Kode_Customer='" & TextBox1.Text & "'", conn)
    dr = cmd.ExecuteReader
    dr.Read()

    End Sub

    Private Sub Customer_Load(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles MyBase.Load
    Call Koneksi()
    Call kosongkan()
    Call TampilGrid()

    End Sub
    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As
    System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
    'If e.KeyCode = Keys.Enter Then
    ' Call CariKode()
    ' If dr.HasRows() Then
    ' Call Ketemu()
    ' Else
    ' Call DataBaru()

    ' End If
    'End If
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As


    System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    TextBox1.MaxLength = 5
    If e.KeyChar = Chr(13) Then
    Call CariKode()
    If dr.HasRows() Then 'jika datanya ditemukan
    Call Ketemu()
    Else
    Call DataBaru()

    End If
    End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button1.Click
    If TextBox1.Text = "" Or TextBox2.Text = "" Or RadioButton1.Checked =
    False And RadioButton2.Checked = False Then
    MsgBox("data belum lengkap")
    Exit Sub
    Else

    End If
    Try
    If RadioButton1.Checked = True Then
    Pilihan = RadioButton1.Text 'Barang()
    ElseIf RadioButton2.Checked = True Then
    Pilihan = RadioButton2.Text 'Jasa
    End If
    Call CariKode()
    If Not dr.HasRows Then
    Dim simpan As String = "insert Into tblCustomer values('" &
    TextBox1.Text & "','" & TextBox2.Text & "','" & Pilihan & "')"
    cmd = New OleDbCommand(simpan, conn)
    cmd.ExecuteNonQuery()
    Else 'jika tidak ditemukan
    Dim edit As String = "update tblCustomer set Nama_Customer='"
    & TextBox2.Text & "',Jenis_Usaha='" & Pilihan & "' where Kode_Customer='" &
    TextBox1.Text & "'"
    cmd = New OleDbCommand(edit, conn)
    cmd.ExecuteNonQuery()
    End If
    Call kosongkan()
    Call TampilGrid()
    Catch ex As Exception
    MsgBox(ex.Message)
    End Try

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button2.Click
    If TextBox1.Text = "" Then
    MsgBox("Kode harus diisi")
    TextBox1.Focus()
    Exit Sub
    End If
    Call CariKode()
    If Not dr.HasRows Then
    MsgBox("Kode Customer tidak terdaftar")
    TextBox1.Focus()
    Exit Sub
    End If
    If MessageBox.Show("Apakah Anda Yakin?", "", MessageBoxButtons.YesNo)
    = Windows.Forms.DialogResult.Yes Then
    Dim hapus As String = "delete * From tblCustomer where
    Kode_Customer='" & TextBox1.Text & "'"
    cmd = New OleDbCommand(hapus, conn)
    cmd.ExecuteNonQuery()
    Call kosongkan()
    Call TampilGrid()
    Else
    Call kosongkan()

    End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button3.Click
    Call kosongkan()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As


    System.EventArgs) Handles Button4.Click
    Me.Close()
    End Sub

    Private Sub DGV_CellMouseClick(ByVal sender As Object, ByVal e As


    System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles
    DGV.CellMouseClick
    On Error Resume Next
    TextBox1.Text = DGV.Rows(e.RowIndex).Cells(0).Value
    Call CariKode()
    If dr.HasRows Then
    Call Ketemu()
    End If
    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e


    As System.EventArgs) Handles TextBox6.TextChanged
    Call Koneksi()
    da = New OleDbDataAdapter("select * from tblCustomer where
    Nama_Customer like '%" & TextBox6.Text & "%'", conn)
    ds = New DataSet
    da.Fill(ds)
    DGV.DataSource = ds.Tables(0)
    DGV.ReadOnly = True
    End Sub
    End Class

    You might also like