[مبرمج بلا حدود]

جزاكـ الله خير وباركـ الله فيكـ 
 استاذ ( djelloul )
الحمدلله عمل الكود وصححت الكود السابق الي كان عندي بيه مشكلة وتبين ان الخطأ بالاقواس الكبيرة  
والحمدلله ربي يحفظكـ 
اخي ربي يحفظكـ ويرضى عنكـ 
الان اذا اريد اعرض البيانات في فورم اخر 
استخدمت هذا الكود عرضت لدي البيانات لكن كيف اعرض الصورة 

PHP كود :

Try
            Dim sqll As String = "select * from T_Information"
            Dim dss As New DataSet
            Dim da As New OleDbDataAdapter(sqll, con)
            da.Fill(dss, "T_Information")
            TextBox1.DataBindings.Add("text", dss, "T_Information.Tid")

            TextBox2.DataBindings.Add("text", dss, "T_Information.Name_Comp")
            TextBox3.DataBindings.Add("text", dss, "T_Information.Name_Dwa")
            TextBox4.DataBindings.Add("text", dss, "T_Information.Name_Dwa2")
            TextBox5.DataBindings.Add("text", dss, "T_Information.Date_Made")
            TextBox6.DataBindings.Add("text", dss, "T_Information.Date_Made2")
            TextBox7.DataBindings.Add("text", dss, "T_Information.Date_Enter")
            TextBox8.DataBindings.Add("text", dss, "T_Information.Date_Enter2")
            TextBox9.DataBindings.Add("text", dss, "T_Information.Number_Rf")
            TextBox12.DataBindings.Add("text", dss, "T_Information.Note")
            TextBox10.DataBindings.Add("text", dss, "T_Information.Name_Typer")

        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")

        End Try 


بالاضافة الى ازار السجل التالي والسابق والاول والاخير 
حتى بعدها نبدأ بالتفكير بزر التعديل والبحث :
والحذف :
جزاكـ ربي الجنة وجعله الله في موازين حسناتكـ
بالمناسبة زر الاضافة هكذا اصبح لدي وهو يعمل فجزاكـ الله عني خير الجزاء

PHP كود :

       Try
            If Trim(TextBox2.Text) = "" Or Trim(TextBox3.Text) = "" Then MsgBox(" جميع البيانات يجب ملأ") : Exit Sub
            Dim opd As New OpenFileDialog
            opd.Tag = 1
            opd.ShowDialog()
            If opd.FileName = Nothing Then MsgBox("لم تختر صورة") : Exit Sub
            PictureBox1.Image = Image.FromFile(opd.FileName)
            If constr2.State = ConnectionState.Closed = False Then constr2.Close()
            constr2.Open()

            Dim cmd As New OleDbCommand
            cmd.Connection = constr2

            cmd.CommandType = CommandType.Text
            Dim picbyte As Byte()
            picbyte = My.Computer.FileSystem.ReadAllBytes(opd.FileName)
            cmd.CommandText = "INSERT INTO [T_Information] ([Name_Typer] ,[Name_Comp],[Name_Dwa],[Name_Dwa2],[Date_Made],[Date_Made2],[Date_Enter],[Date_Enter2],[Number_Rf],[Note],[imag])" & _
                 "values(@Name_Typer, @Name_Comp, @Name_Dwa, @Name_Dwa2, @Date_Made, @Date_Made2, @Date_Enter, @Date_Enter2, @Number_Rf, @Note, @imag  )"


            cmd.Parameters.AddWithValue("@Name_Typer", fusername)
            cmd.Parameters.AddWithValue("@Name_Comp", (Me.TextBox2.Text))
            cmd.Parameters.AddWithValue("@Name_Dwa", (Me.TextBox3.Text))
            cmd.Parameters.AddWithValue("@Name_Dwa2", (Me.TextBox4.Text))
            cmd.Parameters.AddWithValue("@Date_Made", (Me.TextBox5.Text))
            cmd.Parameters.AddWithValue("@Date_Made2", (Me.TextBox6.Text))
            cmd.Parameters.AddWithValue("@Date_Enter", (Me.TextBox7.Text))
            cmd.Parameters.AddWithValue("@Date_Enter2", (Me.TextBox8.Text))
            cmd.Parameters.AddWithValue("@Number_Rf", (Me.TextBox9.Text))
            cmd.Parameters.AddWithValue("@Note", (Me.TextBox12.Text))
            cmd.Parameters.AddWithValue("@imag", picbyte)

            cmd.ExecuteNonQuery()
            constr2.Close()
            MsgBox("تم الحفظ")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try