Scada Database’e kay\u0131tl\u0131 de\u011ferlerden belli tarih aral\u0131\u011f\u0131ndaki fark\u0131 bulmak i\u00e7in haz\u0131rlad\u0131\u011f\u0131m\u0131z script a\u015fa\u011f\u0131dad\u0131r.<\/p>\n
Imports System
\nImports System.IO
\nImports System.Windows.Forms
\nImports Microsoft.VisualBasic
\nImports System.Data.SqlClient
\nImports System.Globalization<\/p>\n
Namespace WinTr
\nPublic Class MainClass
\nPublic StartDate As DateTime
\nPublic EndDate As DateTime
\nPublic Difference As Int32
\nPublic Sub Load
\nDim SQL_cn As New SqlConnection()
\nSQL_cn.ConnectionString = \u201cServer=(local)\\WinTr;uid=sa;pwd=WinTr@2013;database=ProjectDbName\u201d
\nSQL_cn.Open()
\nDim SQL_Ins As String
\nSQL_Ins = \u201cSELECT Max(Tag_1) \u2013 Min(Tag_1) FROM Table1 WHERE [DateTime] >= \u2018\u201d
\nSQL_Ins &= StartDate.ToString(\u201cG\u201d, CultureInfo.CreateSpecificCulture(\u201cen-US\u201d)) & \u201c\u2018 And [DateTime] <= \u2018\u201d
\nSQL_Ins &= EndDate.ToString(\u201cG\u201d, CultureInfo.CreateSpecificCulture(\u201cen-US\u201d)) & \u201c\u2018\u201d
\nDim SQL_cmdnon As SqlCommand = New SqlCommand(SQL_Ins, SQL_cn)
\nDim Value As String
\nValue=SQL_cmdnon.ExecuteScalar.tostring
\nif isnumeric(Value) Then
\nDifference = Value
\nElse
\nDifference\u00a0= 0
\nEnd If
\nSQL_cn.Close()
\nEnd Sub
\nEnd Class
\nEnd Namespace<\/p>\n
Not: Bu scripti kopyalay\u0131p WinTr Script edit\u00f6r\u2019e kopyalad\u0131\u011f\u0131n\u0131zda t\u0131rnak i\u015faretleri de\u011fi\u015febilir. Ayr\u0131ca sat\u0131rlara da dikkat etmelisiniz. Script\u2019de database ismi \u201cProjectDbName\u201d sizin projenizin database ismi olmal\u0131d\u0131r. SQL \u015fifresi \u201cWinTr@2013\u2033 yeni versiyonlar i\u00e7indir. Eski versiyonlarda \u015fifre \u201c12341234\u201d olmal\u0131d\u0131r.<\/p>\n
Bu script’de \u00fc\u00e7 adet tag kullan\u0131lm\u0131\u015ft\u0131r. StartDate\u00a0: Ba\u015flang\u0131\u00e7 tarihi,\u00a0EndDate : Biti\u015f tarihi,\u00a0Difference : hesaplanan fark.<\/p>\n","protected":false},"excerpt":{"rendered":"
Scada Database’e kay\u0131tl\u0131 de\u011ferlerden belli tarih aral\u0131\u011f\u0131ndaki fark\u0131 bulmak i\u00e7in haz\u0131rlad\u0131\u011f\u0131m\u0131z script a\u015fa\u011f\u0131dad\u0131r. Imports System Imports System.IO Imports System.Windows.Forms Imports Microsoft.VisualBasic Imports System.Data.SqlClient Imports System.Globalization Namespace WinTr Public Class MainClass Public StartDate As DateTime Public EndDate As DateTime Public Difference As Int32 Public Sub Load Dim SQL_cn As New SqlConnection() SQL_cn.ConnectionString = \u201cServer=(local)\\WinTr;uid=sa;pwd=WinTr@2013;database=ProjectDbName\u201d SQL_cn.Open() Dim […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_swpsp_post_exclude":false,"footnotes":""},"categories":[20],"tags":[257,258,259],"class_list":["post-602","post","type-post","status-publish","format-standard","hentry","category-scada-script","tag-database-kullanimi","tag-database-sorgulari","tag-iki-tarih-arasindaki-fark"],"yoast_head":"\n