sql veri yazma

[Beerkk]

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

 

[vvkaymak]

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

 

[Beerkk]

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

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