(16-06-18, 02:14 PM)abdohassan كتب : السلام عليكم ورحمة الله وبركاتة وكل عام وانتم بخير وسعادة وبعد
ارجو المساعدة في بعض الاكواد
1- كود التنقل بين السجلات واظهار السجل المتواجد فية حاليا
2- كود ارسال بيانات الداتا جريد الي ملف اكسيل
3- كيفية عمل تقرير يومي وبين تاريخين
ليس بالموضوع الصعب اخى الحبيب
لكن نحن فى يومين العيد ومن الصعب
تجد الجميع متواجد هنا لكي يساعد
فعيد سعيد عليك
اولاً بخصوص رقم 1
قم بتوضيح رقم الفورم المطلوب عمل عليه ما تريد
حتى يتم كتابة الكود المناسب بناءاً على المسميات لديك
ثانياً بخضوض رقم 2
فى البداية قم بانشاء الـ
Sub التالى
كود :
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub
ثم بعد ذلك ضع هذا الكود داخل الـ
Buttun
كود :
Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
Dim i As Integer
Dim j As Integer
xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets("sheet1")
For i = 0 To DataGridView1.RowCount - 2
For j = 0 To DataGridView1.ColumnCount - 1
For k As Integer = 1 To DataGridView1.Columns.Count
xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText
xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString()
Next
Next
Next
xlWorkSheet.SaveAs("D:\vbexcel.xlsx")
xlWorkBook.Close()
xlApp.Quit()
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)
MsgBox("You can find the file D:\vbexcel.xlsx")
ثالثاً بخصوص رقم 3
كل ما عليك هو استخدام الاستعلام التالى
كود :
SELECT * FROM nametable WHERE namedate >= date1, namedate <=date2
مع تغيير المسميات حسب ما لديك من مسميات بالجدول
تحياتى لك
وتمنياتى لك التوفيق