sql veri yazma

Dim conn,rst, SQL_Table

On Error Resume Next

Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

'open data source - Daenquelle öffnen
conn.open "Provider=MSDASQL;Initial Catalog=egitim;DSN=sqltest" 'dsn= Name of the ODBC databease - DSN = name

'Error routine - Fehlerrotine
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
Err.Clear
Set conn = Nothing
Exit Sub
End If



SQL_Table = "INSERT INTO SEND (Tag_1,Tag_2,Tag_3,Tag_4) VALUES ('"& SmartTags("Tag_17") & "','" & SmartTags("Tag_18")& "','" & SmartTags("Tag_19")& "','" & SmartTags("Tag_20")


Set rst = conn.Execute(SQL_Table)


'Close data source - Datenquelle schließen
conn.close

Set rst = Nothing
Set conn = Nothing
End Sub


kodum bu derleme de hata almıyorum ODBC de sqltest ile bağlantı kuruyor test ettiğimde başaralı diyor fakat scripti çalıştırdığım da kayıt yapmıyor neden olabilir

Merhaba Bu hali ile bir dene istersen.
Sub VeriGonder()

Dim conn, SQL_Table

On Error Resume Next

Set conn = CreateObject("ADODB.Connection")

' Veri kaynağını aç
conn.Open "Provider=MSDASQL;Initial Catalog=egitim;DSN=sqltest"

' Hata kontrolü
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
Err.Clear
Set conn = Nothing
Exit Sub
End If

' SQL cümlesini oluştur
SQL_Table = "INSERT INTO SEND (Tag_1, Tag_2, Tag_3, Tag_4) VALUES ('" & _
SmartTags("Tag_17") & "','" & SmartTags("Tag_18") & "','" & _
SmartTags("Tag_19") & "','" & SmartTags("Tag_20") & "')"

' Sorguyu çalıştır
conn.Execute SQL_Table

' Bağlantıyı kapat
conn.Close

Set conn = Nothing

End Sub

vvkaymak' Alıntı:

Merhaba Bu hali ile bir dene istersen.
Sub VeriGonder()

Dim conn, SQL_Table

On Error Resume Next

Set conn = CreateObject("ADODB.Connection")

' Veri kaynağını aç
conn.Open "Provider=MSDASQL;Initial Catalog=egitim;DSN=sqltest"

' Hata kontrolü
If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
Err.Clear
Set conn = Nothing
Exit Sub
End If

' SQL cümlesini oluştur
SQL_Table = "INSERT INTO SEND (Tag_1, Tag_2, Tag_3, Tag_4) VALUES ('" & _
SmartTags("Tag_17") & "','" & SmartTags("Tag_18") & "','" & _
SmartTags("Tag_19") & "','" & SmartTags("Tag_20") & "')"

' Sorguyu çalıştır
conn.Execute SQL_Table

' Bağlantıyı kapat
conn.Close

Set conn = Nothing

End Sub

Genişletmek için tıkla ...

ben burada plcden bir biti 1 yapınca kayıt yapmasını istiyorum bunu nasıl yapabilirim birde runtime da çalıştırınca kayıt yapmıyor fakat buton plc de bir oluyor görüyorum haberleşiyor ama simülasyon da çalıştırınca kayıt yapıyor sebebi ne olabilir