تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كود استخراج البيانات من داتا جرايد الى الاكسل
#1
PHP كود :
General 
Dim oExcel 
As Object
Dim oBook 
As Object
Dim oSheet 
As Object
Dim r 
As Integer
Dim NumberOfRows 
As Integer
'##################################
Private Sub Export_com_Click
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
'
############### عدد الاعمدة ######################
Dim DataArray(1 To 5001 To 4) As Variant
NumberOfRows 
Adodc1.Recordset.RecordCount
For 1 To NumberOfRows
DataArray
(r1) = Adodc1.Recordset.Fields("user_date")
DataArray(r2) = Adodc1.Recordset.Fields("user_time")
DataArray(r3) = Adodc1.Recordset.Fields("user_log")
DataArray(r4) = Adodc1.Recordset.Fields("user_pc")
Adodc1.Recordset.MoveNext
Next
Set oSheet 
oBook.Worksheets(1)
oSheet.Range("A1:E1").Font.Bold True
oSheet
.Range("A1 :D1").Value = Array("Date""Time""Username""Pc")
oSheet.Range("A2").Resize(NumberOfRows4).Value DataArray
oBook
.SaveAs "D:\King Soft\report.xls"
oExcel.Quit
Adodc1
.Recordset.MoveFirst
MsgBox 
"Report File Saved"64"Info"
end sub 

وذا كانت الداتا بالعربى سوف تظهر دون اى مشكلة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo كيف أضيف صورة الموظف في قاعدة البيانات وفي تقرير الكريستال amazonette 0 394 30-12-19, 01:25 PM
آخر رد: amazonette
  عرض البيانات في فلكس تكرار حامد محمد 5 512 18-08-19, 07:38 AM
آخر رد: Ahmed_Mansoor
  كيفية حماية قاعدة البيانات على الشبكة المحلية من النسخ والحذف abu jana 8 3,780 07-08-19, 11:04 PM
آخر رد: sendbad100
  تقريب الارقام وتخزينها في قاعدة البيانات amal_ly 2 585 29-03-19, 06:01 PM
آخر رد: sendbad100
Exclamation ترتيب البيانات تصاعديا Ashraf Elafify 10 5,554 07-07-18, 07:07 AM
آخر رد: elgokr
  [سؤال] المساعدة - بربط Combo بقاعدة البيانات amor58 1 623 30-01-18, 11:19 PM
آخر رد: Amir_Alzubidy
  [سؤال] تم الحل: مساعدة اخي احمد منصور علي مثالك لنسخ قاعدة البيانات والاتصال بها awidan76 7 846 28-01-18, 06:56 PM
آخر رد: awidan76
  مشكلة بسيطة في مخرجات الاكسل ahmed.m 3 835 13-11-17, 11:02 PM
آخر رد: تركي الحلواني
  كود لحفظ الفرق بين تاريخين الى قاعدة البيانات باستخدام DateDiff دهشوش1 4 1,110 06-11-17, 08:51 PM
آخر رد: دهشوش1
Photo [vb6.0] اريد لو تكرمتو برنامج او مثبت داتا ريبورتdatareport ؟ amer2000 2 770 06-08-17, 07:57 AM
آخر رد: sendbad100

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


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