toopak
یک شنبه 17 شهریور 1387, 21:12 عصر
سلام دوستان
من یه مشکل برام پیش اومده
یه کد دارم که اینه
Dim cmdsql As New OleDbCommand
Dim inssql As String
cmdsql.Connection = con
If Not SlrTextbox1.Text = "" Then
inssql = "SELECT * FROM tbservices where sid= " & SlrTextbox1.Text
cmdsql.Connection = con
cmdsql.CommandText = inssql
Dim DR As OleDbDataReader
DR = cmdsql.ExecuteReader
If DR.HasRows = True Then
DR.Read()
Label5.Text = DR("sid")
Label3.Text = DR("accname")
Label9.Text = DR("maghsad")
Label7.Text = DR("accadd")
Label11.Text = DR("drname")
End If
End If
وقتی اجرا میکنم در قسمت قرمز
این خطلا رو میده
Data type mismatch in criteria expression.
مشکل از کدوم قسمت کارمه؟
من یه مشکل برام پیش اومده
یه کد دارم که اینه
Dim cmdsql As New OleDbCommand
Dim inssql As String
cmdsql.Connection = con
If Not SlrTextbox1.Text = "" Then
inssql = "SELECT * FROM tbservices where sid= " & SlrTextbox1.Text
cmdsql.Connection = con
cmdsql.CommandText = inssql
Dim DR As OleDbDataReader
DR = cmdsql.ExecuteReader
If DR.HasRows = True Then
DR.Read()
Label5.Text = DR("sid")
Label3.Text = DR("accname")
Label9.Text = DR("maghsad")
Label7.Text = DR("accadd")
Label11.Text = DR("drname")
End If
End If
وقتی اجرا میکنم در قسمت قرمز
این خطلا رو میده
Data type mismatch in criteria expression.
مشکل از کدوم قسمت کارمه؟