Scribd
Upload
6 views3 pages

VB Tugas Script

Uploaded by

syarif.nur92
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
6 views3 pages

VB Tugas Script

Uploaded by

syarif.nur92
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 3

Imports System.

Configuration
Imports System.Data.SqlClient
Public Class Form1
Private koneksi As String =
System.Configuration.ConfigurationManager.ConnectionStrings("conn").ConnectionString()
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
tampil()
End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnclose.Click


Close()
End Sub
Private Sub tampil()
Dim datatb As New DataTable
Dim sqlstr As String = "SELECT ID, namakota AS [Nama Kota], provinsi AS
[Provinsi] FROM tbprovinsi"
Dim dataadp As OleDb.OleDbDataAdapter
dataadp = New OleDb.OleDbDataAdapter(sqlstr, koneksi)
dataadp.Fill(datatb)
dgv.DataSource = datatb
dgv.Columns(0).Visible = False

End Sub

Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click


simpanupdate()

End Sub
Private Sub dgv_Click(sender As Object, e As EventArgs) Handles dgv.Click
txtid.Text = dgv.SelectedRows(0).Cells("ID").Value
txtkota.Text = dgv.SelectedRows(0).Cells("Nama Kota").Value
txtprov.Text = dgv.SelectedRows(0).Cells("Provinsi").Value
btnsave.Text = "Update"

End Sub
Private Sub segarkan()
txtid.Text = String.Empty
txtkota.Text = String.Empty
txtprov.Text = String.Empty
btnsave.Text = "Save"
End Sub

Private Sub btndel_Click(sender As Object, e As EventArgs) Handles btndel.Click


If txtkota.Text = String.Empty Or txtprov.Text = String.Empty Then
MsgBox("Data Belum di pilih", vbExclamation, "ERROR")
Else
Dim newconnection As New OleDb.OleDbConnection(koneksi)
Dim addstr As String = "DELETE FROM tbprovinsi WHERE ID = '" & txtid.Text &
"'"
Dim addnewcommand As New OleDb.OleDbCommand
addnewcommand.Connection = newconnection
addnewcommand.CommandText = addstr

'addnewcommand.Parameters.AddWithValue("add1", txtid.Text)
newconnection.Open()
addnewcommand.ExecuteNonQuery()
newconnection.Close()
MsgBox("Data di hapus", vbExclamation, "DATA NEGARA")
tampil()
segarkan()
txtkota.Focus()
End If
End Sub

Private Sub btnref_Click(sender As Object, e As EventArgs) Handles btnref.Click


segarkan()
txtkota.Focus()
End Sub

Private Sub txtkota_KeyPress(sender As Object, e As KeyPressEventArgs) Handles


txtkota.KeyPress
If e.KeyChar = Chr(13) Then
txtprov.Focus()
End If
End Sub
Private Sub txtprov_KeyPress(sender As Object, e As KeyPressEventArgs) Handles
txtprov.KeyPress
If e.KeyChar = Chr(13) Then
btnsave.Focus()
End If
End Sub
Private Sub simpanupdate()
If txtkota.Text = String.Empty Or txtprov.Text = String.Empty Then
MsgBox("Masukkan Nama Kota dan Provinsi", vbExclamation, "ERROR")
Else

If btnsave.Text = "Update" Then


Dim newconnection As New OleDb.OleDbConnection(koneksi)
Dim addstr As String = "UPDATE tbprovinsi SET namakota = '" &
txtkota.Text & "', provinsi = '" & txtprov.Text & "' WHERE ID = '" & txtid.Text & "'"
Dim addnewcommand As New OleDb.OleDbCommand
addnewcommand.Connection = newconnection
addnewcommand.CommandText = addstr

'addnewcommand.Parameters.AddWithValue("add1", txtkota.Text)
'addnewcommand.Parameters.AddWithValue("add2", txtprov.Text)
'addnewcommand.Parameters.AddWithValue("add3", txtid.Text)
newconnection.Open()
addnewcommand.ExecuteNonQuery()
newconnection.Close()
MsgBox("Data sudah di update", vbExclamation, "DATA NEGARA")
tampil()
btnsave.Text = "Save"
segarkan()
txtkota.Focus()

Else
Dim newconnection As New OleDb.OleDbConnection(koneksi)
Dim queryresult As Integer
Dim addstr As String = "SELECT COUNT (namakota) FROM tbprovinsi WHERE
namakota = '" & txtkota.Text & "'"
Dim addnewcommand As New OleDb.OleDbCommand
addnewcommand.Connection = newconnection
addnewcommand.CommandText = addstr
newconnection.Open()
queryresult = addnewcommand.ExecuteScalar()
newconnection.Close()
If queryresult > 0 Then
MsgBox("Nama Kota Sudah Ada", vbExclamation, "ERROR")
Else
Dim newconnection1 As New OleDb.OleDbConnection(koneksi)
Dim addstr1 As String = "INSERT INTO tbprovinsi (namakota,provinsi)
VALUES ('" & txtkota.Text & "','" & txtprov.Text & "')"
Dim addnewcommand1 As New OleDb.OleDbCommand
addnewcommand1.Connection = newconnection1
addnewcommand1.CommandText = addstr1

'addnewcommand.Parameters.AddWithValue("add1", txtkota.Text)
'addnewcommand.Parameters.AddWithValue("add2", txtprov.Text)
newconnection1.Open()
addnewcommand1.ExecuteNonQuery()
newconnection1.Close()

MsgBox("Data sudah di simpan", vbExclamation, "DATA NEGARA")


tampil()
segarkan()
txtkota.Focus()
End If
End If
End If
End Sub
End Class

You might also like