Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Autowert in Tabelle Zurücksetzen?
  • wolf3301.02.12 17:35
       └ RE: Autowert in Tabelle Zurücksetzen? Karl Donaubauer01.02.12 18:02
          └ RE: Autowert in Tabelle Zurücksetzen? wolf3301.02.12 18:26
             └ RE: Autowert in Tabelle Zurücksetzen? Karl Donaubauer01.02.12 18:42
                └ RE: Autowert in Tabelle Zurücksetzen? wolf3301.02.12 19:02
                   └ RE: Autowert in Tabelle Zurücksetzen? Karl Donaubauer01.02.12 19:10
  • Zahlen formatieren
  • albe31.01.12 11:43
       └ RE: Zahlen formatieren Karl Donaubauer31.01.12 11:55
  • Datei-Attribut AI
  • wolf3320.01.12 18:35
       └ RE: Datei-Attribut AI Karl Donaubauer21.01.12 13:14
          └ RE: Datei-Attribut AI wolf3325.01.12 20:02
  • Ereignis im Registersteuerelement
  • maikh125.01.12 15:00
       └ RE: Ereignis im Registersteuerelement Thomas Franzek25.01.12 15:28
          └ RE: Ereignis im Registersteuerelement maikh125.01.12 15:34
             └ RE: Ereignis im Registersteuerelement Karl Donaubauer25.01.12 19:30
  • VBA-Filter in geteilter Ansicht
  • eric24.01.12 17:23
       └ RE: VBA-Filter in geteilter Ansicht PeterDoering24.01.12 18:44
          └ RE: VBA-Filter in geteilter Ansicht eric24.01.12 19:54
             └ RE: VBA-Filter in geteilter Ansicht LÖSUNG eric25.01.12 07:58
  • Datentransver SQLServer->Excel quälend langsam
  • eklinkow20.01.12 09:28
       └ RE: Datentransver SQLServer->Excel quälend la... PeterDoering21.01.12 17:01
          └ RE: Datentransver SQLServer->Excel quäle... eklinkow23.01.12 00:18
             └ RE: Datentransver SQLServer->Excel quälen... PeterDoering23.01.12 23:29
                └ RE: Datentransver SQLServer->Excel quäl... eklinkow25.01.12 00:23
  • Bedingte Formatierung Performance
  • eric06.01.12 11:17
       └ RE: Bedingte Formatierung Performance Karl Donaubauer10.01.12 16:37
          └ RE: Bedingte Formatierung Performance eric20.01.12 13:28
             └ RE: Bedingte Formatierung Performance PeterDoering21.01.12 16:55
                └ RE: Bedingte Formatierung Performance eric24.01.12 16:46
                   └ RE: Bedingte Formatierung Performance PeterDoering24.01.12 18:01
  • Endlosformular mit Eingabefelder und berechnete Fe...
  • HerrAlexander19.01.12 11:38
       └ RE: Endlosformular mit Eingabefelder und berechn... Karl Donaubauer19.01.12 13:31
          └ RE: Endlosformular mit Eingabefelder und berec... HerrAlexander23.01.12 08:41
  • ADO-Verweis - Welchen soll ich nehmen?
  • Georg M02.01.12 08:31
       └ RE: ADO-Verweis - Welchen soll ich nehmen? PeterDoering02.01.12 11:41
          └ RE: ADO-Verweis - Welchen soll ich nehmen? Georg M16.01.12 21:16
             └ RE: ADO-Verweis - Welchen soll ich nehmen? PeterDoering21.01.12 16:46
          └ RE: ADO-Verweis - Welchen soll ich nehmen? juengling21.01.12 11:13
             └ RE: ADO-Verweis - Welchen soll ich nehmen? PeterDoering21.01.12 16:49
  • Kombilist-Abfrage in Access 2007 mit Inhalt von we...
  • bkleine14.01.12 13:49
       └ RE: Kombilist-Abfrage in Access 2007 mit Inhalt ... Karl Donaubauer14.01.12 18:47
          └ RE: Kombilist-Abfrage in Access 2007 mit Inhal... bkleine17.01.12 11:06
  • Im Sicherheitsgestrüppverheddert
  • wolf3315.01.12 22:10
       └ RE: Im Sicherheitsgestrüppverheddert PeterDoering15.01.12 23:59
          └ RE: Im Sicherheitsgestrüpp verheddert wolf3316.01.12 22:35
  • Bericht - Unterformular verliert Focus beim Druck
  • peacemaker9115.01.12 22:01
       └ RE: Bericht - Unterformular verliert Focus beim ... PeterDoering15.01.12 23:30
          └ RE: Bericht - Unterformular verliert Focus bei... peacemaker9116.01.12 12:07
  • Beziehung der Daten
  • sunshine7767715.01.12 07:28
       └ RE: Beziehung der Daten PeterDoering16.01.12 00:06
       └ RE: Beziehung der Daten sunshine7767716.01.12 08:48
  • Username auslesen unter Access Runtime 2007/2010
  • jerry_lee_lewis12.01.12 14:27
       └ RE: Username auslesen unter Access Runtime 2007/... Karl Donaubauer14.01.12 20:23
  • Enter-Taste wechselt Datensatz (Access 2003)
  • Christian Kehl11.01.12 16:37
       └ RE: Enter-Taste wechselt Datensatz (Access 2003) PeterDoering11.01.12 18:05
       └ RE: Enter-Taste wechselt Datensatz (Access 2003) Karl Donaubauer11.01.12 19:17
       └ RE: Enter-Taste wechselt Datensatz (Access 2003) Christian Kehl12.01.12 14:22
    eklinkow
    Gesendet: 23.01.12 00:18
    Betreff: RE: Datentransver SQLServer->Excel quälend langsam


    New user

    Beiträge: 3

    Servus Peter,

    hier der Code ohne Deklarations und Fehlerbehandlungsteil:

    ...
    ' Testen ob Connection aktiv und wenn nicht Global Connection initialisieren
    If Not OpenConnection Then Exit Sub
    strSPName = "mediserv.spExcelMsdveExportBulk"
    ' Set rst = fnCMDExecuteSP_RS(strSPName, vbNullString, vbNullString)

    'Command Object instanziieren
    strSPName = "mediserv.spExcelMsdveExportBulk"
    Set cmdADO = New ADODB.Command
    cmdADO.CommandText = strSPName
    cmdADO.CommandType = adCmdStoredProc
    cmdADO.ActiveConnection = gcnn
    cmdADO.Parameters.Refresh

    'Recordset Instanzieeren (cmdAdo liefert Container von SQL Server ... blitzschnell)
    Set rst = New ADODB.Recordset
    With rst
    .CursorType = adOpenStatic
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open cmdADO
    End With

    iRows = rst.RecordCount

    On Error Resume Next
    Set xlAPP = GetObject("Excel.application")
    If Err.Number <> 0 Then
    Set xlAPP = CreateObject("Excel.application")
    End If
    Err.Clear
    On Error GoTo Handle_Err

    Set xlWB = xlAPP.Workbooks.Add
    Set xlWS = xlWB.Worksheets(1)
    xlAPP.visible = False
    xlAPP.EnableEvents = False
    xlAPP.ScreenUpdating = False


    'Application.Echo
    ' xlWS.Cells.Delete, nur in Verbindung mit vorhandenem xlWS

    ' Variante 1 - seeeehr Langsam
    i = 1
    Do While rst.EOF = False
    For lngColumn = 0 To rst.Fields.Count - 1
    xlWS.Cells(i, lngColumn + 1).Value = rst.Fields(lngColumn).Value
    Next lngColumn
    rst.MoveNext
    i = i + 1
    Debug.Print i
    Loop


    ' Variante 2 noch langsamer
    ' i = 1
    ' For i = 1 To iRows
    ' xlWS.Cells(i, "A").CopyFromRecordset rst
    ' Debug.Print i
    ' Next


    xlAPP.visible = True
    xlAPP.EnableEvents = True
    xlAPP.ScreenUpdating = True

    .....

    Variante 2 flitzt z.B. nur so dahin wenn sie in Excel ausgeführt wird :-()
    Viele Grüße

    Emil
    Top of the page Bottom of the page


    Seite: < 76 77 78 79 80 81 ... 82 83 84 85 86 87 88 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)