Cara menjalankan kueri Access di Visual Basic

Langkah 1

Jalankan Microsoft Office Access dan pilih "Blank Database." Nama database sebagai "QueryTest" dan klik "Buat."

Langkah 2

Buat tabel baru dan beri nama "Table1". Di baris pertama tulis "John" di bawah "Field1" dan "Smith" di bawah "Field2".

Tambahkan baris lain dengan mengetik "James" di bawah "Field1" dan "Gonzalez" di bawah "Field2". Simpan tabel "Table1" dan tutup.

Langkah 3

Jalankan Microsoft Visual Basic 2010 Express dan pilih "Proyek Baru" dari menu "File". Pilih "Windows Forms Application" dan klik "OK."

Klik "Toolbar" di sebelah kiri jendela Anda dan klik dua kali pada "Tombol" untuk menambahkan tombol ke formulir Anda. Klik dua kali pada "Button1" untuk membuka modul "Form1.vb", yang merupakan tempat Anda akan menulis kode Anda.

Langkah 4

Ketik "Imports System.Data.OleDb" di bagian atas modul "Form1.vb" Anda. Klik di dalam "Private Sub Button1_Click" untuk mulai menulis kode Visual Basic Anda.

Langkah 5

Tuliskan yang berikut ini untuk menyatakan koneksi dan variabel perintah Anda:

Dim myConnToAccess Sebagai OleDbConnection Dim mySQLCommand Sebagai OleDbCommand Dim mySQLStrg As String

Langkah 6

Ketik yang berikut untuk membuka koneksi ke database Access Anda yang disebut "TestQuest":

myConnToAccess = New OleDbConnection ("Penyedia = Microsoft.Jet.OLEDB.4.0; Sumber Data = C: \ QueryTest.mdb;") myConnToAccess.Open ()

Edit bagian kode "Source = C: \ QueryTest.mdb" dan tuliskan jalur tempat Anda menyimpan database Access Anda.

Langkah 7

Tulislah yang berikut untuk menjalankan kueri "Hapus" dalam database Anda:

mySQLStrg = "DELETE Table1.Field1 FROM Table1 WHERE (((Table1.Field1) = 'John')); mySQLCommand = New OleDbCommand (mySQLStrg, myConnToAccess) mySQLCommand.ExecuteNonQuery ()

Melalui pertanyaan ini Anda akan menghapus rekaman di mana "Field1" sama dengan "John".

Tekan "F5" untuk menjalankan program Anda dan klik "Button1".