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



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


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