DataReport

[Ronja666]

Hi Leute,

wollte mal wissen wenn man dieses Datareport benutzt - welche ja soweit ich das gesehen hab über access funktioniert - ob da das Access auf dem rechner installiert sein muss?!?!

danke schon mal im voraus!

Cu Ronja

[God_of_Hellfire]

hi

nein muss es nicht

data report ist ein teil von vb6

gruß

phil

[Ronja666]

ok danke erstmal

cu ronja

[God_of_Hellfire]

hi

wenn du beispiele dazu brauchst kannst dich ja melden

gruss

phil

[Ronja666]

ja - also so das eine oder andere beispiel könnte ich schon gebrauchen weil sich im netz daarüber irgendwie nix finden lässt!

danke

cu ronja

[God_of_Hellfire]

With DataReport1

.Orientation = rptOrientLandscape

'We must set The DataReport source to nothing!

'Else DataReport wants to use its own Source

Set .DataSource = Nothing

' .DataMember = ""

'We Connect the DataReport to our Recordset Since

'we disallowed DataReport1 to use its own above

Set .DataSource = rsa.DataSource 'rsADOTable.DataSource

'Loop Thru the Controls in Section1 of the DataReport

'This binds the first textbox with the first field in the

'Recordset, etc...

With .Sections("Bereich1").Controls

For i = 1 To .Count

'Check to see if they are TextBoxes

If TypeOf .Item(i) Is RptTextBox Then

'The datamember should be always blank while creating dynamic data reports

.Item(i).DataMember = ""

'We are skipping the first feild in the database 'Primary Key'

'If we wanted to include it change the below line to

'.Item(i).DataField = rsADOTable.Fields(i-1).Name

.Item(i).DataField = rsaliste1.Fields(i - 1).Name

End If

Next i

End With

.Show ' Display Out DataReport

End With

das ist ne schleife die textfelder in einem datareport mit daten aus einem ado recordset füllt

gruß

phil

[God_of_Hellfire]

Gute Seite zu VB und Datenbanken

ActiveVB

Ist meiner Meinung nach eine der Besten Seiten zu VB und die User im Forum wissen fast alles *g*

gruß

phil

[Ronja666]

danke , werde es mal versuchen

[God_of_Hellfire]

wenns garnet geht mail mir dein project mal zu

gruss

phil