Sign In Help
Schneider Electric
HelpSign In
Schneider Electric Exchange
  • Home
  • Collaborate
  • Develop
  • Shop
Home Collaborate Develop Shop Log in or Register Help

Invite a Co-worker

Send a co-worker an invite to the Exchange portal.Just enter their email address and we’ll connect them to register. After joining, they will belong to the same company.
You have entered an invalid email address. Please re-enter the email address.
This co-worker has already been invited to the Exchange portal. Please invite another co-worker.
Please enter email address
Send Invite Cancel

Invitation Sent

Your invitation was sent.Thanks for sharing Exchange with your co-worker.
Send New Invite Close
  • Home
  • Collaborate
  • Exchange Community
  • :
  • SCADA & Telemetry Solutions
  • :
  • Geo SCADA Expert Forum
  • :
  • [Imported] MsgBox Vba script combinations. vba SQL formatting.
Community Menu
  • Forums
    • By Topic
        • EcoStruxure IT
          • EcoStruxure IT forum
        • Industrial Automation
          • Industry Automation and Control Forum
          • Alliance System Integrators Forum
          • Machine Solutions in the Digital Transformation
          • EcoStruxure Automation Expert / IEC 61499 Forum
          • Industrial Edge Computing Forum
          • Level and Pressure Instrumentation Forum
          • Modicon User Group
          • PLC Club Indonesia
          • SEE Automation Club Forum
          • Fabrika ve Makina Otomasyonu Çözümleri
          • Форум по промышленной автоматизации СНГ
        • SCADA & Telemetry Solutions
          • Geo SCADA Expert Forum
          • SCADA and Telemetry Devices Forum
        • Power Distribution IEC
          • Power Distribution and Digital
          • Power Standards & Regulations
          • Paneelbouw & Energie Distributie
        • Power Distribution Softwares
          • EcoStruxure Power Design Forum
          • SEE Electrical Building+ Forum
          • LayoutFAST User Group Forum
        • Solutions for your Business
          • Solutions for Food & Beverage Forum
          • Solutions for Healthcare Forum
    • By Segment
        • Food & Beverage
          • Solutions for Food & Beverage Forum
        • Healthcare
          • Solutions for Healthcare Forum
      • EcoStruxure IT
        • EcoStruxure IT forum
      • Industrial Automation
        • Industry Automation and Control Forum
        • Alliance System Integrators Forum
        • Machine Solutions in the Digital Transformation
        • EcoStruxure Automation Expert / IEC 61499 Forum
        • Industrial Edge Computing Forum
        • Level and Pressure Instrumentation Forum
        • Modicon User Group
        • PLC Club Indonesia
        • SEE Automation Club Forum
        • Fabrika ve Makina Otomasyonu Çözümleri
        • Форум по промышленной автоматизации СНГ
      • SCADA & Telemetry Solutions
        • Geo SCADA Expert Forum
        • SCADA and Telemetry Devices Forum
      • Power Distribution IEC
        • Power Distribution and Digital
        • Power Standards & Regulations
        • Paneelbouw & Energie Distributie
      • Power Distribution Softwares
        • EcoStruxure Power Design Forum
        • SEE Electrical Building+ Forum
        • LayoutFAST User Group Forum
      • Solutions for your Business
        • Solutions for Food & Beverage Forum
        • Solutions for Healthcare Forum
      • Food & Beverage
        • Solutions for Food & Beverage Forum
      • Healthcare
        • Solutions for Healthcare Forum
  • Blogs
    • By Topic
        • Industrial Automation
          • Industrial Edge Computing Blog
          • Industry 4.0 Blog
          • Industrie du Futur France
        • SCADA & Telemetry Solutions
          • SCADA and Telemetry Blog
        • Power Distribution IEC
          • Power Events & Webinars
          • Power Foundations Blog
        • Power Distribution NEMA
          • NEMA Power Foundations Blog
        • Power Distribution Softwares
          • EcoStruxure Power Design Blog
          • SEE Electrical Building+ Blog
        • Solutions for your Business
          • Solutions for Food & Beverage Blog
          • Solutions for Healthcare Blog
          • Solutions for Retail Blog
    • By Segment
        • Food & Beverage
          • Solutions for Food & Beverage Blog
        • Healthcare
          • Solutions for Healthcare Blog
        • Retail
          • Solutions for Retail Blog
      • Industrial Automation
        • Industrial Edge Computing Blog
        • Industry 4.0 Blog
        • Industrie du Futur France
      • SCADA & Telemetry Solutions
        • SCADA and Telemetry Blog
      • Power Distribution IEC
        • Power Events & Webinars
        • Power Foundations Blog
      • Power Distribution NEMA
        • NEMA Power Foundations Blog
      • Power Distribution Softwares
        • EcoStruxure Power Design Blog
        • SEE Electrical Building+ Blog
      • Solutions for your Business
        • Solutions for Food & Beverage Blog
        • Solutions for Healthcare Blog
        • Solutions for Retail Blog
      • Food & Beverage
        • Solutions for Food & Beverage Blog
      • Healthcare
        • Solutions for Healthcare Blog
      • Retail
        • Solutions for Retail Blog
  • Ideas
        • Industrial Automation
          • Modicon Ideas & new features
        • SCADA & Telemetry Solutions
          • Geo SCADA Expert Ideas
          • SCADA and Telemetry Devices Ideas
  • Knowledge Center
    • Building Automation Knowledge Base
    • Industrial Automation How-to videos
    • Ask Exchange
    • Digital E-books
    • Success Stories Corner
    • Power Talks
  • Events & Webinars
  • Support
    • User Guide
    • Leaderboard
    • Releases Notes
How can we help?
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Show  only  | Search instead for 
Did you mean: 
49249members
Join Now
242460posts
Join Now

[Imported] MsgBox Vba script combinations. vba SQL formatting.

Options
  • Subscribe to RSS Feed
  • Mark Topic as New
  • Mark Topic as Read
  • Float this Topic for Current User
  • Bookmark
  • Subscribe
  • Mute
  • Printer Friendly Page
Solved Go to Solution
Back to Geo SCADA Expert Forum
Solved
sbeadle
Sisko sbeadle Sisko
Sisko
‎2019-11-06 03:13 PM
0 Likes
1
332
  • Mark as New
  • Bookmark
  • Subscribe
  • Mute
  • Subscribe to RSS Feed
  • Permalink
  • Print
  • Email to a Friend
  • Report Inappropriate Content
‎2019-11-06 03:13 PM

[Imported] MsgBox Vba script combinations. vba SQL formatting.

>>Message imported from previous forum - Category:Scripts and Tips<<
User: ROVSCADAENGINEER, originally posted: 2019-04-30 22:12:01 Id:421
The following script displays a MsgBox based on the number of events from the SQL query. I have two questions.

Can I use relative coding to extract an Object ID on a point and then call this into the SQL in the script?

MsgBox "The reset no is" + SQLrows
MsgBox ( SQLrows, "is the number of resets" ) 40 Then
MsgBox "The resets today are"
Else
MsgBox SQLrows
End If
If SQL.Error Then
Msgbox SQL.ErrorMessage, vbCritical + vbOKOnly, "Error in SQL Command"
End If
**
Any help appreciated!**

Solved! Go to Solution.

Labels
  • SCADA
Share
Reply

Accepted Solutions
sbeadle
Sisko sbeadle Sisko
Sisko
‎2019-11-06 03:13 PM
0 Likes
0
331
  • Mark as New
  • Bookmark
  • Subscribe
  • Mute
  • Subscribe to RSS Feed
  • Permalink
  • Print
  • Email to a Friend
  • Report Inappropriate Content
‎2019-11-06 03:13 PM

Re: [Imported] MsgBox Vba script combinations. vba SQL formatting.

>>Responses imported from previous forum


Reply From User: ROVSCADAENGINEER, posted: 2019-05-01 01:10:58
Ok so I ended up getting the timeframing to work. And I configured it in a way where the value is displayed in certain prompts. Yet I cannot seem to figure out now how to use relative querying? is this even possible? Say for instance I want to query a datapoint based on it's name and relative location to where the script is. Could I declare an object ID from findObject and then call that into the SQL somehow?

Code for reference below............

..
Dim iResponse
Dim iResponse2
Dim iResponse3
Dim SQLrows
Dim Value
Value = 2
Set SQL=Server.Query ("SELECT TOP(Value) * FROM CDBEVENTJOURNAL WHERE ID = 345005 AND RECORDTIME BETWEEN { OPC 'Day' } AND { OPC 'Day + 24 Hours' }")
SQLrows = SQL.RowCount
If Not(SQL.Error) Then '

If SQLrows 2 Then
iResponse = MsgBox ("You are about to reset the pump when there has been more than 2 resets. Actuating consectutive resets may cause damage to the pump. check number?", vbExclamation + vbOKCancel + vbDefaultButton1, "Warning")
If iResponse = vbOK Then
iResponse2 = MsgBox( SQLrows, vbExclamation + vbOKCancel + vbDefaultButton2, "Number of Pump Resets!")
If iResponse2 = vbOK Then
Server.SetOPCValue ".Reset.CurrentValue", 1
MsgBox "Pump Reset"

Else
Server.SetOPCValue ".Reset.CurrentValue", 0
MsgBox "Reset Cancelled"
End If
Else
Server.SetOPCValue ".Reset.CurrentValue", 0
MsgBox "Reset Cancelled"
End If
Else
Server.SetOPCValue ".Reset.CurrentValue", 1
MsgBox "Pump Reset"
End If

If SQL.Error Then
Msgbox SQL.ErrorMessage, vbCritical + vbOKOnly, "Error in SQL Command"
End If
End If

 


Reply From User: ROVSCADAENGINEER, posted: 2019-05-01 02:36:44
so I figured out how to get the object ID relative to the mimics position. I am now working on a way to match any Object ID's from the query so the script can run logic based only on that point. the code to do this is below.

 

Dim ResetID
ResetID=Server.GetOPCValue(".Reset.ID")
MsgBox "The Object ID is " & ResetID

See Answer In Context

Share
Reply
  • All forum topics
  • Previous Topic
  • Next Topic
1 Reply 1
sbeadle
Sisko sbeadle Sisko
Sisko
‎2019-11-06 03:13 PM
0 Likes
0
332
  • Mark as New
  • Bookmark
  • Subscribe
  • Mute
  • Subscribe to RSS Feed
  • Permalink
  • Print
  • Email to a Friend
  • Report Inappropriate Content
‎2019-11-06 03:13 PM

Re: [Imported] MsgBox Vba script combinations. vba SQL formatting.

>>Responses imported from previous forum


Reply From User: ROVSCADAENGINEER, posted: 2019-05-01 01:10:58
Ok so I ended up getting the timeframing to work. And I configured it in a way where the value is displayed in certain prompts. Yet I cannot seem to figure out now how to use relative querying? is this even possible? Say for instance I want to query a datapoint based on it's name and relative location to where the script is. Could I declare an object ID from findObject and then call that into the SQL somehow?

Code for reference below............

..
Dim iResponse
Dim iResponse2
Dim iResponse3
Dim SQLrows
Dim Value
Value = 2
Set SQL=Server.Query ("SELECT TOP(Value) * FROM CDBEVENTJOURNAL WHERE ID = 345005 AND RECORDTIME BETWEEN { OPC 'Day' } AND { OPC 'Day + 24 Hours' }")
SQLrows = SQL.RowCount
If Not(SQL.Error) Then '

If SQLrows 2 Then
iResponse = MsgBox ("You are about to reset the pump when there has been more than 2 resets. Actuating consectutive resets may cause damage to the pump. check number?", vbExclamation + vbOKCancel + vbDefaultButton1, "Warning")
If iResponse = vbOK Then
iResponse2 = MsgBox( SQLrows, vbExclamation + vbOKCancel + vbDefaultButton2, "Number of Pump Resets!")
If iResponse2 = vbOK Then
Server.SetOPCValue ".Reset.CurrentValue", 1
MsgBox "Pump Reset"

Else
Server.SetOPCValue ".Reset.CurrentValue", 0
MsgBox "Reset Cancelled"
End If
Else
Server.SetOPCValue ".Reset.CurrentValue", 0
MsgBox "Reset Cancelled"
End If
Else
Server.SetOPCValue ".Reset.CurrentValue", 1
MsgBox "Pump Reset"
End If

If SQL.Error Then
Msgbox SQL.ErrorMessage, vbCritical + vbOKOnly, "Error in SQL Command"
End If
End If

 


Reply From User: ROVSCADAENGINEER, posted: 2019-05-01 02:36:44
so I figured out how to get the object ID relative to the mimics position. I am now working on a way to match any Object ID's from the query so the script can run logic based only on that point. the code to do this is below.

 

Dim ResetID
ResetID=Server.GetOPCValue(".Reset.ID")
MsgBox "The Object ID is " & ResetID

See Answer In Context

Share
Reply
Related Products
Schneider Electric
EcoStruxure™ Geo SCADA Expert
Top Experts
User Count
sbeadle
Sisko sbeadle Sisko
1
geoffpatton
Lieutenant geoffpatton
1
BevanWeiss
Admiral BevanWeiss
1
See More Top Experts
Find a Service Provider
Find a certified partner to help you address your integration, installation, maintenance and project needs.
View all Providers
Support

Have a question? Please contact us with details, and we will respond.

Contact Us
FAQ

Look through existing questions to find popular answers.

Learn More
About

Want to know more about Exchange and its possibilities?

Learn More

Full access is just steps away!

Join Exchange for FREE and get unlimited access to our global community of experts.

Connect with Peers & Experts

Discuss challenges in energy and automation with 30,000+ experts and peers.

Get Support in Our Knowledge Base

Find answers in 10,000+ support articles to help solve your product and business challenges.

Ask Questions. Give Solutions

Find peer based solutions to your questions. Provide answers for fellow community members!

Register today for FREE

Register Now

Already have an account?Log in

About Us FAQ Terms & Conditions Privacy Notice Change your cookie settings
©2020, Schneider Electric