منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] سؤال - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] سؤال (/showthread.php?tid=47563)

سؤال - محمد العموري - 05-12-23

أريد كود 
البحث بين تاريخين علما أن قاعدة البيانات sql 
والاتصال منفصل عن طريق داتا سيت وتعرض في داتا جريد فيو

RE: سؤال - Taha Okla - 05-12-23

شاهد هذا الفيديو وستحصل على أكثر مما طلبت وبأبسط الطرق في مشروع بسيط :
البحث المتعدد-خالد السعدني

RE: سؤال - محمد العموري - 06-12-23

(05-12-23, 02:37 AM)Taha Okla كتب : شاهد هذا الفيديو وستحصل على أكثر مما طلبت وبأبسط الطرق في مشروع بسيط :
البحث المتعدد-خالد قد تابعت هذا وجميع دوراتك يا أستاذ خالد شكرا لك أولا جميل أنني وجدت فرصة لأوصل لك شكري 

لكن يا أستاذي هذا ليس فيه البحث بين تاريخين معينين


RE: سؤال - Taha Okla - 06-12-23

للبحث بين تاريخين أضف الشرط التالي للمثال الموجود في الفيديو :
بحيث أن Date1  , Date2  هما التاريخان المراد البحث بينهما

كود :
dv.RowFilter = "Publish_Date >='" + Date1 + "' AND Publish_Date <= '" + Date2 + "'"

اذا كان نوع الحقل في DataTable من نوع تاريخ و وقت : أكتب التاريخ و الوقت ضمن أي صيغة من صيغة التاريخ والوقت وكما تريد.

أما إذا كان الحقل من نوع نصي (String)   فعليك كتابة التاريخ بالترتيب كما في الأرقام العادية:
أي من اليسار لليمين .. وتكتب الشهر واليوم على خانتين حتى لو كان رقم من خانة وحيدة والسنة أربع خانات.
أقصد السنة على اليسار ثم الشهر على اليمين ثم الايام على يمين الشهر :
مثلاً أكتب هكذا: 2023/01/05  
أو 2023/07/17
أو 2023/11/18

وليس : 01/02/2023
وليس :1/5/2023
وليس : 2023/6/4

RE: سؤال - محمد العموري - 10-12-23

السلام عليكم كيف حالكم يا كرام 
أريد كود لإرسال البيانات من الداتا جريد فيو بعد الفلترة إلى الوورد

RE: سؤال - تركي الحلواني - 11-12-23

(10-12-23, 05:12 PM)محمد العموري كتب : السلام عليكم كيف حالكم يا كرام 
أريد كود لإرسال البيانات من الداتا جريد فيو بعد الفلترة إلى الوورد

PHP كود :
Imports Microsoft.Office.Interop.Word

Public Class Form1
    Dim wordApp As Application
    Dim doc As Document

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' تهيئة Word
        wordApp = New Application()
        doc = wordApp.Documents.Add()
    End Sub

    Private Sub btnExportToWord_Click(sender As Object, e As EventArgs) Handles btnExportToWord.Click
        ExportToWord(dataGridView1)
    End Sub

    Private Sub ExportToWord(dataGridView As DataGridView)
        ' إضافة العناوين الخاصة بالأعمدة إلى المستند Word
        Dim table As Table = doc.Tables.Add(doc.Range, dataGridView.Columns.Count, 1)

        For i As Integer = 1 To dataGridView.Columns.Count
            table.Cell(1, i).Range.Text = dataGridView.Columns(i - 1).HeaderText
        Next

        ' إضافة البيانات إلى المستند Word
        For i As Integer = 0 To dataGridView.Rows.Count - 1
            table.Rows.Add()
            For j As Integer = 0 To dataGridView.Columns.Count - 1
                table.Cell(i + 2, j + 1).Range.Text = dataGridView(j, i).Value.ToString()
            Next
        Next
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        ' إغلاق Word عند إغلاق النافذة
        If wordApp IsNot Nothing Then
            wordApp.Quit()
        End If
    End Sub
End Class