Truyền DATA từ Excel sang WinCC

[tuannam]

VBS kết nối SQL server:

Public cn, rs, cmd, par

Sub ConnectDataBase()

'On Error Resume Next

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set cmd =CreateObject("ADODB.Command")
Set par= CreateObject("ADODB.Parameter")

If cn.State = 1 Then
'cn.Close
Exit Sub
End If

cn.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa; Password=sa; Persist Security Info=False; Initial Catalog=Databasename;Data Source=.\WINCC"
cn.open

End Sub

'Ham Execute SQL, co the tra ve Recordset hoac chi thuc thi CSDL
Function SQLExecute(Byval strSQL, Byval res)
On Error Resume Next

SQLExecute = False

If Not res Is Nothing Then
'Set res = cn.Execute(strSQL)
res.Open strSQL, cn, 1, 3
Else
cn.Execute strSQL
End If

SQLExecute = True

End Function


Sub CloseDatabase()
On Error Resume Next
If cn.State = 1 Then
cn.Close
Set cn = Nothing
End If
End Sub

[zunkun]

Trời đất, mình tưởng cái đoạn video đó có cái gì hướng dẫn lập trình gì đó chứ, máy cái này thì dùng PCS khỏe như là ăn cơm hàng ngày đó mà. Siemens đã làm sẵn hết rồi, chỉ cần học PCS và ứng dụng là xong, Nên nhớ là phải mua bản quyền nhá, vì bản trôi nổi hay các license trôi nổi trên mạng sẽ không có được thư viện PCS hỗ trợ cho ứng dụng đâu nhá.

Nếu ai chưa biết về PCS mình sẽ tạo một luồng về nó, sẽ giới thiệu cho anh em sau, hehehe

Hoan nghênh 2 chân 2 tay luôn để anh Manato mở luồng, PCS thì có rất nhiều cái nên mình cũng không biết phải làm cái nào để ra được như vậy cả?

[phap_nguyen]

VBS kết nối SQL server:

Public cn, rs, cmd, par

Sub ConnectDataBase()

'On Error Resume Next

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set cmd =CreateObject("ADODB.Command")
Set par= CreateObject("ADODB.Parameter")

If cn.State = 1 Then
'cn.Close
Exit Sub
End If

cn.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa; Password=sa; Persist Security Info=False; Initial Catalog=Databasename;Data Source=.\WINCC"
cn.open

End Sub

'Ham Execute SQL, co the tra ve Recordset hoac chi thuc thi CSDL
Function SQLExecute(Byval strSQL, Byval res)
On Error Resume Next

SQLExecute = False

If Not res Is Nothing Then
'Set res = cn.Execute(strSQL)
res.Open strSQL, cn, 1, 3
Else
cn.Execute strSQL
End If

SQLExecute = True

End Function


Sub CloseDatabase()
On Error Resume Next
If cn.State = 1 Then
cn.Close
Set cn = Nothing
End If
End Sub

Chao bác Tuannam! đoạn code trên có thể sử dụng trong WinCC không ah, Nếu được thì sử dụng như thế nào để liên kết giữa nó và WinCC! hic mình đang nghiên cứu cái này ma làm hoìa không được

[232futreuneo]

[QUOTE=Manato;218978]Trời đất, mình tưởng cái đoạn video đó có cái gì hướng dẫn lập trình gì đó chứ, máy cái này thì dùng PCS khỏe như là ăn cơm hàng ngày đó mà. Siemens đã làm sẵn hết rồi, chỉ cần học PCS và ứng dụng là xong, Nên nhớ là phải mua bản quyền nhá, vì bản trôi nổi hay các license trôi nổi trên mạng sẽ không có được thư viện PCS hỗ trợ cho ứng dụng đâu nhá.

Nếu ai chưa biết về PCS mình sẽ tạo một luồng về nó, sẽ giới thiệu cho anh em sau, hehehe
đồng ý và cổ cũ cả hai tay hai chân luôn

[khanhhop_hvk]

VBS kết nối SQL server:

Public cn, rs, cmd, par

Sub ConnectDataBase()

'On Error Resume Next

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Set cmd =CreateObject("ADODB.Command")
Set par= CreateObject("ADODB.Parameter")

If cn.State = 1 Then
'cn.Close
Exit Sub
End If

cn.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa; Password=sa; Persist Security Info=False; Initial Catalog=Databasename;Data Source=.\WINCC"
cn.open

End Sub

'Ham Execute SQL, co the tra ve Recordset hoac chi thuc thi CSDL
Function SQLExecute(Byval strSQL, Byval res)
On Error Resume Next

SQLExecute = False

If Not res Is Nothing Then
'Set res = cn.Execute(strSQL)
res.Open strSQL, cn, 1, 3
Else
cn.Execute strSQL
End If

SQLExecute = True

End Function


Sub CloseDatabase()
On Error Resume Next
If cn.State = 1 Then
cn.Close
Set cn = Nothing
End If
End Sub

Bác tuannam có thể làm 1 tutorial về cách kết nối cơ sở dữ liệu từ SQL với Win CC đc không,mình mới tìm hiểu về Win CC nên không đc rành cho lắm. Rất mong nhận đc sự chỉ giúp tận tình từ bác

[12345X]

Xin chào Anh HPECOM
hiện tại e đang nghiên cứu về hệ thống scada cụ thể là việc nhâp, đọc data và theo dõi tình trạng hoạt động của quy trình hoạt động của dây chuyền. E thấy đoạn video rất hay, a có thể hướng dẫn cho e truy xuất data giữa wincc và sql đc không? thank anh.

[nqvuong]

Bác Tuannam ơi cái code đó viết xong rồi. tiếp theo mình cần làm gì để đọc được data từ excel vậy bác. đã giúp thì giúp lun cái đừng bỏ tụi e ở chợ thế này mà