Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class Form1
Dim a, b As String
Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=D:\LARAS\TSI'14\Databasesitha.accdb"
Dim objkoneksi As New OleDb.OleDbConnection(koneksi)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
objkoneksi.Open()
Dim tambah As String = "INSERT INTO
TablePemesanan values('" & TextBox1.Text
& "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')"
Dim ocmd = New OleDbCommand(tambah, objkoneksi)
ocmd.ExecuteNonQuery()
MsgBox("Sukses")
objkoneksi.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Form2.Show()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox6.Text = TextBox5.Text *
TextBox7.Text
End Sub
End Class
Tidak ada komentar:
Posting Komentar