zapytanei update sql - vba

0

Hej,

mam o to takie zapytanie sql

Kod:
Dim strQuery As String
strQuery = "UPDATE fts set comment = 'fdf'" _
& " WHERE wo = '4039440101'"

Dim resultSet As Object
Set resultSet = DBCONT.Execute(strQuery)	

jak zrobić warunek sprawdzający czy rekord został zapisany ?

0

co to znaczy czy rekord został zapisany? Jeśli masz na myśli czy zapytanie się wykonało to jak nie dostałeś błędu to znaczy, że się wykonało. Jednocześnie RecordsAffected zwraca ile rekordów zostało "macniętych" przez zapytanie.
Więcej info o przechwytywaniu wyjątków np. tu http://www.databasejournal.com/features/msaccess/article.php/10895_3505836_2/Executing-SQL-Statements-in-VBA-Code.htm

0

Zakładam, że DBCONT to adodb.connection. Więc wykorzystaj drugi argument metody Execute (https://msdn.microsoft.com/en-us/library/windows/desktop/ms675023.aspx)

poza tym nie ma sensu przypisywać recodsetu przy update, bo to nie zwraca rekordów...

Dim strQuery As String
Dim recordAffected As Long
    strQuery = "UPDATE fts set comment = 'fdf'" _
    & " WHERE wo = '4039440101'"

    Dim resultSet As Object
    Set resultSet = DBCONT.Execute(strQuery,recordAffected)
    If recordAffected=0 Then
        'kod jak się nić nie zaktualizowało
    Else
        'kod jak sie cos zaktualizuje
    End IF
    
0

wielkie dzięki ;)

a ja się z tym tyle bujałem ;)

1 użytkowników online, w tym zalogowanych: 0, gości: 1