چاپ عكس در ديتا ريپورت

[sscaerott]

سلام من در ديتا بيس ام از كدهاي sqlاستفاده نكردم و sql serverهم ندارم اگه ميشه يه جوري به من اموزش بدهيد كه چطوري ميشه عكس در data report قرار داد با استفاده از common dialog
تشكر

[65hosein]

سلام

چاپ عكس در ديتا ريپورت

سلام من در ديتا بيس ام از كدهاي sqlاستفاده نكردم و sql serverهم ندارم اگه ميشه يه جوري به من اموزش بدهيد كه چطوري ميشه عكس در data report قرار داد با استفاده از common dialog
تشكر

برای استفاده از کدهای اس کیو ال در ویژوال بیسیک نیازی به نصب و داشتن sql server نیست. بلکه شما می تونید در بدنه کد نویسی برنامه تون از کدهای اس کیو ال برای جستجو درج، ویرایش و ... استفاده کنید که خاصیت این کدها سرعت اجرای بالا و همچنین اشتباهات و کد نویسی های کمتر می باشد.
[/align]Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim cn As New ADODB.Connection
Dim strSQL As String
cn.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.JET.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\database\ADDRBOOK.mdb"

strSQL = "Select * from HouseHold "

With cmd
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = " SHAPE {" & strSQL & "} AS cmdGroup Compute cmdGroup BY 'Country'"
.Execute
End With

With rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.Open cmd
End With

With DataReport3
Set .DataSource = rs
.DataMember = ""
'this for group header
With .Sections("section2").Controls
.Item("Text1").DataField = "Country"
End With
'this for group details
With .Sections("Section1").Controls
.Item("Text2").DataMember = "cmdGroup"
.Item("Text2").DataField = "HouseholdName"
.Item("Text3").DataMember = "cmdGroup"
.Item("Text3").DataField = "Address"
End With
.Refresh
.Show
End With
[align=left]

الان وقت ندارم به امید خدا سر فرصت توضیحاتشون هم می ذارم