Branxian
Üye
- Katılım
- 25 May 2008
- Mesajlar
- 254
- Puanları
- 1
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.
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.
Kod:
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