22-12-12, 10:57 PM
السلام عليكم ورحمة الله وبركاتة
اخواني الافاضل لدي كود عند عمل استعراض له يظهر لي خطأ
هذا هو الكود
وهذا هو الخطأ الذي يظهر
وجزاكم الله خيرا
اخواني الافاضل لدي كود عند عمل استعراض له يظهر لي خطأ
هذا هو الكود
PHP كود :
Dim saveintoo As New OleDb.OleDbCommand
Dim constrr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
Dim connn As New OleDb.OleDbConnection(constrr)
Dim DataSett As New DataSet
Dim SQLstrr As String
SQLstrr = "SELECT * From factor_daora Where factor_daoraa_name=('" & TextBox10.Text & "')Order by factor_daora_id"
connn.Open()
Dim dataadapterr As New OleDb.OleDbDataAdapter(SQLstrr, connn)
dataadapterr.Fill(DataSett, "factor_daora")
ComboBox21.Items.Clear()
For X As Integer = 0 To DataSett.Tables("factor_daora").Rows.Count - 1
ComboBox21.Items.Add(DataSett.Tables("factor_daora").Rows(X).Item("factor_daora_id"))
Next
TextBox9.Text = ComboBox21.Items.Count
If ComboBox21.Items.Count = 1 Then
TextBox21.Text = ComboBox21.Items(0).ToString '(الترتيب - 1)'
' Show First Resulte
Dim saveinto5 As New OleDb.OleDbCommand
Dim constr5 As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
Dim conn5 As New OleDb.OleDbConnection(constr5)
Dim DataSet5 As New DataSet
Dim SQLstr5 As String
SQLstr5 = "SELECT * From factor_daora Where factor_daora_id=('" & TextBox21.Text & "')"
conn5.Open()
Dim dataadapter5 As New OleDb.OleDbDataAdapter(SQLstr5, conn5)
dataadapter5.Fill(DataSet5, "factor_daora")
If Me.BindingContext(DataSet5, "factor_daora").Count = 0 Then
MsgBox(" لا يوجد عامل بهذا الاسم")
conn5.Close()
Else
ComboBox11.DataBindings.Add("text", DataSet5, "factor_daora.factor_daora_no3")
End If
'combobox end
End If
PHP كود :
Data type mismatch in criteria expression.
وجزاكم الله خيرا