ذخیره اطلاعات بانک در اکسل

[alizanganeh]

مدیران قبل از پاک کردن تاپیک بخونید :
سلام و خسته نباشید
میخوام اطلاعات بانک رو توی اکسل ذخیره کنم . توی تالار جستجو کردم ولی همه کدهای داخل تالار vb6 کدهای vb.net هستند .

لطفا کدهای vb6 با کامپوننت های مورد نیاز بدید
ممنون

[isaac23]

من از این دستور استفاده می کنم

On Error Resume Next
Set CN = New ADODB.Connection ''''''ÏÓÊæÑ ÐÎíÑå ÏÑ Ç˜Ó
CN.Provider = "Microsoft.Jet.OLEDB.4.0"
CN.ConnectionString = App.Path & "\Dbase.mdb"
CN.Open
''''''''''''''''''''''
Dim i, J, rtot, m
Dim ctot(1 To 4)
'rtot = 0


Dim objExcl As Excel.Application
Set objExcl = New Excel.Application
objExcl.Visible = True
objExcl.SheetsInNewWorkbook = 1
objExcl.Workbooks.Add
objExcl.ActiveSheet.Cells(1, 1).Value = "ردیف"
objExcl.ActiveSheet.Cells(1, 2).Value = "نام"
objExcl.ActiveSheet.Cells(1, 3).Value = "ÊÇÑíÎ (Ñ)"
objExcl.ActiveSheet.Cells(1, 4).Value = "ÊÇÑíÎ (ÎÇáí)"
objExcl.ActiveSheet.Cells(1, 5).Value = "äÇã ãÍÕæá"
objExcl.ActiveSheet.Cells(1, 6).Value = "ÔãÇÑå ÝǘÊæÑ"
objExcl.ActiveSheet.Cells(1, 7).Value = "æÒä ÎÇáÕ"
objExcl.ActiveSheet.Cells(1, 8).Value = "ÞíãÊ"
objExcl.ActiveSheet.Cells(1, 9).Value = "ÔãÇÑå ãÇÔíä"
objExcl.ActiveSheet.Cells(1, 10).Value = "äÇã ÎÑíÏÇÑ"
objExcl.ActiveSheet.Cells(1, 11).Value = "åÒíäå ÊæÒíä"
objExcl.ActiveSheet.Cells(1, 12).Value = "ÌãÚ ˜á"


Set rs = New ADODB.Recordset
rs.Open "select * from T1 ORDER BY fo", CN, adOpenKeyset
J = 3
Do Until rs.EOF
For i = 0 To rs.Fields.Count - 3
objExcl.ActiveSheet.Cells(J, i + 1).Value = rs.Fields(i)
If i > 2 Then
tot = crtot + rs.Fields(i)
End If
Next
objExcl.ActiveSheet.Cells(J, i + 1).Value = rtot
rs.MoveNext
J = J + 1
Loop
Dim k
k = 1
rs.MoveFirst
Do Until rs.EOF
For k = 1 To 4
ctot(k) = ctot(k) + rs.Fields(k + 2)


Next
rs.MoveNext
Loop



فقط نام بانک رو با نام بانک خودت عوض کن و مسیر رو هم اگه نیاز بود تغییر بدید .
ولی بعضی از دیتا گرید ها خودش این امکان رو داره می تونی از اونا استفاده کنی .مثلVSFlexGrid