تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[SQL] مشكلة في الاكواد
#1
بسم الله الرحمن الرحيم 

السلام عليكم ورحمة الله وبركاته 


اسعد الله مساكم

يالغالين عندي مشكلة في ادخال التاريخ من الفيجوال بيسك الى السكول سيرفر

يقولي خطا التاريخ المعتمد من 1900 بالميلادي


وهذا كود الادخال انا طبقته ومشى معي لكن غيرت في التاريخ ومدري وش جاه 


هذي الاكواد اذا في خطا يا شباب ياريت تفيدوني

ككود الاضافة

PHP كود :
       If tn1.Text "" Or rn1.Text "" Or nmbr1.Text "" Or nmbr2.Text "" Or idnam.Text "" Then
            MsgBox
("لا يمكن ترك حقل فارغ"MsgBoxStyle.Critical"خطا")
 
           Exit Sub
        End 
If

 
       Try
            Dim strinsert 
As String "INSERT INTO tbl1 (nam,range,n1,n2,id_nam,st_work,en_ran,up_ran,fll,why,steat) " _
                                      
"VALUES('" tn1.Text "','" rn1.Text "'," nmbr1.Text "," nmbr2.Text "," idnam.Text ",'" DateTimePicker1.Value.ToString("yyyy-MM-dd") & "','" DateTimePicker2.Value.ToString("yyyy-MM-dd") & "','" DateTimePicker3.Value.ToString("yyyy-MM-dd") & "'," file.Text ",'" why.Text "','" stname.Text "')"
 
           Dim cmd As New SqlCommand(strinsertsqlcon)
 
           sqlcon.Open()
 
           cmd.ExecuteNonQuery()
 
           MsgBox("تمت الاضافة بنجاح"MsgBoxStyle.Information"الاضافة")

 
       Catch ex As Exception
            MsgBox
(ex.Message)
 
       Finally
            sqlcon
.Close()
 
       End Try 


كود التحديث

PHP كود :
       Try
            Dim cmd 
As New SqlCommand
            If MsgBox
("هل تريد تاكيد عمليةالتحديث ؟"MsgBoxStyle.YesNo"التاكيد") = DialogResult.Yes Then
                Dim strUpdate 
As String "Update tbl1 set nam='" tn1.Text "', range='" rn1.Text "', n1=" nmbr1.Text ", n2= " nmbr2.Text ", id_nam=" idnam.Text ", st_work='" DateTimePicker1.Value.ToString("yyyy-MM-dd") & "', en_ran='" DateTimePicker1.Value.ToString("yyyy-MM-dd") & "', up_ran='" DateTimePicker1.Value.ToString("yyyy-MM-dd") & "', fll=" file.Text ", why= '" why.Text "', steat='" stname.Text "'"

 
               cmd = New SqlCommand(strUpdatesqlcon)
 
               sqlcon.Open()
 
               cmd.ExecuteNonQuery()
 
               MsgBox("تم التحديث بنجاح"MsgBoxStyle.Information"التحديث")
 
           End If
 
       Catch ex As Exception
            MsgBox
(ex.Message)
 
       Finally
            sqlcon
.Close()
 
       End Try 


كود البحث

PHP كود :
   Private Sub Button1_Click(sender As ObjectAs EventArgsHandles Button1.Click
        If TextBox12
.Text "" Then
            MsgBox
("لم يتم كتابة بيانات الفرد"MsgBoxStyle.Critical"خطا")
 
           Exit Sub
        End 
If
 
       Try
            Dim delstring 
As String "SELECT * FROM tbl1 WHERE id_nam=" TextBox12.Text
            Dim cmd 
As New SqlCommand(delstringsqlcon)
 
           sqlcon.Open()
 
           Dim dr As SqlDataReader cmd.ExecuteReader
            dr
.Read()
 
           If dr.HasRows Then
                tn1
.Text dr(0)
 
               rn1.Text dr(1)
 
               nmbr1.Text dr(2)
 
               nmbr2.Text dr(3)
 
               DateTimePicker1.Value dr(5)
 
               DateTimePicker2.Value dr(6)
 
               DateTimePicker3.Value dr(67)
 
               file.Text dr(8)
 
               why.Text dr(9)
 
               stname.Text dr(10)

 
           Else
                MsgBox
("لا يوجد بيانات للفرد"MsgBoxStyle.Critical"البحث")
 
           End If
 
       Catch ex As Exception
            MsgBox
(ex.Message)
 
       Finally
            sqlcon
.Close()


 
       End Try 
الرد
تم الشكر بواسطة:
#2
أخي عزوز

الحل خصوصا للتاريخ باستخدام البارامتر
ابحث في المنتدى عن كلمة Parameters
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مشكلة في كود الحفظ عاشق الرسول 10 178 16-01-19, 02:43 AM
آخر رد: عاشق الرسول
  مشكلة عند ترحيل البيانات الي اكسل nooralcown 1 64 14-01-19, 02:30 AM
آخر رد: اسامه الهرماوي
  لماذا يحدث مشكلة عند فتح الفورم ShowDialog new_programer 7 170 13-01-19, 10:20 PM
آخر رد: أسامة السالمي
  مشكلة ظهور مفاجيء للأخطاء عند تصدير الداتاجريدفيو كملف PDF ..[تم الحل] Hazem1 0 61 08-01-19, 11:48 AM
آخر رد: Hazem1
  طريقة تكرار الامر تلقائيا | حل مشكلة script error في webbrowser عند فتح صفحة ما soloxocf1 0 59 08-01-19, 07:05 AM
آخر رد: soloxocf1
  مشكلة البرنامج بعد التثبيت ( هام ) salah mansour 5 106 02-01-19, 11:57 PM
آخر رد: salah mansour
  بخصوص مشكلة فى الفيجوال ستوديو( هام ) salah mansour 11 227 02-01-19, 09:47 PM
آخر رد: salah mansour
  مشكلة بعد عمل setup لبرنامج في فيجوال بيسك 2010 السائل 11 236 02-01-19, 05:13 PM
آخر رد: السائل
  [نقاش] مشكلة الطباعة عند المستخدم اسامه الهرماوي 3 100 31-12-18, 12:40 PM
آخر رد: حريف برمجة
  [كود] محتاج مساعدة في الاكواد دي اسامه الهرماوي 6 168 30-12-18, 03:28 PM
آخر رد: alsouf

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم