vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

VB & Datenbanken
Re: mehrere Tausend DS aus Datagrid nach Excel exportieren 
Autor: Mawashigeri
Datum: 02.07.10 17:35
Anbei der Quelltext zum Verständnis

' Zuerst die Routine Alle Datensätze bookmarken
Private Sub AlleDSBookmarken()
On Error Resume Next
Clipboard.Clear
Dim bmk
bmk = Me.DataGrid3.Bookmark

Rs.MoveFirst
Me.Label12.Visible = True

Me.Label12.Caption = "Datensätze werden markiert !"
While Not Rs.EOF
Me.DataGrid3.SelBookmarks.Add Rs.Bookmark

Rs.MoveNext

If Rs.EOF Then
Exit Sub
End If
Wend

End Sub

' Jetzt die Clipboard Routine
private sub Zwischenablage
AlleDSBookmarken

Me.Label12.Caption = " Markierte Datensätze wurden in die Zwischenablage kopiert !"
do while not rs.eof

On Error Resume Next
Clipboard.Clear
rs.movefist
For Each bmk In Me.DataGrid3.SelBookmarks
Me.DataGrid3.SelBookmarks.Add Me.DataGrid3.Bookmark
Me.DataGrid3.Bookmark = bmk
SA2 = SA2 + Me.DataGrid3.Columns.Item(0).Value & vbCrLf
Next bmk
If SA2 = "" Then
MsgBox "Keine Daten in der Zwischenablage"
Exit Sub
End If
Clipboard.SetText SA1 + SA2 'Sa1= zuerst in die Zwischenablage kopierte Spaltenüberschrift, SA2 = Inhalt der Spalten
Exit Sub
rs.movenext
if rs.eof then
exit do
end if
loop
end sub

Beitrag wurde zuletzt am 02.07.10 um 17:41:35 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
mehrere Tausend DS aus Datagrid nach Excel exportieren2.233Mawashigeri29.06.10 11:03
Re: mehrere Tausend DS aus Datagrid nach Excel exportieren1.731wb-soft29.06.10 11:35
Re: mehrere Tausend DS aus Datagrid nach Excel exportieren1.719Mawashigeri01.07.10 06:42
Re: mehrere Tausend DS aus Datagrid nach Excel exportieren1.808wb-soft29.06.10 15:49
Re: mehrere Tausend DS aus Datagrid nach Excel exportieren1.709wb-soft01.07.10 17:59
Re: mehrere Tausend DS aus Datagrid nach Excel exportieren1.805Mawashigeri02.07.10 17:35
Re: mehrere Tausend DS aus Datagrid nach Excel exportieren1.681Franki03.07.10 01:54
Re: mehrere Tausend DS aus Datagrid nach Excel exportieren1.711Mawashigeri03.07.10 12:01
Re: mehrere Tausend DS aus Datagrid nach Excel exportieren1.718Franki03.07.10 22:02
Re: mehrere Tausend DS aus Datagrid nach Excel exportieren1.673wb-soft04.07.10 08:49
Re: mehrere Tausend DS aus Datagrid nach Excel exportieren1.666Mawashigeri04.07.10 10:44
Re: mehrere Tausend DS aus Datagrid nach Excel exportieren1.787Mawashigeri04.07.10 11:33

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-2024 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