vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Datagrid drucken 
Autor: Heiner
Datum: 07.03.03 15:03

Hallo Leute!

Ich habe folgendes Problem.
Ich möchte ein Datagrid drucken das aus einer Namensspalte und einer Geburtstagsspalte besteht. Die Daten lese ich aus einer Datenbank in das Datagrid über die ADOC oder per Recordset ein. ich bekomme immer nur den jeweiligen Namen und in der nächsten Zeile das Geburtsdatum gedruckt möcht dies aber hintereinander drucken.

Im Vorraus besten Dank

Euer Heiner

PS: Mein Quellcode

Option Explicit
Dim Namen As String

Private Sub Drucken_Click_Click()
Connect

Dim ADORS As New ADODB.Recordset

With ADORS
.ActiveConnection = ADOConn
.Source = "Stammdaten_persoenlich"
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Options:=adCmdTable
End With
Printer.Print
Printer.ScaleTop = 100
Printer.ScaleLeft = 100


ADORS.MoveFirst

Do While Not ADORS.EOF
If Not ADORS.EOF Then

Printer.Print ADORS!Namen
Printer.Print ADORS!Geburtsdatum
ADORS.MoveNext
End If
Loop

Printer.EndDoc
ADORS.Close
ADOConn.Close
End Sub

Private Sub Ende_Click_Click()
Unload Me
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Datagrid drucken57Heiner07.03.03 15:03
Re: Datagrid drucken200michi-bib07.03.03 15:17

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel