• Webdien.com - Cầu nối dân điện


    1. [HOT] - Webdien đang tuyển các vị trí quản lý cao cấp


  • Trang 3 của 3 Đầu tiênĐầu tiên 123
    Kết quả 21 đến 24 của 24

    Chủ đề: DataBase Wincc

    1. #21
      Tham gia
      04-01-2017
      Bài viết
      4
      Cảm ơn
      0
      Được cảm ơn 0 lần, trong 0 bài

      Mặc định Re: DataBase Wincc

      Anh ơi, em làm đồ án máy pha sơn tự động, giờ em muốn làm ra một bảng dữ liệu màu, có thể thêm bớt chỉnh sữa thì làm sao.
      Em có hình cụ thể đây

      Mong mọi người giúp.

    2. #22
      Tham gia
      16-06-2008
      Địa chỉ
      Bình Dương
      Bài viết
      158
      Cảm ơn
      5
      Được cảm ơn 142 lần, trong 84 bài

      Mặc định Re: DataBase Wincc

      Dear Bạn

      Theo mình hiểu thì bạn muốn tạo ra nhiều loại sản phẩm sơn khác nhau trên màn hình điều khiển, khi chọn loại nào thì màn hình sẽ tự động load dữ liệu xuống PLC thông số tương ứng. cái này trong công nghiệp người ta gọi là Công thức sản phẩm ( Recipe ). Bạn đọc thêm về phần này thử. Phần mềm nào cũng sẽ hỗ trợ để tạo ra các recipe này.



      kindest regard,
      Hiep
      Automation Training
      Dạy Scada và PLC
      https://www.facebook.com/groups/426215507822804/
      Email:Hieplangmoi@gmail.com
      Hp: 0946313816

      "Ở đâu có ý chí ở đó có lối đi"
      "Where there is a will, there is a way"

    3. #23
      Tham gia
      30-03-2019
      Bài viết
      1
      Cảm ơn
      0
      Được cảm ơn 0 lần, trong 0 bài

      Mặc định Re: Ðề: DataBase Wincc

      Trích dẫn Gửi bởi khongbaogio Xem bài viết
      Mình sẽ nói sơ qua về cách lấy alarm history sử dụng connectivity pack
      Mình sẽ lấy ví dụ sư sau. Ví dụ bạn muốn truy suất alarm từ ngày nào tới ngày nào đó và vị trí xảy ra lỗi như hình sau


      '2. Connecting WinCC-Database
      '////////////////////////////////////////////////////

      Dim Pro 'Provider
      Dim DSN 'Data Source Name
      Dim DS 'Data Source
      Dim ConnString 'Connection String
      Dim MachineNameRT 'Name of the PC from WinCC-RT
      Dim DSNRT 'Data Source Nane from WinCC-RT

      Dim Conn 'Connection to ADODB
      Dim RecSet 'RecordSet
      Dim Command 'Query
      Dim CommandText 'Command-Text

      Dim sqlSec 'Seconds for SQL
      Dim sqlMin 'Minutes for SQL
      Dim sqlHour 'Hours for SQL
      Dim sqlDay 'Day for SQL
      Dim sqlMonth 'Month for SQL
      Dim sqlYear 'Year for SQL
      Dim CurrLanguage'Current Language

      'Attention: Tag-Archiving is based on UTC, that means the timestamp of a Tag is in UTC !

      'Read the name of the PC-Station and the DSN-Name from WinCC-RT
      Set MachineNameRT = HMIRuntime.Tags("@LocalMachineName")
      Set DSNRT = HMIRuntime.Tags("@DatasourceNameRT")


      'Preparing the Connection-String
      Pro="Provider=WinCCOLEDBProvider.1;" 'First instance of WinCCOLEDB
      DSN="Catalog=" & DSNRT.Read & ";" 'Name of Runtime-Database
      DS= "Data Source=" & MachineNameRT.Read & "\WinCC" 'Data Source

      'Build the complete String:
      ConnString = Pro + DSN + DS

      'Make Connection
      Set Conn = CreateObject("ADODB.Connection")
      Conn.ConnectionString = ConnString
      Conn.CursorLocation = 3
      Conn.open

      'Preparing query
      'Format needed for StartTime: '2009-01-20 13:26:45'"

      'Date and time 24 hours before
      StartTime=DateAdd("h",-24,StartTime)

      'Split in Years, months, days, hours, min.,seconds
      sqlSec=second (StartTime)
      sqlMin=Minute (StartTime)
      sqlHour=Hour (StartTime)
      sqlDay=Day (StartTime)
      sqlMonth=Month (StartTime)
      sqlYear=Year (StartTime)

      'Creating leading zeros
      sqlSec=Right("00" & sqlSec,2)
      sqlMin=Right("00" & sqlMin,2)
      sqlHour=Right("00" & sqlHour,2)
      sqlDay=Right("00" & sqlDay,2)
      sqlMonth=Right("00" & sqlMonth,2)

      'Formating Starttime fpr SQL-Statement:
      StartTime="'" & sqlYear & "-" & sqlMonth & "-" & sqlDay & " " _
      & sqlHour & ":" & sqlMin & ":" & sqlSec & "'"

      'MsgBox "Jahr: " & sqlYear & vbcrlf & "Monat: " & sqlMonth & vbcrlf & "Tage: " & sqlDay & vbcrlf & _
      '"Stunden: " & sqlHour & vbcrlf & "Minuten: " & sqlMin & vbcrlf & _
      '"Sekunden: " & sqlSec 'MBox for Diagnosis only

      'Building the complete String:

      Set CurrLanguage = HMIRuntime.Tags("@CurrentLanguage")
      Select Case CurrLanguage.Read
      Case 1031 'German
      CommandText= "ALARMVIEW:Select * FROM AlgViewDeu WHERE DateTime>" & ngaybatdau & "AND DateTime<" & ngaybatdau " AND text2="&khuxayraloi&""
      Case 1033 'English
      CommandText= "ALARMVIEW:Select * FROM AlgViewEnu WHERE DateTime>" & ngaybatdau & "AND DateTime<" & ngaybatdau " AND text2="&khuxayraloi&""
      End Select


      'MsgBox "Open Connection with: " & CommandText 'MBox for Diagnosis only

      'Create the recordset, read the records and set to first recordset:
      Set RecSet = CreateObject("ADODB.Recordset")
      Set Command = CreateObject("ADODB.Command")
      Command.CommandType = 1
      Set Command.ActiveConnection = Conn
      Command.CommandText=CommandText

      Set RecSet = Command.Execute
      RecSet.MoveFirst

      'write recordsets to CSV-File

      Select Case CurrLanguage.Read
      Case 1031 'German
      ts.WriteLine ("Datum/Zeit;Meldenr.;Ereignis;Klasse")
      Case 1033 'Englisch
      ts.WriteLine ("Date/Time;Message;point of error")
      End Select

      Do while Not RecSet.EOF
      ts.WriteLine (RecSet.Fields(2).Value & ";" & RecSet.Fields(37).Value & ";" & _
      RecSet.Fields(38).Value &)
      RecSet.MoveNext
      Loop


      ' Please don't forget this............. !!!
      ts.close
      RecSet.Close
      Set Recset=Nothing
      Set Command = Nothing
      conn.close 'Close connection
      Set Conn = Nothing
      Set fso = Nothing
      Set f = Nothing
      Set ts = Nothing



      End Sub


      trong đó giá trị ngày bắt đầu, ngày kết thúc, vị trí xảy ra lỗi lấy từ màn hinh xuống. Còn Field datetime là 2, field message la 37, field point of error là 38. còn một field nữa là Duration mình tìm không thấy nếu ai đã làm rồi chỉ mình lấy Duration này với.


      các bạn chú ý nhé có thể code mình có chỗ nào bị sai các bạn chỉnh lại Do cái mình làm cũng chưa hoàn chỉnh.



      Hieplangmoi@gmail.com
      Anh hiệp cho em hỏi đoạn code trên truy vấn SQL database vào giao diện scada thì chỉ mới truy vấn chứ chưa có liên kết vơ tag hiển thị bên Scada phải không anh ? mong anh chỉ bảo thêm

    4. #24
      Tham gia
      04-07-2019
      Bài viết
      3
      Cảm ơn
      0
      Được cảm ơn 0 lần, trong 0 bài

      Mặc định Re: DataBase Wincc

      em đang làm đề tài về phân loại sản phẩm bằng barcode
      cho em hỏi nếu xuất dữ liệu mã vạch từ sql server sang wincc thì làm thế nào ạ ??
      em mò từ bữa giờ mà chưa được anh có thể giúp em được ko !!

    Trang 3 của 3 Đầu tiênĐầu tiên 123

    Trả lời với tài khoản Facebook

    Các Chủ đề tương tự

    1. Trợ giúp - kết nối winCC với PLC s7-200
      Bởi levandinh89 trong diễn đàn SCADA - HMI
      Trả lời: 8
      Bài cuối: 18-05-2014, 16:40
    2. Thảo luận - em bị lỗi wincc nhờ các anh giúp
      Bởi star_dream trong diễn đàn SCADA - HMI
      Trả lời: 4
      Bài cuối: 07-08-2013, 16:07
    3. Trợ giúp - Cần pro winCC chỉ giáo
      Bởi Rock32 trong diễn đàn SCADA - HMI
      Trả lời: 4
      Bài cuối: 28-04-2013, 00:28
    4. [WINCC] Lỗi khi cài đặt!
      Bởi Rock32 trong diễn đàn PHẦN MỀM NGÀNH ĐIỆN
      Trả lời: 1
      Bài cuối: 21-04-2013, 11:00
    5. Thảo luận - Convert từ Intouch 7 sang Intouch 10 và từ Wincc 5 sang Wincc 7
      Bởi khongbaogio trong diễn đàn SCADA - HMI
      Trả lời: 0
      Bài cuối: 13-07-2011, 22:50

    Tag của Chủ đề này

    Văn Võ Trạng Nguyên
    Hắc Hiệp Đại Chiến Thánh Bài 2
    Đặc Cảnh Diệt Ma
    Khử Ma Đạo Trưởng
    Cương Thi Diệt Tà
    Sự Hình Thành Của Đế Chế Mông Cổ
    NHỮNG KHOẢNH KHẮC ĐÁNG NHỚ CỦA GIẢI GOLF PHÚ MỸ HƯNG 2016