منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

لكن يا أستاذي هذا ليس فيه البحث بين تاريخين معينين
للبحث بين تاريخين أضف الشرط التالي للمثال الموجود في الفيديو :
بحيث أن 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
السلام عليكم كيف حالكم يا كرام 
أريد كود لإرسال البيانات من الداتا جريد فيو بعد الفلترة إلى الوورد
(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 ObjectAs EventArgsHandles 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.RangedataGridView.Columns.Count1)

 
       For i As Integer 1 To dataGridView.Columns.Count
            table
.Cell(1i).Range.Text dataGridView.Columns(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