Hallo,

ich habe ein Problem mit dem Update einer SQL Servertabelle in Access.

Die Tabelle ist verknüpft und liegt als RS in einem Formular vor. Wenn ich dann Daten bearbeiten und speichern will kommt es oft, nicht immer,

vor, dass ein ODBC Timeoutfehler bekomm. Ich habe den ODBC- Wert schon angepasst.

Ebenfalls habe ich auch einen Zugriff über ADODBC versucht, auch hier ein Fehler beim Update:

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim lActId As Long

 'Verbindung zur Datenbank herstellen
 conn.ConnectionString = "Provider=MSOLEDBSQL;Server=AFC-MSSQL2016V;Database=FENG;Trusted_Connection=yes;"
 
 lActId = Forms![Hotline -> Terminallist]!COMPANY_ID
 
 With conn
'Meistens Cursor auf Client außer für SEHR große Arbeiten
      .CursorLocation = adUseClient

' Sperrungen (hier keine bei Multiuser)
      .Mode = adModeReadWrite

' Open the connection
    conn.Open

'Dim rs As New ADODB.Recordset
    rs.Open "SELECT  " _
            & "COMPANY_ID, CGROUP_ID, BANK_ID, USER_ID, COUNTRY_ID, COMPANY_SHORT, COMPANY_NAME1, COMPANY_NAME2, COMPANY_STREET, COMPANY_PLZ, COMPANY_CITY, COMPANY_TEL, COMPANY_FAX, COMPANY_MOBIL, COMPANY_EMAIL, " _
            & " COMPANY_EMAILRG, COMPANY_EMAILSUPPORT, COMPANY_EMAILKB, COMPANY_WWW, COMPANY_PRIVADR, COMPANY_HRB, COMPANY_HRBAMT, COMPANY_GEWSCHEIN, COMPANY_GEWAMT, COMPANY_PERSONR, COMPANY_PERSOAMT, COMPANY_USTID, " _
            & " COMPANY_ANZFIL, COMPANY_VERBAND, COMPANY_ISAKTIV, COMPANY_isINSO, COMPANY_isBIG, COMPANY_OWNER, COMPANY_OWNER_BIRTH, COMPANY_GF, COMPANY_GF_BIRTH, RESELLER_ID, COMPANY_GF_EMAIL, COMPANY_WHENNEW, COMPANY_LASTCONTACT, " _
            & "COMPANY_BWNR, COMPANY_IBAN, COMPANY_BIC, COMPANY_MANDATSNR, COMPANY_MANDATSDATE, COMPANY_ACCOUNT, COMPANY_ACCNAME, COMPANY_BLZ, COMPANY_DoUmsStat, COMPANY_StatEmailAdr, COMPANY_StatEmailAdr2," _
            & " COMPANY_StatEmailAdr3, COMPANY_SL_MANAGE, COMPANY_SL_SEND_ONEFIL, COMPANY_SL_SEND_ALLFIL, COMPANY_SL_SEND, COMPANY_SL_MAILADR, COMPANY_SL_MAIL, COMPANY_GS_TEXT, COMPANY_LS_TEXT, COMPANY_SUMTERM," _
            & " COMPANY_PAYPROVI, COMPANY_ISPROBLEM, COMPANY_ZGbestaetigt, COMPANY_MEMO, CreditorID, Creditor_BusinessAccountChek, ContractProved, YaerEstablished, changeDate, RECHTSFORM_ID, ERWERBSART_ID " _
            & " FROM data.COMPANY WHERE COMPANY_ID = " & lActId & "", conn, adOpenStatic, adLockOptimistic

' Zugriff auf die Daten

            'rs!COMPANY_ID.Value = Me!COMPANY_ID.Value
            rs!COMPANY_SHORT.Value = Me!COMPANY_SHORT.Value
              rs.Update
            rs!COMPANY_ISAKTIV.Value = Me!COMPANY_ISAKTIV.Value
              rs.Update
            rs!COMPANY_NAME1.Value = Me!COMPANY_NAME1.Value
              rs.Update
            rs!COMPANY_NAME2.Value = Me!COMPANY_NAME2.Value
              rs.Update
            rs!COMPANY_STREET.Value = Me!COMPANY_STREET.Value
              rs.Update
            rs!COUNTRY_ID = Me!COUNTRY_ID
usw.

           rs!COMPANY_VERBAND = Me!COMPANY_VERBAND
                rs.Update
            Me!txt_YaerEstablished = rs!YaerEstablished
                rs.Update
    End With
    

' Ressourcen freigeben
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

Fall jemand eine Idee hat, ich bin dankbar.

- Office 365

- SQL Server Vs. 14.0.2052.1

Grüße, Babsi