تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة داخل البوتن Mohamed Magdy 5 34 أمس, 10:04 PM
آخر رد: XBOOBX
  مشكلة فى التعديل salah mansour 7 104 15-10-18, 02:39 PM
آخر رد: فراس محي
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 57 13-10-18, 03:53 PM
آخر رد: mervandzz
  مشكلة فى اختفاء فورم salah mansour 0 40 12-10-18, 01:47 AM
آخر رد: salah mansour
  [VB.NET] مشكلة بكود التحديث لقاعدة البيانات محمد اسماعيل 4 95 11-10-18, 06:45 AM
آخر رد: محمد اسماعيل
  مشكلة فى تشغيل قارئ من بين جميع القراء ابو روضة 10 230 10-10-18, 12:00 AM
آخر رد: AymanRamadanSaad
  [VB.NET] مشكلة في كود تغيير لغة البرنامج ay.alhaj 13 221 09-10-18, 08:52 PM
آخر رد: ay.alhaj
  [سؤال] مشكلة في إرسال بيانات من الفيجوال الى الوورد سعود الشامان 7 357 08-10-18, 01:56 AM
آخر رد: عبد العزيز البسكري
  مشكلة الكرستال ريبورت DOX.1 1 48 07-10-18, 07:43 PM
آخر رد: rnmr
Photo [VB.NET] مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة monm 5 138 05-10-18, 12:26 PM
آخر رد: asemshahen5

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


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