[ZaerAllail]

(06-04-20, 10:59 PM)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


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

جملة الحفظ التي وضعها الأخ سعود مشكوراً في الرد السابق والتي وضعها الجميع هنا مشكورين بما فيها الجمله التي وضعتها أنت جميعها تعمل بشكل جيد لا غبار عليه 
ولكن لازالت هناك مشكلة الإستعلام عن العمل والتحقق من وجوده قبل حفظه 
هذه الجملة التي لم أجد لها حلا حتى الأن 

والجملة التي أستخدمها هي التالية 

كود :

       da = New SqlDataAdapter("select NameOfMov From MovTable where NameOfMov = '" & Trim(NameSearchTB.Text) & "'", sqlcon)
       da.Fill(MovieSearchdt)

وهي تنجح في الإستعلام عن جميع الأسماء ما عدا الأسماء التي تحمل علامة الفاصلة فالأمر يتوقف عن التنفيذ وتنتج رسالة الخطأ !
فلو جرب أحدكم تركيب جملة إستعلام وليست حفظ إستعلام فقط ونجحت ياليت ينزلها هنا للفائدة