Thema Datum  Von Nutzer Rating
Antwort
22.03.2020 21:12:35 Frank
NotSolved
23.03.2020 06:45:15 Mase
NotSolved
23.03.2020 08:41:56 Frank
NotSolved
23.03.2020 10:01:59 Mase
NotSolved
Rot Parameter
 23.03.2020 12:10:22 Gast8104
NotSolved
23.03.2020 13:08:29 Mase
NotSolved
23.03.2020 22:36:36 Frank
NotSolved
24.03.2020 05:49:01 Mase
NotSolved
24.03.2020 09:41:54 Frank
NotSolved
24.03.2020 14:39:59 Frank
NotSolved
26.03.2020 21:28:30 Frank
NotSolved

Ansicht des Beitrags:
Von:
Gast8104		 Datum:
23.03.2020 12:10:22		 Views:
612		 Rating:
     
Antwort:
  Ja
Thema:
Parameter

Hab dich nicht richtig verstanden, wenn ich mein verkürztes sql als Makro eingebe sieht das ganze so aus

 

Sub Test1()
'
' Test1 Makro
'

'
    With ActiveWorkbook.Connections("Abfrage von PostgreSQL2104").ODBCConnection
        .BackgroundQuery = True
strSQL = " select id_training  "
strSQL = strSQL & " from journal "
strSQL = strSQL & " where CAST(timestamp AS VARCHAR ) > '2020-03-13%' "
.CommandText = strSQL

        .CommandType = xlCmdSql
        .Connection = Array(Array(
        "ODBC;DSN=PostgreSQL210;DATABASE=club;SERVER=192.168.10.21;PORT=5432;UID=postgres;;SSLmode=disable;ReadOnly=0;Protocol=7.4;FakeOidInd" _
        ), Array( _
        "ex=0;ShowOidColumn=0;RowVersioning=0;ShowSystemTables=0;Fetch=100;UnknownSizes=0;MaxVarcharSize=255;MaxLongVarcharSize=8190;Deb" _
        ), Array( _
        "ug=0;CommLog=0;UseDeclareFetch=0;TextAsLongVarchar=1;UnknownsAsLongVarchar=0;BoolsAsChar=1;Parse=0;ExtraSysTablePrefixes=;LFCon" _
        ), Array( _
        "version=1;UpdatableCursors=1;TrueIsMinus1=0;BI=0;ByteaAsLongVarBinary=1;UseServerSidePrepare=1;LowerCaseIdentifier=0;XaOpt=1" _
        ))
        .RefreshOnFileOpen = False
        .SavePassword = False
        .SourceConnectionFile = ""
        .SourceDataFile = ""
        .ServerCredentialsMethod = xlCredentialsMethodIntegrated
        .AlwaysUseConnectionFile = False
    End With
    With ActiveWorkbook.Connections("Abfrage von PostgreSQL2104")
        .Name = "Abfrage von PostgreSQL2104"
        .Description = ""
    End With
    ActiveWorkbook.Connections("Abfrage von PostgreSQL2104").Refresh
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.03.2020 21:12:35 Frank
NotSolved
23.03.2020 06:45:15 Mase
NotSolved
23.03.2020 08:41:56 Frank
NotSolved
23.03.2020 10:01:59 Mase
NotSolved
Rot Parameter
 23.03.2020 12:10:22 Gast8104
NotSolved
23.03.2020 13:08:29 Mase
NotSolved
23.03.2020 22:36:36 Frank
NotSolved
24.03.2020 05:49:01 Mase
NotSolved
24.03.2020 09:41:54 Frank
NotSolved
24.03.2020 14:39:59 Frank
NotSolved
26.03.2020 21:28:30 Frank
NotSolved