SQL Veritabanına Tarih saatli veri insert edememek

[Helecanlı]

Merhaba SQL tablomda tarih saat bir arada bulunanan verilerimi makto ile kaydetmek istiyorum. Fakat bu başarısız oluyor.

Verilerim aşağıda

Hata
Tarih saat yanyana ona kızıyor jmuhtemelen ayırdım yine hata dönüyor.

Makro kodum

Sub Videoizleme()


Set Con = New ADODB.Connection
Dim i As Integer
Dim Say  As Integer
Dim Say2 As Date
Dim Say3 As String




Con.ConnectionString = "driver={SQL Server};" & "Server=YUNUSOZAL\SQL16;authenticateuser=TRUE;database=sirket174Film"
i = 2
Say = Sayfa11.Cells(5, 1).Value

For i = 2 To 10

say1 = Sayfa11.Cells(i, 1).Value
Say2 = Sayfa11.Cells(i, 6).Value
Say3 = Sayfa11.Cells(i, 3).Value
MsgBox say1, vbCritical
MsgBox Left(Say2, 10)
MsgBox Say3, vbMsgBoxRight


cmd = "insert into ztTest2 values (" & say1 & "," & Left(Say2, 10) & "," & Say3 & ")"
Con.Open
Con.Execute cmd
Con.Close
Next i
MsgBox "Kayıt Eklendi"
End Sub

 

[Mehmet Şahin]

Merhaba,

Say2 = Sayfa11.Cells(i, 6).Value

yerine

[COLOR="seagreen"]Say2=Format(Sayfa11.Cells(i, 2), "yyyy-mm-dd hh:mm:ss")[/COLOR]

ve

cmd = "insert into ztTest2 values (" & say1 & "," & Left(Say2, 10) & "," & Say3 & ")"

yerine

[COLOR="SeaGreen"]cmd = "insert into ztTest2 values (" & say1 & ",'" & Say2 & "'," & Say3 & ")"[/COLOR]

dener misiniz?

 

[Zeki Gürsoy]

Zahmetsiz Insert ifadesi oluşturmak için birleştirme "&" yerine ADODB.Command ile Parameters kullanın veya ADODB.Recordset "AddNew" kullanın.

Birleştirme kullanmakta ısrarcıysanız, literal tarih biçimi kullanın : yyyy-mm-dd hh:mm:ss

 

[Helecanlı]

Gün içinde farklı bir destek alarak Çözüm Teşekkürler

Sub Videoizleme()

Dim Con As ADODB.Connection

Set Con = New ADODB.Connection

Dim i As Long
Dim Say As Integer
Dim Say2 As String
Dim Say3 As String


Con.ConnectionString = "driver={SQL Server};" & "Server=.\SQL16;authenticateuser=TRUE;database=sirket174film"

For i = 2 To Sayfa11.Cells(1, 5).Value

say1 = Sayfa11.Cells(i, 1).Value
Say2 = Sayfa11.Cells(i, 2).Value
Say3 = Sayfa11.Cells(i, 3).Value

cmd = " SET DATEFORMAT DMY insert into ztTest2 values (" & say1 & ",'" & Say2 & "'," & Say3 & ")"
Con.Open
Con.Execute cmd
Con.Close
Next i

MsgBox "Kayıt Eklendi"