vb.net で ADO でアクセスのテーブル

質問

アクセスのテーブルのレコードの数を取得したいのですが
コードがわからないので続きを教えていただけますか？

Imports System.Data.OleDb
Sub test()
Dim oleConn As OleDbConnection
Dim oleCmd As OleDbCommand
Dim oleAdp As OleDbDataAdapter

oleConn = New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source=C:\Database1.accdb;")
oleCmd = oleConn.CreateCommand()

oleCmd.CommandText = "SELECT * FROM テーブル1"
oleAdp = New OleDbDataAdapter(oleCmd)

'MsgBox oleCmd.???

End Sub

までできたのですが、ここからどうすれば数を取得できますか？

回答No.1

dypfpajcrvyq · ベストアンサー

これでいかがでしょう？

Imports System.Data.OleDb

Sub Button1_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim con As New OleDbConnection()
Dim cmd As New OleDbCommand()

con.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;;Data Source=C:\Database1.accdb;"
cmd.Connection = con ' コネクションの設定
con.Open()
cmd.CommandText = "SELECT COUNT(*) FROM テーブル1"
MessageBox.Show(CStr(cmd.ExecuteScalar()))
con.Close()
End Sub

お礼

ありがとうございました。