گزارش گیری

[Bloody Diamond]

با سلام. راستش من یه برنامه برای ویدئوکلوپ با ویژوال بیسیک 6 دارم درست می کنم ولی در گزارش گیری مشکل دارم. وقتی که DataEnvironment رو ایجاد می کنم بعد از اون باید Connection رو ایجاد می کنم که باید آدرس بانک اطلاعاتی رو در properties اون تنظیم کنیم. حالا من می خوام که این عمل رو با کد نویسی انجام بدم چون می خوام برنامه، بانک اطلاعاتی رو از آدرس ریشه برنامه بخونه.

[Rezapcclick]

با سلام. راستش من یه برنامه برای ویدئوکلوپ با ویژوال بیسیک 6 دارم درست می کنم ولی در گزارش گیری مشکل دارم. وقتی که DataEnvironment رو ایجاد می کنم بعد از اون باید Connection رو ایجاد می کنم که باید آدرس بانک اطلاعاتی رو در properties اون تنظیم کنیم. حالا من می خوام که این عمل رو با کد نویسی انجام بدم چون می خوام برنامه، بانک اطلاعاتی رو از آدرس ریشه برنامه بخونه.


سلام دوست عزيز ، اتفاقا من هم در حال نوشتن برنامه كلوپ به صورت كاملا پيشرفته ، با گرافيكي عالي و تهيه نسخه پشتيبان و ..... بقيه امكانات هستم
مشكل شما هم با كد زير حل مي شه .

Public Sub Connect_DataReport_2_ADO( _

ByVal db_file As String, _

ByVal strSQL As String, _
dataRpt As DataReport, _
sectionName As String, _
controlsToBind() As Variant, _
ParamArray relatedFields() As Variant _
)

'Usage:
'Dim controlsToBind() As Variant
'controlsToBind() = Array("text1", "text2")
' Call Connect_DataReport_2_ADO("d:\books.mdb", _
"SELECT * FROM Books", _
DataReport1, _
"Section1", _
controlsToBind(), _
"URL", "Title")
' DataReport1.WindowState = vbMaximized
' DataReport1.Show vbModal
'

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim i As Long

' Open a connection.

Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
conn.Open

' Open the Recordset.

Set rs = conn.Execute(strSQL, , adCmdText)

' Connect the Recordset to the DataReport.

Set dataRpt.DataSource = rs

For i = 0 To UBound(relatedFields())
dataRpt.Sections(sectionName).Controls _
(controlsToBind(i)).DataField = relatedFields(i)

Next i

End Sub




اين كد مشكل تون رو حل خواهد كرد.
فقط براي استفاده از اون كافي است در منوي Project ----Refrence گزينه زير انتخاب و OK كنيد.
MS-Active-X Data Objects 2.0 Library

ضمیمه های حاضر (20.2 کیلوبایت)
http://barnamenevis.org/forum/images/attach/jpg.gif untitled.JPG (http://barnamenevis.org/forum/attachment.php?attachmentid=31329&stc=1&d=1243436647) (20.2 کیلوبایت)
اين عكس فعال كردن گزينه مورد نظر از منوي Refrence