Wincc RunTime ve SQL

[Branxian]

Merhabalar,
Tiaportal V13, Wincc Runtime Advanced ile raporlama yapmaya çalışıyorum. Verileri kaydetme işleminde bir problem yaşamıyorum. Yeni kayıt için komut yolladığımda sıkıntısız veritabanına kayıt işlemini gerçekleştiriyorum.
Ancak kaydettiğim verileri okumak için siemens'in sitesinden örnek program indirdim ancak beceremedim sanırım.
Aşağıda deneme yaptığım scriptte nereyi yanlış yapıyorum acaba?

DB1 = dint olarak tanıttım. Database içerisinde yaklaşık 11 adet sutün mevcut. 1. sutün bigint olarak tanımlı onu wincc içerisine çekmeye çalışıyorum.

Dim conn,rst,Kayitlar

On Error Resume Next
Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

conn.Open "Provider=MSDASQL;DSN=Deneme"

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

Kayitlar = "SELECT * FROM" & "Kayitlar"
Set rst = conn.Execute(Kayitlar)

Kayitlar = "SELECT * FROM " & "Kayitlar" & " ORDER By "
Set rst = conn.Execute(Kayitlar)

If Err.Number <> 0 Then
    ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
    Err.Clear
    conn.close
    Set conn = Nothing
    Set rst = Nothing
    Exit Sub
End If

If SmartTags("Next") = True Then
    rst.MoveNext
Else
End If

If Not (rst.EOF And rst.BOF) Then   
    rst.MoveFirst
    SmartTags("DB1") = rst.Fields(0).value
    rst.Close
Else
End If

conn.close

Set rst = Nothing
Set conn = Nothing

 

[elektriktahsin]

bunu yapabilecek kimse yok uygunsa 05434034730 dan konusalım

 

[muratcam]

kardeş ben de Siemens sitesindeki demo proje ile database oluşturmaya çalıştığımda veri kaynağı adı bulumamadı ve varsayılan sürücü belirtilmemiş hatası alıyorum sql server ili ilgili ayar yapmam mı gerekiyormu sql server managment stüdyo programında ( WINCCPLUSMIG2008-WINCC )isimli iki server bulunuyor ben sonradan sql server 2014 expres sürümünü de yükledim bundan kaynaklanırmı bu hata

 

[elektriktahsin]

Merhaba Arkadaslar ben TİA WİNCC ,WİNCC7.3 ,TİA WİNCC ADVANCED DA SQL HABERLEŞMESİNİ VE TABLO OLUŞTURMASINI YAPTIM.

 

[alpsoft27]

merhaba arkadaşlar scada ile nasıl sql baglantısı kurabilirim

 

[Beerkk]

Merhabalar,
Tiaportal V13, Wincc Runtime Advanced ile raporlama yapmaya çalışıyorum. Verileri kaydetme işleminde bir problem yaşamıyorum. Yeni kayıt için komut yolladığımda sıkıntısız veritabanına kayıt işlemini gerçekleştiriyorum.
Ancak kaydettiğim verileri okumak için siemens'in sitesinden örnek program indirdim ancak beceremedim sanırım.
Aşağıda deneme yaptığım scriptte nereyi yanlış yapıyorum acaba?

DB1 = dint olarak tanıttım. Database içerisinde yaklaşık 11 adet sutün mevcut. 1. sutün bigint olarak tanımlı onu wincc içerisine çekmeye çalışıyorum.

Dim conn,rst,Kayitlar

On Error Resume Next
Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

conn.Open "Provider=MSDASQL;DSN=Deneme"

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

Kayitlar = "SELECT * FROM" & "Kayitlar"
Set rst = conn.Execute(Kayitlar)

Kayitlar = "SELECT * FROM " & "Kayitlar" & " ORDER By "
Set rst = conn.Execute(Kayitlar)

If Err.Number <> 0 Then
    ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
    Err.Clear
    conn.close
    Set conn = Nothing
    Set rst = Nothing
    Exit Sub
End If

If SmartTags("Next") = True Then
    rst.MoveNext
Else
End If

If Not (rst.EOF And rst.BOF) Then  
    rst.MoveFirst
    SmartTags("DB1") = rst.Fields(0).value
    rst.Close
Else
End If

conn.close

Set rst = Nothing
Set conn = Nothing

sql e veriyi nasıl yazdınız yardımcı olur musunuz ben kodu yazdım derlediğim de sorun yok faka sqle yazmıyor

 

[vvkaymak]

bu hali ile 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