VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Andreas	Datum: 29.05.2007 11:30:11	Views: 1956	Rating:	Antwort:
Thema: fehler bei DB Abfrage
hallo, wir haben hier folgenden code um werte aus einer oracle db über odbc auszulsen, die methode wird aufgerufen, die geschriebenen werte werden kopiert und die methode wird für die nächsten paramter wieder aufgerufen. super funktioniert, aber heute auf einmal, bricht er willkührlich ab. mal beim ersten mal beim 5, mal beim 3... immer das selbe, egal welche parameter. FehlerCode -2147417848, die folgenden Aufrufe haben den Fehlercode 1004. hat irgend jemand eine idee, woran es liegen könnte? Code: Private Function GetDataFromDB(ktst, mb, notFirst, offset) Sheets("quelle").Select sqlstring = "SELECT SNAME, TSTARTDATUM, TENDDATUM, DAUSLASTUNG, DGESAMTMITARBEITER, DTAKTSUMME, ((100-DAUSLASTUNG)/100*DGESAMTMITARBEITER) AS TAKTVERLUST FROM TVG_ABTAKTUNG WHERE TSTARTDATUM !=TO_DATE('31-12-9999', 'dd.MM.yyyy') AND TENDDATUM =TO_DATE('31-12-9999', 'dd.MM.yyyy') AND SNAME LIKE('%" & ktst & "-" & mb & "%') AND DGESAMTMITARBEITER > 0 order by TSTARTDATUM DESC" MsgBox (sqlstring) connstring = "ODBC;DSN=dblem_odbc;UID=uid;PWD=pwd;DBQ=DBLEMO_LEMO.W2.BMW.DE" ' Fehler abfangen On Error Resume Next With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Cells(offset, 1), Sql:=sqlstring).Refresh(False) End With Ps: am offset liegts nicht, verschieden oder gleich immer das selbe ergebniss

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