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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Umstellungsprobleme 64-Bit
  • Roland13.02.12 13:24
       └ RE: Umstellungsprobleme 64-Bit maikh113.02.12 13:47
       └ RE: Umstellungsprobleme 64-Bit Karl Donaubauer13.02.12 14:21
          └ RE: Umstellungsprobleme 64-Bit Roland14.02.12 13:10
  • Stammtisch in Wien / Wr. Neustadt?
  • Gerhard Jüttner13.02.12 12:35
       └ RE: Stammtisch in Wien / Wr. Neustadt? Karl Donaubauer13.02.12 14:02
          └ RE: Stammtisch in Wien / Wr. Neustadt? Gerhard Jüttner13.02.12 16:59
  • Unterformular syncronisieren
  • pwakolbi10.02.12 10:52
       └ RE: Unterformular syncronisieren Karl Donaubauer10.02.12 17:24
          └ RE: Unterformular syncronisieren pwakolbi11.02.12 11:17
             └ RE: Unterformular syncronisieren Karl Donaubauer11.02.12 18:40
                └ RE: Unterformular syncronisieren pwakolbi12.02.12 12:46
                   └ RE: Unterformular syncronisieren Karl Donaubauer13.02.12 16:11
  • *.mde Datei erstellen MS Access 2002 unter Windows...
  • markus_tirol10.02.12 18:58
       └ RE: *.mde Datei erstellen MS Access 2002 unter W... Karl Donaubauer10.02.12 19:18
  • Eingrenzung Auswertung
  • v8rolli09.02.12 13:00
       └ RE: Eingrenzung Auswertung Karl Donaubauer09.02.12 15:13
          └ RE: Eingrenzung Auswertung v8rolli09.02.12 16:49
             └ RE: Eingrenzung Auswertung Karl Donaubauer09.02.12 17:31
  • Gültigkeitsregel eines Feldes ändern
  • wa25005.02.12 19:42
       └ RE: Gültigkeitsregel eines Feldes ändern wa25005.02.12 19:59
          └ RE: Gültigkeitsregel eines Feldes ändern Karl Donaubauer06.02.12 21:08
             └ RE: Gültigkeitsregel eines Feldes ändern wa25006.02.12 21:19
  • Access Stammtisch München am 09.02.2012 (Do)
  • StefanWirrer06.02.12 15:16
  • Geisterfeld in Formular-Datenblattansicht
  • burk27.01.12 09:46
       └ RE: Geisterfeld in Formular-Datenblattansicht Karl Donaubauer27.01.12 10:20
          └ RE: Geisterfeld in Formular-Datenblattansicht burk27.01.12 11:18
          └ RE: Geisterfeld in Formular-Datenblattansicht burk27.01.12 11:28
             └ RE: Geisterfeld in Formular-Datenblattansicht Karl Donaubauer27.01.12 11:38
                └ RE: Geisterfeld in Formular-Datenblattansicht burk27.01.12 11:44
                   └ RE: Geisterfeld in Formular-Datenblattansicht Karl Donaubauer27.01.12 12:54
                      └ RE: Geisterfeld in Formular-Datenblatt... burk06.02.12 11:18
  • Multiplikation von Feldern
  • schweha02.02.12 19:24
       └ RE: Multiplikation von Feldern Karl Donaubauer02.02.12 22:34
          └ RE: Multiplikation von Feldern schweha03.02.12 13:42
             └ RE: Multiplikation von Feldern Karl Donaubauer03.02.12 18:38
                └ RE: Multiplikation von Feldern schweha03.02.12 19:51
  • 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
    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: < 60 61 62 63 64 65 ... 66 67 68 69 70 71 72 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)