none
ADODB.Connection MSSQL Rückgabewert

    Frage

  • Hallo

    ich baue eine Verbindung zu einem MSSQL Server auf.

    setze eine SQL Abfrage ab

    ...

    cn.BeginTrans

    cn.Execute WelcherSQLString

    cn.CommitTrans

    cn.Close

    nun würde ich gerne einen rückgabewert des MSSQL Servers erhalten also fehlerhaft mit Fehlermeldung oder so und soviel datensätze betroffen - sprich die Meldung die das Managment STudio zurück gibt wenn ich die Abfrage dort ausführe

    geht das und wenn ja wie

    Dienstag, 29. Oktober 2013 08:31

Antworten

  • Hallo Michael,

    die Zahl der betroffenen Zeilen liefert Execute optional in einer Variable zurück.

    Fehler werden in VBA über die Standard Fehlerbehandlung geliefert, also üblicherweise mit On Error Goto ... usw. Das SSMS verwendet den .NET SqlClient und deren SqlException liefert mehr Details (wie mehrere Fehler) - VBA macht das so nicht.

    Gruß Elmar

    • Als Antwort markiert MCDPone Dienstag, 29. Oktober 2013 14:27
    Dienstag, 29. Oktober 2013 09:10
  • Fehler die vom SQL Server kommen, kriegst Du nur mit dieser Fehlerbehandlung zu Gesicht:

    One Error goto Fehler:

    ....

    Fehler: Dim i As Integer For i = 0 To Errors.Count - 1 msgbox "Fehler: " & Errors(i)) Next i

    Servus
    Winfried

    Dienstag, 29. Oktober 2013 17:47

Alle Antworten

  • Hallo Michael,

    die Zahl der betroffenen Zeilen liefert Execute optional in einer Variable zurück.

    Fehler werden in VBA über die Standard Fehlerbehandlung geliefert, also üblicherweise mit On Error Goto ... usw. Das SSMS verwendet den .NET SqlClient und deren SqlException liefert mehr Details (wie mehrere Fehler) - VBA macht das so nicht.

    Gruß Elmar

    • Als Antwort markiert MCDPone Dienstag, 29. Oktober 2013 14:27
    Dienstag, 29. Oktober 2013 09:10
  • Fehler die vom SQL Server kommen, kriegst Du nur mit dieser Fehlerbehandlung zu Gesicht:

    One Error goto Fehler:

    ....

    Fehler: Dim i As Integer For i = 0 To Errors.Count - 1 msgbox "Fehler: " & Errors(i)) Next i

    Servus
    Winfried

    Dienstag, 29. Oktober 2013 17:47