Şekil 1
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Northwind.mdb;")
baglan.Open()
Dim sayi As New OleDbCommand("", baglan)
sayi.CommandText = "Select count(*) from Customers"
MessageBox.Show("Veritabanındaki Kayıt Sayısı: " & sayi.ExecuteScalar)
baglan.Close()
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Northwind.mdb;")
baglan.Open()
Dim sayi As New OleDbCommand("", baglan)
sayi.CommandText = "Select count(*) from Customers"
MessageBox.Show("Veritabanındaki Kayıt Sayısı: " & sayi.ExecuteScalar)
baglan.Close()
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
1 comments:
Teşekkürler...
Yorum Gönder