(30-01-24, 07:03 PM)Abdellah كتب : أخي طه السلام عليكم شكرا على الرد
هل يمكن بأن نضع كود يسمح لتكست بوكس المعني بتسجيل قيمة فارغة في قاعدة البيانات ؟؟
هو مش منطقي هذا الحل ..
ولكن إذا لزم الأمر- فتذكر أنه في مقياس الناس لا يوجد مشكلة مالم تذكر لهم أنه يوجد مشكلة فينتبهوا لها، وكذلك في الأكواد..
الحل :
كود :
Dim cmd As New OleDbCommand()
cmd.Connection = Con
If TextBox1.Text.Trim = "" And TextBox2.Text.Trim = "" Then
Exit Sub
ElseIf TextBox1.Text.Trim = "" Then
cmd.CommandText = "Insert Into Table1 ([cin]) Values (@cin)"
cmd.Parameters.AddWithValue("@cin", TextBox2.Text)
ElseIf TextBox2.Text.Trim = "" Then
cmd.CommandText = "Insert Into Table1 ([code]) Values (@code)"
cmd.Parameters.AddWithValue("@code", TextBox1.Text)
Else
cmd.CommandText = "Insert Into Table1 ([code] , [cin]) Values (@code, @cin)"
cmd.Parameters.AddWithValue("@code", TextBox1.Text)
cmd.Parameters.AddWithValue("@cin", TextBox2.Text)
End If
Con.Open()
cmd.ExecuteNonQuery()
Con.Close()
TextBox1.Text = ""
TextBox2.Text = ""قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».