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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • VBA externe Datenbank Abfragewerte an Tabelle anfü...
  • indy087813.04.12 15:54
       └ RE: VBA externe Datenbank Abfragewerte an Tabell... Henry25.04.12 04:48
          └ RE: VBA externe Datenbank Abfragewerte an T... indy087827.04.12 22:07
  • Startnummern vergeben
  • bkleine25.04.12 17:35
       └ RE: Startnummern vergeben Acki25.04.12 21:29
          └ RE: Startnummern vergeben bkleine26.04.12 18:58
             └ RE: Startnummern vergeben Acki26.04.12 19:48
  • Operation muss eine aktualisierbare Abfrage verwen...
  • HEINZ.GIMMLER26.04.12 08:39
       └ RE: Operation muss eine aktualisierbare Abfrage ... Henry26.04.12 12:14
  • User-Symbolleiste aus ACC2003 --> 2010
  • RichardHoetger26.04.12 10:12
  • Sperren bei Auschecken
  • thaenhusen12.04.12 07:32
       └ RE: Sperren bei Auschecken Henry25.04.12 04:53
  • Access 2010 Datenbank reparieren
  • Weco23.04.12 15:21
       └ RE: Access 2010 Datenbank reparieren Henry25.04.12 04:37
  • Information anzeigen
  • wolf3323.04.12 17:42
       └ RE: Information anzeigen StefanWirrer24.04.12 08:45
       └ RE: Information anzeigen Henry25.04.12 04:34
  • ACC2010-Bericht: Grouplevel
  • marc11224.04.12 13:10
  • Access 2010 Formular
  • moellfe23.04.12 01:39
  • Module verschwunden (korrupt?)
  • hoeglmeier22.04.12 15:18
       └ RE: Module verschwunden (korrupt?) Acki22.04.12 15:52
          └ RE: Module verschwunden (korrupt?) hoeglmeier22.04.12 16:26
             └ RE: Module verschwunden (korrupt?) Acki22.04.12 17:09
                └ RE: Module verschwunden (korrupt?) hoeglmeier22.04.12 17:18
                   └ RE: Module verschwunden (korrupt?) Acki22.04.12 20:50
                      └ RE: Module verschwunden (korrupt?) hoeglmeier22.04.12 23:24
                   └ RE: Module verschwunden (korrupt?) Acki22.04.12 20:54
  • OCR mit Microsoft Office Document Imaging Viewer
  • 199Lurin13.04.12 09:59
       └ RE: OCR mit Microsoft Office Document Imaging Vi... wolf3313.04.12 16:21
          └ RE: OCR mit Microsoft Office Document Imaging ... 199Lurin17.04.12 13:15
       └ RE: OCR mit Microsoft Office Document Imaging Vi... PeterDoering18.04.12 15:12
          └ RE: OCR mit Microsoft Office Document Imaging ... 199Lurin19.04.12 12:41
          └ RE: OCR mit Microsoft Office Document Imaging ... 199Lurin21.04.12 13:32
  • Formel
  • Rolf Moetz16.04.12 21:34
       └ RE: Formel Karl Donaubauer17.04.12 18:51
  • Absichern Source-Code gegen Zugriff
  • wolf3312.04.12 11:44
       └ RE: Absichern Source-Code gegen Zugriff StefanWirrer12.04.12 14:25
          └ RE: Absichern Source-Code gegen Zugriff wolf3312.04.12 18:25
             └ RE: Absichern Source-Code gegen Zugriff Karl Donaubauer13.04.12 20:00
  • Aktualisierung Datensatz über ein Textfeld?
  • milo11.04.12 19:52
       └ RE: Aktualisierung Datensatz über ein Textfeld? Karl Donaubauer11.04.12 23:23
          └ RE: Aktualisierung Datensatz über ein Textfeld? milo12.04.12 09:07
             └ RE: Aktualisierung Datensatz über ein Textfeld? Karl Donaubauer12.04.12 18:27
                └ RE: Aktualisierung Datensatz über ein Text... milo13.04.12 08:43
  • Access 2003 auf Windows Server 2008 R2 64bit
  • navisioner12.04.12 21:18
       └ RE: Access 2003 auf Windows Server 2008 R2 64bit Acki12.04.12 22:24
          └ RE: Access 2003 auf Windows Server 2008 R2 64bit navisioner13.04.12 07:59
    indy0878
    Gesendet: 27.04.12 22:07
    Betreff: RE: VBA externe Datenbank Abfragewerte an Tabelle anfügen


    Hallo Henry,

    das wäre ja auch kein problem .
    allerdings habe ich dann eine ständig verknüpfte Tabelle zu der DB2 Datenbank und das wollte ich eingentlich vermeiden.Ich möchte nur die Verbindung zur Datenbank aufbauen während der Abfrage.
    Ich bin jetzt schon soweit das ich die Daten in der Abfrage zwar in die Lokale Tabelle schreiben kann, allerding nur mit einer Schleife Datensatz für Datensatz und das dauert zu lange.
    Momentan nutze ich folgenden Code.
    ----------------------------------------------------------------------------------------------------------
    Sub Start_Ausgabe()

    Set condb = New ADODB.Connection
    host_ip = "xxx.xxx.xxx.xxx"
    library = "libary"
    Const host_user As String = "login"
    Const host_pwd As String = "password"
    condb.Open "DRIVER={iSeries Access ODBC Driver};UID=" & host_user & ";PWD=" & host_pwd & ";SYSTEM=" & host_ip & ";DBQ=" & library & ";DFTPKGLIB=QGPL;LANGUAGEID=ENU;PKG=QGPL/DEFAULT(IBM),2,0,1,0,512;SIGNON=1"

    Dim rec As ADODB.Recordset
    Set rec = New ADODB.Recordset
    Dim strSQL As String

    'Daten auslesen
    strSQL = "select tziden,tzbez1 from pbfstss where tzkonz='308' and tzfirm='010' "

    rec.CursorLocation = adUseClient
    rec.Open strSQL, condb, adOpenForwardOnly, adLockReadOnly
    rec.MoveFirst
    While Not rec.EOF
    On Error Resume Next

    '------> an lokale Tabelle anfügen
    With CurrentDb().OpenRecordset("Artikel", dbOpenDynaset, dbAppendOnly)
    .AddNew
    ![Artikel] = (rec.Fields(0))
    ![Bezeichnung] = (rec.Fields(1))
    .Update
    End With
    rec.MoveNext
    Wend
    GoTo ENDE2
    ENDE2:
    condb.Close
    ENDE1:

    End Sub
    --------------------------------------------------------------------------------------------

    Gibt es denn eine Möglichkeit die Daten auf einmal in die lokale Tabelle zu schreiben - in Excel geht das auch.

    Da nutze ich einfach folgenden Code:
    -------------------------------------------------------------------------------------------------------------------------------
    Option Explicit

    Dim host_ip As String
    Dim brary As String
    '****************** SQL-User *********************************
    Const host_user As String = "login"
    Const host_pwd As String = "password"
    '*************************************************************

    Sub Auswertung()

    Dim command_sql As String
    Dim connexion As String
    Dim datum As String

    '*********************************************
    command_sql = "select tziden,tzbez1 from pbfstss where tzkonz='308' and tzfirm='010' "


    host_ip = "xxx.xxx.xxx.xxx"
    library = "library"

    connexion = "ODBC;DRIVER={iSeries Access ODBC Driver};UID=" & host_user & _
    ";PWD=" & host_pwd & ";SYSTEM=" & host_ip & ";DBQ=" & library & ";DFTPKGLIB=QGPL;" & _
    "LANGUAGEID=ENU;PKG=QGPL/DEFAULT(IBM)," & _
    "2,0,1,0,512;SIGNON=1"

    '*** Ausgabe ************************************************************
    Workbooks.Add
    Sheets("Tabelle1").Name = "Result"
    Application.ScreenUpdating = False

    With ActiveSheet.QueryTables.Add(Connection:=connexion, Destination:=Range("A1"))
    .CommandText = command_sql
    .Refresh BackgroundQuery:=False

    Application.ScreenUpdating = True
    Application.DisplayAlerts = False

    End With
    End Sub

    -----------------------------------------------------------------------------------

    Hier werden die Daten auf einem Rutsch ausgegeben, und ich denke das wird bei Access auch gehen.
    Hast du da vielleicht noch eine Idee?

    Besten Dank im vorfeld schonmal & Grüße

    Indy



















    Top of the page Bottom of the page


    Seite: < 61 62 63 64 65 66 ... 67 68 69 70 71 72 73 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)