Visual Basic'te Access sorguları nasıl çalıştırılır

1. Adım

Microsoft Office Access'i çalıştırın ve "Boş Veritabanı" nı seçin. Veritabanını "QueryTest" olarak adlandırın ve "Oluştur" u tıklayın.

2. Adım

Yeni bir tablo oluşturun ve "Tablo1" olarak adlandırın. İlk sırada "Field1" ve "Field2" altında "Smith" altında "John" yazın.

"Field1" ve "Field2" altında "Gonzalez" altında "James" yazarak başka bir satır ekleyin. Tablo "Tablo 1" kaydedin ve kapatın.

3. adım

Microsoft Visual Basic 2010 Express'i çalıştırın ve "Dosya" menüsünden "Yeni Proje" yi seçin. "Windows Forms Uygulaması" nı seçin ve "Tamam" ı tıklayın.

Pencerenizin sol bölmesindeki "Araç Çubuğu" na tıklayın ve formunuza bir düğme eklemek için "Düğme" ye çift tıklayın. Kodunuzu yazacağınız yer olan "Form1.vb" modülünü açmak için "Button1" e çift tıklayın.

4. Adım

"Form1.vb" modülünüzün en üstünde "Imports System.Data.OleDb" yazın. Visual Basic kodunuzu yazmaya başlamak için "Private Sub Button1_Click" i tıklayın.

Adım 5

Bağlantılarınızı ve komut değişkenlerinizi bildirmek için aşağıdakileri yazın:

OleDbConnection Dim mySQLCommand Olarak OleDbCommand Dim mySQLStrg As String olarak DimConnToAccess

6. Adım

Access veritabanınıza "TestQuest" adlı bir bağlantı açmak için aşağıdakini yazın:

myConnToAccess = Yeni OleDbConnection ("Sağlayıcı = Microsoft.Jet.OLEDB.4.0; Veri Kaynağı = C: \ QueryTest.mdb;") myConnToAccess.Open ()

"Kaynak = C: \ QueryTest.mdb" kodunun bölümünü düzenleyin ve Access veritabanınızı kaydettiğiniz yolu yazın.

7. adım

Veritabanınızda bir "Sil" sorgusu yürütmek için aşağıdakileri yazın:

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

Bu sorgu ile "Alan1" in "John" a eşit olduğu kaydı sileceksiniz.

Programınızı çalıştırmak için "F5" e basın ve "Button1" e tıklayın.