Private Sub FRMREPORT_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim con As OleDbConnection = New OleDbConnection
con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=db.mdb;Jet OLEDB:Database Password=4209;"
Dim com As OleDbCommand = New OleDbCommand
com.Connection = con
com.CommandText = "select SUM(saturday) AS satsum from student where saturday='1'"
Dim dr As OleDbDataReader
con.Open()
dr = com.ExecuteReader()
dr.Read()
TextBox4.Text = dr.Item("satsum")
con.Close()
End Sub
وقتی اجرا میکنم این خطا رو میده:
Data type mismatch in criteria expression
و میگه مشکل در
dr = com.ExecuteReader()
هستش!
کمک کنین لطفا
پاسخ با نقل قول
