[hashemb1978]

استخدم الكود التالي لجملة الحفظ
 Public con As New SqlConnection("server = GAZA-PC; database=books; integrated security =true")




If con.State = ConnectionState.Closed = False Then con.Close()
            con.Open()

            Dim cmd As New SqlCommand
            cmd.Connection = con

            cmd.CommandType = CommandType.Text
           
            cmd.CommandText = "insert into  hedar (name,phone,jawwal,fax,email,adress) values( @name,@phone,@jawwal,@fax,@email,@adress)"
           
            cmd.Parameters.AddWithValue("@name", tb1.Text)
            cmd.Parameters.AddWithValue("@phone", TextBox5.Text)
            cmd.Parameters.AddWithValue("@jawwal", TextBox2.Text)
            cmd.Parameters.AddWithValue("@fax", TextBox3.Text)
            cmd.Parameters.AddWithValue("@adress", TextBox1.Text)
            cmd.Parameters.AddWithValue("@email", TextBox4.Text)
            cmd.ExecuteNonQuery()
            con.Close()
            MsgBox("تمت الاضافه بنجاح", MsgBoxStyle.Information, "اضافه بيانات المكتبه")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


الكود بالمرفق
بلغني في حال زبط أو ما زبط وشكرا