Hi,
I can list the variables in the SQL server with VBScript, but after listing, I want to perform various filtering (historical) operations on the listed table by writing VBScript code.
I would be glad if you could help me.
Write https://hizliresim.com/1q0d8g0
Filter https://hizliresim.com/1q0d8g0
WinCC RT Prof - ActiveX container (Microsoft Office SpreadSheet 11) Filtering
Re: WinCC RT Prof - ActiveX container (Microsoft Office SpreadSheet 11) Filtering
from internet:
Code: Select all
Dim Conn
Dim RS
Dim SQL
SQL = "SELECT PersonID, FirstName, LastName FROM [TestDB].[dbo].[Persons]"
Set Conn = CreateObject("ADODB.Connection")
Conn.Open = "Provider=SQLOLEDB; Data Source=compname\SQL; Initial Catalog=DB; UID=usera; Integrated Security=SSPI"
Set RS = Conn.Execute(SQL)
Set Sheet = ActiveSheet
Sheet.Activate
Dim R
R = 1
While RS.EOF = False
Sheet.Cells(R, 1).Value = RS.Fields(0) //can try : RS.Fields(R)
Sheet.Cells(R, 2).Value = RS.Fields(1)//can try : RS.Fields(R+1)
Sheet.Cells(R, 3).Value = RS.Fields(2)//can try : RS.Fields(R+2)
RS.MoveNext
R = R + 1
Wend
RS.Close
Conn.Close
Re: WinCC RT Prof - ActiveX container (Microsoft Office SpreadSheet 11) Filtering
Thank you Sania.
I don't have any problems printing the data I get from SQL. I want to filter after printing.
I don't have any problems printing the data I get from SQL. I want to filter after printing.
Re: WinCC RT Prof - ActiveX container (Microsoft Office SpreadSheet 11) Filtering
you are not true
need filter before print
filtering with keyword WHERE in your RecordSource
maybe use LIKE too
need filter before print
filtering with keyword WHERE in your RecordSource
maybe use LIKE too
Re: WinCC RT Prof - ActiveX container (Microsoft Office SpreadSheet 11) Filtering
After printing, I need to filter. As seen in Annex-1, I can pull my relevant values from SQL. I can also filter, but I cannot give a specific date range. (Annex-2)
Annex-1 : https://hizliresim.com/qqgdhix
Annex-1.1 : https://hizliresim.com/nqgopc0
Annex-2 : https://hizliresim.com/jwbg320
When the Vbscript in the picture ANNEX-2 runs, it filters for ID number 5 in the ID column. But I want to filter within a certain date range in the DATE branch. If I can enter a date range in the code MyFilteredCol_1.Criteria.Add "5" in the picture in ANNEX-2, my problem will be solved.
Annex-1 : https://hizliresim.com/qqgdhix
Annex-1.1 : https://hizliresim.com/nqgopc0
Annex-2 : https://hizliresim.com/jwbg320
When the Vbscript in the picture ANNEX-2 runs, it filters for ID number 5 in the ID column. But I want to filter within a certain date range in the DATE branch. If I can enter a date range in the code MyFilteredCol_1.Criteria.Add "5" in the picture in ANNEX-2, my problem will be solved.
Re: WinCC RT Prof - ActiveX container (Microsoft Office SpreadSheet 11) Filtering
Code: Select all
WHERE Date_Time BETWEEN '2023-01-03' AND '2013-01-09'
Code: Select all
WHERE From_date <= '2013-01-03' AND To_date >= '2013-01-09'