Hallo
erstmal Danke für die Antworten.
Der Datentyp des Feldes ist datetime(2). Dieser Typ wird bei der Migration angelegt. In der Access-Tabelle vorher war er vom Typ datum. Ich habe den jetzt nicht auf datetime geändert. Wenn es natürlich besser ist, werde ich alle Datumstypen in den Tabellen
ändern.
SQL-Server legt folgenden Standardwert an:
(CONVERT([datetime],CONVERT([varchar],getdate(),(1)),(1)))
Die Eingabe Sql Server Managementstudio funktioniert ohne Fehler, das hatte ich schon probiert.
Dies ist die Prozedur
ALTER PROCEDURE [dbo].[Spa_addupdatemerkliste] @id INT = 0,
@datum DATETIME,
@inhalt NVARCHAR(max),
@betriebid INT = 0,
@zuordnung INT=2
AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;
IF EXISTS(SELECT *
FROM tblAktull
WHERE id = @id)
BEGIN
UPDATE tblAktull
SET datum = @datum,
inhalt = @inhalt,
betriebid = @betriebid,
zuordnung = @zuordnung
WHERE ID = @id
END
ELSE
BEGIN
INSERT INTO tblAktull
(datum,
inhalt,
betriebid,
zuordnung)
VALUES (@datum,
@inhalt,
@betriebid,
@zuordnung)
END
END
Beim Fehlerauslesen wird folgendes angezeigt
Fehlernummer: 3146
Fehlerbeschreibung: ODBC-Aufruf fehlgeschlagen.
Fehler im Backend-System:
Fehlernummer: 102
Fehlerbeschreibung: [Microsoft][SQL Server Native Client 11.0][SQL Server]Falsche Syntax in der Nähe von '.2016'.
Quelle: ODBC.QueryDef
Fehlernummer: 3146
Fehlerbeschreibung: ODBC-Aufruf fehlgeschlagen.
...
Und mit dieser Routine werden die Daten gespeichert bzw. geändert
Public Sub SPAktion(strStoredProcedure As String, _
ParamArray varParameter() As Variant)
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strParameter As String
Set db = CurrentDb
Set qdf = db.CreateQueryDef("")
On Error GoTo Fehler
strParameter = Param(varParameter)
With qdf
.Connect = conPTS
.ReturnsRecords = False
.SQL = "EXEC " & strStoredProcedure & " " & strParameter
.Execute
End With
Set db = Nothing
Ende:
Exit Sub
Fehler:
Fehlerbehandlung "SPAktion", "FehlerAusloesen", Erl
Resume Ende
End Sub
Public Function Param(ByVal varParameter As Variant) As String
Dim strParameter As String
Dim i As Integer
For i = LBound(varParameter) To UBound(varParameter)
Select Case VarType(varParameter(i))
Case vbString
If varParameter(i) = "NULL" Then
strParameter = strParameter & ", " & varParameter(i)
Else
strParameter = strParameter & ", '" & varParameter(i) & "'"
End If
Case 0, 1
strParameter = strParameter & ", NULL"
Case Else
strParameter = strParameter & ", " & Replace(CStr(varParameter(i)), ",", ".")
End Select
Next i
If Len(strParameter) > 0 Then
strParameter = Mid(strParameter, 3)
End If
Param = strParameter
End Function
Private Sub cmdOK_Click()
If Validierung = True Then
SPAktion "dbo.spA_ADDUPDATEMerkliste", Me.tfid, trim(Me.tfdatum), Me.tfInhalt, Me.tfBetriebID, 2
Forms("frmBetrieb").Form.Requery
Forms("frmBetrieb")("ufoBetriebAktull").Form.Requery
DoCmd.Close acForm, Me.Name
End If
End Sub
Wenn ich auf das Datums-Formularfeld ein Datumsformat lege und das Datum über den Kalendar aufrufe, kommt o.g. Fehler. Gebe ich es manuell ein, wird korrekt gespeichert. Ich habe jetzt das Feld getrimmt und das funktioniert.
@Winfried
Ich habe mir das Buch Access und SQL Server gekauft, wo ja Bernd Jungbluth als Autor aufgeführt wird. Dort sind auch sehr viele Beispeildateien enthalten mit denen ich vorwiegend arbeite und die echt gut helfen. Ich werde die Geschäftlogik komplett ändern und
Datenherkunft nur in ganz vereinzelten Fällen aus den Tabellen direkt holen. Im Buch wurde mehrmals und ausdrücklich auf Lese- und Schreibsperren des SQL Servers hingewiesen, was wohl sehr nervig sein kann. Ich kann das nicht beurteilen. Deshalb habe ich die
Abfragen in gespeicherte Prozeduren ausgelagert.
Liebe Grüße, die Luzie!
