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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb مشكلة عند حفظ الفاتورة atef_020 19 304 18-04-18, 08:44 PM
آخر رد: ismail abdullah
  المساعدة - في حل مشكلة حجم الفورم Mohamed El Meziani 1 51 18-04-18, 02:39 AM
آخر رد: ملهمـ
  [كود] حل مشكلة داتا سورس (ليست بوكس ) عبدالرحمن المكاوي 7 629 16-04-18, 08:36 PM
آخر رد: عبدالرحمن المكاوي
  حل مشكلة في الفيجوال بيسك عبدالرحمن المكاوي 5 57 16-04-18, 11:33 AM
آخر رد: عبدالرحمن المكاوي
  مشكلة فى اضافة windows media player محمد البلتاجى 2 46 15-04-18, 10:01 AM
آخر رد: ابو روضة
Rainbow مشكلة تشغيل من اليوتيوب vb.net aldery 2 79 12-04-18, 07:38 PM
آخر رد: aldery
  [VB.NET] مشكلة اثناء فتح البرنامج والوقت قد تم الانتهاء لايتضلل بالاحمر 0theghost0 1 62 12-04-18, 10:26 AM
آخر رد: 0theghost0
  [VB.NET] مشكلة عند وضع فورم التظليل محمد اسماعيل 2 77 08-04-18, 10:32 PM
آخر رد: محمد اسماعيل
  [VB.NET] مشكلة بالمصفوفات محمد اسماعيل 5 123 07-04-18, 04:54 PM
آخر رد: محمد اسماعيل
  مشكلة عدم ظهور رقم الهارديسك والمعالج المتألق9 7 169 03-04-18, 05:41 AM
آخر رد: emamtron2014

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


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