Datum aus Text in SQL-Abfrage
15.09.2022 12:10:02
Stefan
ich habe im SQL-Server eine Tabelle mit Daten, unter anderem ein Datumsfeld, was beim Einlesen in Excel über VBA leider nur als Text eingelesen wird.
Jetzt möchte in der Abfrage, den Wert direkt in ein Datum umwandeln.
Sub AbfrageSQL_X001()
Dim cnnConnect As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Dim strSQL As String
Dim qQuery As QueryTable
strSQL = "SELECT Auftragsauskunft_0.Object, " & _
"Auftragsauskunft_0.Liefertermin" & vbCrLf
strSQL = strSQL & "FROM Auftragsauskunft hma_Auftragsauskunft_0 " & vbCrLf
Set cnnConnect = New ADODB.Connection
cnnConnect.Open strConnSQL_Server
cnnConnect.CommandTimeout = 0
Set rstRecordset = New ADODB.Recordset
rstRecordset.Open Source:=strSQL, _
ActiveConnection:=cnnConnect, _
LockType:=adLockReadOnly, _
Options:=adCmdText
With ActiveSheet.QueryTables.Add( _
Connection:=rstRecordset, _
Destination:=Range("A3"))
.FieldNames = False
.RefreshStyle = xlInsertDeleteCells
.Refresh BackgroundQuery:=False
End With
END SUB
Ich habe schon versucht mit Dateserial() die einzelnen Werte zu übergeben, mit CDATE() oder nur mit DATE(),aber alle Versuche endeten mit der Fehlermeldung DATESERIAL wird nicht als Name einer integrierten Funktion erkannt.
Ich hoffe mir kann jemand einen Tipp geben.
Vielen Dank
Stefan