تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استعلام بخصوص حقل date
#1
       
السلام عليكم ورحمة الله تعالى وبركاته
الأساتذة الكرام
هذه صورة لجدول به حقل خاصيته date عملت الإستعلام التالي من أجل ملأ قريد فيو الإستعلام هو :
Dim date2 As Date = Now.Date
        Rendez_VDa = New SqlDataAdapter("SELECT * From Rendez_V where Dte_RV = # " & date2.Year.ToString & "/" & date2.Month.ToString & "/" & date2.Day.ToString & " # ORDER BY Dte_RV, Hte_RV", cnn)
فظهرت لي رسالة الخطأ المتمثلة في الصورة الثانية
أرجوا منكم المساعدة
الرد }}}
تم الشكر بواسطة:
#2
سلام

كود :
Using da As New SqlDataAdapter("SELECT * From [Rendez_V] WHERE [Dte_RV]=@Dte_RV ORDER BY [Dte_RV], [Hte_RV]", cnn)
    da.SelectCommand.Parameters.AddWithValue("@Dte_RV", Now.Date)
    Using dt As New DataTable
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Using
End Using

موفقين
متغيب
الرد }}}
تم الشكر بواسطة: سعود , Sajad
#3
ألف شكر لكم أخي الكريم على تفاعلكمك السريع وعلى الإجابة راح أجرب ثم أعلمكم
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

موضوع مخالف

تم النقل الى قسم قواعد البيانات تحت بيئة الـNET.

سيتم حذف أي موضوع مخالف في المرة القادمة ان لم يكن في القسم المناسب

تحياتي
الرد }}}
تم الشكر بواسطة:
#5
الف شكر لكم أخي الكريم على المساعدة تم تجربة الكود وهو يعمل بشكل جيد بفضل الله ثم بعونكم فلكم كل الشكر والإحترام والعفو من السادة المشرفين على خطأ في القسم فمعذرة رجاءا

أخي الكريم لو أردت أن أجعل الاستعلام بين تاريخين بهذا الشكل:
Between #" & DateTimePicker1.Value & "# And #" & DateTimePicker2.Value & "#
فماذا أفعل
ألف شكر لكم
الرد }}}
تم الشكر بواسطة: Sajad , Sajad
#6
سلام

كود :
Using da As New SqlDataAdapter("SELECT * From [Rendez_V] WHERE [Dte_RV] Between @Dte_RV_1 And @Dte_RV_2 ORDER BY [Dte_RV], [Hte_RV]", cnn)
    da.SelectCommand.Parameters.AddWithValue("@Dte_RV_1", DateTimePicker1.Value.Date)
    da.SelectCommand.Parameters.AddWithValue("@Dte_RV_2", DateTimePicker2.Value.Date)
    Using dt As New DataTable
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Using
End Using

موفقين
متغيب
الرد }}}
تم الشكر بواسطة:
#7
الف شكر لكم أخي الكريم أدامك الله
الرد }}}
تم الشكر بواسطة:
#8
السلام عليكم ورحمة الله تعالى وبركاته أخي الكريم هذه الطريقة أعجبتني كثيرا خصوصا أنها تفاديك من الأخطاء ممكن أجد لديكم جميع الأوامر اي Select, Insert, Delet, Update
شكرا لكم
الرد }}}
تم الشكر بواسطة:
#9
سلام

هذه تفضل الاكواد

INSERT
كود :
Public connString As String = "connection string"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try

        Dim rtn As Integer

        Using cnn As New SqlConnection(connString)
            cnn.Open()

            Dim sql As String = _
                "INSERT INTO [table] ([col1], [col2], [col3] ) VALUES (@col1, @col2, @col3 ) "

            Using cmd As New SqlCommand(sql, cnn)
                cmd.Parameters.AddWithValue("@col1", TextBox1.Text.Trim)
                cmd.Parameters.AddWithValue("@col2", CheckBox1.Checked)
                cmd.Parameters.AddWithValue("@col3", DateTimePicker1.Value.Date)

                rtn = cmd.ExecuteNonQuery

            End Using

            cnn.Close()
        End Using

        If rtn > 0 Then
            MsgBox("Inserted.")
        End If

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

UPDATE
كود :
Public connString As String = "connection string"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try

        Dim rtn As Integer

        Using cnn As New SqlConnection(connString)
            cnn.Open()

            Using cmd As New SqlCommand("UPDATE [table] SET [col1]=@col1, [col2]=@col2, [col3]=@col3 ) WHERE [id]=@id", cnn)
                cmd.Parameters.AddWithValue("@col1", TextBox1.Text.Trim)
                cmd.Parameters.AddWithValue("@col2", CheckBox1.Checked)
                cmd.Parameters.AddWithValue("@col3", DateTimePicker1.Value.Date)
                cmd.Parameters.AddWithValue("@id", userid)

                rtn = cmd.ExecuteNonQuery

            End Using

            cnn.Close()
        End Using

        If rtn > 0 Then
            MsgBox("Updated.")
        End If

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

DELETE
كود :
Public connString As String = "connection string"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try

        Dim rtn As Integer

        Using cnn As New SqlConnection(connString)
            cnn.Open()

            Using cmd As New SqlCommand("DELETE FROM [table] [id]=@id", cnn)
                cmd.Parameters.AddWithValue("@id", userid)

                rtn = cmd.ExecuteNonQuery

            End Using

            cnn.Close()
        End Using

        If rtn > 0 Then
            MsgBox("Deleted.")
        End If

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

موفقين
متغيب
الرد }}}
تم الشكر بواسطة:
#10
تسلم أخي الكريم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 1 702 07-11-23, 08:27 AM
آخر رد: justforit
  استفسار عن استعلام في دالة INSTR غدير الصليحي 0 1,001 14-12-21, 02:22 PM
آخر رد: غدير الصليحي
  استفسار عن استعلام في اوراكل مهم اليوم معي اختبار لغدا غدير الصليحي 4 1,634 14-12-21, 12:42 PM
آخر رد: غدير الصليحي
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 964 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم
  ممكن طلاب استعلام بدون تكرار لبيانات بسام محمدغانم 0 1,433 26-12-19, 07:06 AM
آخر رد: بسام محمدغانم
  [SQL] اريد استعلام يظهر لي الناتج بهذه الصورة alfaiz678 8 3,394 30-11-19, 12:16 PM
آخر رد: alfaiz678
  استعلام في الأكسيس Adilo idabdellah 0 1,257 16-09-19, 09:16 PM
آخر رد: Adilo idabdellah
  [VB.NET] Date & Time Error in mssql server data base & VB.net HazemOrasa 1 1,606 03-07-19, 01:03 PM
آخر رد: اسامه الهرماوي
  [VB.NET] استعلام متقدم محمد اسماعيل 5 2,517 13-05-19, 12:03 AM
آخر رد: elgokr
Photo سؤال بخصوص ميزان مراجعه faysal13_13@hotmail.com 5 2,369 12-05-19, 05:00 PM
آخر رد: elgokr

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


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