[Mido9]

(27-09-13, 02:24 PM)تركي قرمزلي كتب : السلام عليكم و رحمة الله و بركاته
بعد السطر

Dim dataadapter12 As New OleDb.OleDbDataAdapter(SQLstr2, conn2)


أضف السطرين التاليين

كود :

Dim t_Factor as new datatable
dataadapter12.fill(T_Factor)

بالتوفيق إن شاء الله تعالى
السلام عليكم و رحمة الله و بركاته

بارك الله فيك على المساعده ,,

بعد التجربة 

إختفى الخطأ السابق ,, ولكن عندما قمت بعمل عرض للبرنامج و جيت اجرب النتيجه 

ظهر لي الخطأ التالي

كود :

Conversion from type 'DBNull' to type 'String' is not valid.

فى السطر التالي

كود :

  TextBox1.AutoCompleteCustomSource.Add(r("factor_name"))

مع العلم أن هذا هو الكود الكامل بعد التعديل هو الاتي


   

كود :

    Dim saveinto2 As New OleDb.OleDbCommand
        Dim constr2 As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
        Dim conn2 As New OleDb.OleDbConnection(constr2)
        Dim DataSet12 As New DataSet
        Dim SQLstr2 As String
        SQLstr2 = "SELECT * From t_factor "
        conn2.Open()
        Dim dataadapter12 As New OleDb.OleDbDataAdapter(SQLstr2, conn2)
        Dim t_Factor As New DataTable
        dataadapter12.Fill(t_Factor)


        TextBox1.AutoCompleteMode = AutoCompleteMode.Append
        TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
        For Each r As DataRow In t_factor.Rows
            TextBox1.AutoCompleteCustomSource.Add(r("factor_name"))
        Next

انا اسف و الله ،، انا عارف إني غلبتك وتعبتك معي انا بجد اسف