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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] حل مشكلة {"This OleDbTransaction has completed; it is no longer usable."} محمد صلاح ابراهيم 0 8 منذ 2 ساعة مضت
آخر رد: محمد صلاح ابراهيم
Exclamation ما هذا ؟ مشكلة في اداة ShockwaveFlash لعرض فيديوهات الـ Youtube YousefOkasha 6 68 منذ 9 ساعة مضت
آخر رد: YousefOkasha
  مشكلة فى استدعاء الفاتورة للتعديل عليها atef_020 27 371 21-07-18, 10:23 PM
آخر رد: atefkhalf2004
  [VB.NET] كيف يمكن تفادي مشكلة اقلاع البرنامج اكثر من مرة larbihamri 4 84 20-07-18, 03:29 AM
آخر رد: YousefOkasha
  مشكلة ظهور الارقام في تقرير الكريستال ريبورت باللغة الانجليزية محمد صلاح ابراهيم 1 57 15-07-18, 05:07 PM
آخر رد: elgokr
Exclamation مشكلة في تثبيت Visual Studio 2013 YousefOkasha 7 299 13-07-18, 10:33 PM
آخر رد: YousefOkasha
  [سؤال] مشكلة عند عمل رن للمشروع khaled_2017 9 171 13-07-18, 07:32 PM
آخر رد: elgokr
  [VB.NET] مشكلة عند اضافة البيانات للسيرفر محمد اسماعيل 7 99 11-07-18, 04:28 AM
آخر رد: elgokr
  [VB.NET] مشكلة في الكريستال ريبورت فراس الغزي 1 61 09-07-18, 03:00 PM
آخر رد: elgokr
  مشكلة في ال .NETFramework YousefOkasha 18 191 01-07-18, 03:33 AM
آخر رد: elgokr

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


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