Re: Connection string for Integrated Security - Visual Basic Discussion Boards

Member 1495490323-Oct-20 23:55

23-Oct-20 23:55

So im trying to see if a process is running 2 or more times. So far i can get a boolean if the proccess exists.

For Each proc As Process In Process.GetProcesses
    If proc.ProcessName.Contains("testApp") = True Then
        Debug.WriteLine("application is running")
    End If
Next

already tried

For Each proc As Process In Process.GetProcesses
     If proc.ProcessName.Contains("testApp") = True Then
         Dim proccount As String = proc.ProcessName.Contains("testApp")
         If proccount.Count >= 1 Then
             Debug.WriteLine("application is already running")
         End If
     End If
 Next

Well thats not how it works. Big Grin | :-D

Re: Process Count

Sandeep Mewara24-Oct-20 1:00

Sandeep Mewara

24-Oct-20 1:00

If you are looking for restricting to single instance:

Go to project properties -> application -> Check mark "Make single instance application"

About your approach/ask above, to find all the instances of the process: [http://msdn.microsoft.com/en-us/library/z3w4xdc9.aspx](http://msdn.microsoft.com/en-us/library/z3w4xdc9.aspx)

Imports System.Diagnostics
Imports System.ComponentModel

Namespace MyProcessSample
    Class MyProcess
        Sub BindToRunningProcesses()
            ' Get the current process. You can use currentProcess from this point
            ' to access various properties and call methods to control the process.
            Dim currentProcess As Process = Process.GetCurrentProcess()

            ' Get all processes running on the local computer.
            Dim localAll As Process() = Process.GetProcesses()

            ' Get all instances of Notepad running on the local computer.
            ' This will return an empty array if notepad isn't running.
            Dim localByName As Process() = Process.GetProcessesByName("notepad")

            ' Get a process on the local computer, using the process id.
            ' This will throw an exception if there is no such process.
            Dim localById As Process = Process.GetProcessById(1234)

            ' Get processes running on a remote computer. Note that this
            ' and all the following calls will timeout and throw an exception
            ' if "myComputer" and 169.0.0.0 do not exist on your local network.

            ' Get all processes on a remote computer.
            Dim remoteAll As Process() = Process.GetProcesses("myComputer")

            ' Get all instances of Notepad running on the specific computer, using machine name.
            Dim remoteByName As Process() = Process.GetProcessesByName("notepad", "myComputer")

            ' Get all instances of Notepad running on the specific computer, using IP address.
            Dim ipByName As Process() = Process.GetProcessesByName("notepad", "169.0.0.0")

            ' Get a process on a remote computer, using the process id and machine name.
            Dim remoteById As Process = Process.GetProcessById(2345, "myComputer")
        End Sub

        Shared Sub Main()
            Dim myProcess As New MyProcess()
            myProcess.BindToRunningProcesses()
        End Sub

    End Class

End Namespace 'MyProcessSample

Latest CodeProject post: Dynamic Programming – What, How & When[^]
To read all my blog posts, visit: Learn by Insight...

Re: Process Count

Member 1495490324-Oct-20 1:51

Member 14954903

24-Oct-20 1:51

thank you very much Thumbs Up | :thumbsup:

Cefsharp Waiting for page load

Member 1495490322-Oct-20 8:26

Member 14954903

22-Oct-20 8:26

I'm trying to wait till the page is loaded and then execute JavaScript but all my attempts are "failing" (its working with a timer).
So far i tried

If Browser.CanExecuteJavascriptInMainFrame Then 
'code here
End If

If Browser.IsLoading Then
'code here
End If

Right now im using a timer to do it.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Browser = New ChromiumWebBrowser("https://example.com")
        Form1.Panel1.Controls.Add(Browser)
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Browser.IsLoading = True Then
            Debug.WriteLine("true")
        Else
            Dim test As Task(Of JavascriptResponse) = Browser.EvaluateScriptAsync("document.getElementsByTagName('h1')[0].innerText")
            Debug.WriteLine(test.Result.Result)
            Timer1.Enabled = False
        End If
    End Sub

but this way it feels just like bad coding and i don't want to do this. Every time i try it another way it will just try it once as its not a loop(tried a loop and i failed as well D'Oh! | :doh:

)
I read the general usage of CefSharp but the problem here is everything is in C# i do understand it but i cant convert it to vb cause my knowledge isn't that great.

Calling vb function from java script in Gizmox WebGUI application

Ridha.soft21-Oct-20 22:26

Ridha.soft

21-Oct-20 22:26

Hi everyone,
In my Gizmox Webgui application (vb code) I have: "Form1" containing an "HtmlBox1" control
In the form I have the following function:

<pre lang="text"></pre>
<PermissionSet (SecurityAction.Demand, Name: = "FullTrust")> _
<System.Runtime.InteropServices.ComVisibleAttribute (True)> _
Public Sub VbHelloWorld ()
MsgBox ("Hello World")
End Sub

In order to call this function from "HtmlBox1.html" I added to the html code of the "HtmlBox1" control the following script:

<script type = 'text / javascript'>
function showVbFunction () {
window.external.VbHelloWorld ();
}
</script>

and the following link:

<body>
<a href='#' onclick='showVbFunction()'> Say Hello World From VB </a>
</body>

When debugging and clicking the link, I get the following error: "window.external.VbHelloWorld is not a function"

The script cannot access the function.

Is there anyone who can help me?

-- modified 22-Oct-20 11:33am.

Re: Calling vb function from java script in Gizmox WebGUI application

OriginalGriff21-Oct-20 22:35

OriginalGriff

21-Oct-20 22:35

This is not the place for technical problems, as it states clearly at teh top of the page.

Post it here:http://www.codeproject.com/Questions/ask.aspx[^] but think first: Remember that we can't see your screen, access your HDD, or read your mind - we only get what you tell us to work from. So write your question based on that!
Explain exactly what you have tried, and where you are stuck. The more accurate you are the better the response.

And please, use the code widget to format your code blocks! It's immediately above the input box you are putting the code in ...

"I have no idea what I did, but I'm taking full credit for it." - ThisOldTony
"Common sense is so rare these days, it should be classified as a super power" - Random T-shirt
AntiTwitter: @DalekDave is now a follower!

Connection string for Integrated Security

Member 1362432514-Oct-20 10:14

Member 13624325

14-Oct-20 10:14

Hello:
I am trying to connection using old school VBA.

This works in VBA!
connectionString = "Provider=sqloledb;Data Source=w2012;Initial Catalog=M1_SU;User Id=m1view;Password=connect2m1;"

This works in VB.NET, but says the server does not exist or access is denied...
"Provider=sqloledb;Data Source=sage;Initial Catalog=JobSheet;persist security info=True;Integrated Security=SSPI;"

Why would the server be available in VB.NET but not in VBA?

Here's the complete code.  I must be missing something..
Sub GetJobs_Click()
    Dim connectionString As String
    ' connectionString = "Provider=sqloledb;Data Source=w2012;Initial Catalog=M1_SU;User Id=m1view;Password=connect2m1;"
    connectionString = "Provider=sqloledb;Data Source=sage;Initial Catalog=JobSheet;persist security info=True;Integrated Security=SSPI;"
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
        
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
        
    Dim sql As String
    sql = "SELECT * From [JobSheet].[dbo].[JobInfo] ORDER BY JobNo "
    MsgBox (sql)
        
    cn.connectionString = connectionString
    [COLOR="#FF0000"]cn.Open ' ERROR'S HERE[/COLOR]
        
    rs.Open sql, cn, adOpenKeyset, adLockReadOnly, adCmdText
    rs.MoveFirst
    Do While Not rs.EOF
        MsgBox (rs.Fields("JobNo"))
        rs.MoveNext

    Loop

    rs.Close
    Set rs = Nothing
        
    cn.Close
    Set cn = Nothing

End Sub


Thanks!

Re: Connection string for Integrated Security

Dave Kreskowiak14-Oct-20 17:04

Dave Kreskowiak

14-Oct-20 17:04

"Integrated Security" just means to use the credentials of the account running your code. Unless the SQL Server is setup to accept the users Windows accounts as authentication, Integrated Security won't work.

Asking questions is a skill
CodeProject Forum Guidelines
Google: C# How to debug code
Seriously, go read these articles.

Dave Kreskowiak

Star Rating In Microsoft Outlook 2016

Member 1341109113-Oct-20 21:07

Member 13411091

13-Oct-20 21:07

Hi All,

I want rating bar in my outlook. I want rating bar to be populated in outlook email which has subject stating Resolved.
So when user select the rating i need reply email back to me can this be done in outlook.
I know this can be done in microsoft forms but i want in outlook email body only

TIA

Insert timestamp using datareader to oracle date

kerek25-Oct-20 18:16

kerek2

5-Oct-20 18:16

Hi sir,

I'm trying to insert datetime value from firebird database into oracle database but got "

ORA-01861: literal does not match format string

i'm using this command :

oracmd.CommandText = "INSERT INTO ASIS.TIMECLOCK_DATA(TD_CARDHOLDER_ID,TD_EVENT_DATE) " & _
    " VALUES  ('" + IBSSDR.Item("CARDHOLDERID").ToString + "',to_date('" + IBSSDR.Item("EVENTDATE") + "','YYYY-MM-DD HH24:MI:SS'))"
                        '

When i'm using this command

oracmd.CommandText = "INSERT INTO ASIS.TIMECLOCK_DATA(TD_CARDHOLDER_ID,TD_EVENT_DATE) " & _
                                   " VALUES  ('" + IBSSDR.Item("CARDHOLDERID").ToString + "',('" + IBSSDR.Item("EVENTDATE") + "'))"

I got this error :-

ORA-01843: not a valid month

Please anyone can guide me?

Plssss, tq

Re: Insert timestamp using datareader to oracle date

Richard Deeming5-Oct-20 21:26

Richard Deeming

5-Oct-20 21:26

NEVER use string concatenation to build a SQL query. ALWAYS use a parameterized query.

Everything you wanted to know about SQL injection (but were afraid to ask) | Troy Hunt[^]
How can I explain SQL injection without technical jargon? | Information Security Stack Exchange[^]
Query Parameterization Cheat Sheet | OWASP[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Re: Insert timestamp using datareader to oracle date

Victor Nijegorodov5-Oct-20 21:40

Victor Nijegorodov

5-Oct-20 21:40

Did you look at the debug/watch window to see how the SQl text contained in oracmd.CommandText looks like?
Did you try to test this SQL expression in the Oracle DB?

Re: Insert timestamp using datareader to oracle date

DerekT-P5-Oct-20 22:31

DerekT-P

5-Oct-20 22:31

I don't know Oracle so can only assume your date format string is correct; but:

to_date('" + IBSSDR.Item("EVENTDATE") + "','YYYY-MM-DD HH24:MI:SS')

is taking a (presumably) date object IBSSDR.Item("EventDate") and putting it directly into that function via string concatenation. As usual, put breakpoints in place and inspect the value of .CommandText - this will show you how VB has formatted that date field, using its default (local) formatting, as input to the function.
You will most likely need to use some explicit formatting on the VB side to create a string that Oracle will be able to parse into a date.

But, as Richard always says, don't build your SQL by string concatenation - parameterise it.

Re: Insert timestamp using datareader to oracle date

kerek26-Oct-20 3:50

kerek2

6-Oct-20 3:50

ooooo i get it, already try to other database like SQL db it can work... maybe oracle have restricted....thank you for idea

Re: Insert timestamp using datareader to oracle date

kerek27-Oct-20 15:37

kerek2

7-Oct-20 15:37

Ok sir thank for the idea it's done by this

<pre>  Dim touch As String = DateTime.Now.ToString("dd-MM-yyyy hh:mm:ss tt")
                        touch = ("" & IBSSDR.Item("EVENTDATE").ToString & "")

                        oracmd.CommandText = "INSERT INTO ASIS.TIMECLOCK_DATA(TD_CARDHOLDER_ID,TD_EVENT_DATE,TD_FIRST_IN,TD_IN_READER,TD_IP_CONTROLLER,TD_TYPE) " & _
                                             " VALUES  ('" & IBSSDR.Item("CARDHOLDERID") & "',TO_DATE('" & touch & "','dd/mm/yyyy hh:mi:ss am')," & _
                                            "TO_DATE('" & touch & "','dd/mm/yyyy hh:mi:ss am'),'" & IBSSDR.Item("DEVICEID") & "','" & IBSSDR.Item("WINSOCKIPADDRESS") & "','CHECKIN') "

Thank you for yuor help Wink | ;)

Re: Insert timestamp using datareader to oracle date

Dave Kreskowiak7-Oct-20 17:58

Dave Kreskowiak

7-Oct-20 17:58

It may work now, but DO NOT get into the habit of using string concatenation to build SQL queries like you have.

Google for "SQL Injection Attack" to find out why what you're doing is so bad.

I refer you back to Re: Insert timestamp using datareader to oracle date - Visual Basic Discussion Boards[^]

Asking questions is a skill
CodeProject Forum Guidelines
Google: C# How to debug code
Seriously, go read these articles.

Dave Kreskowiak

Re: Insert timestamp using datareader to oracle date

kerek226-Oct-20 20:27

kerek2

26-Oct-20 20:27

Hi Sir,

I'm try to use Parameter but got this error :

Failed to convert parameter value from a String to a DateTime.

My coding like this :

<pre>     oracmd.CommandText = " INSERT INTO ASIS.TIMECLOCK_DATE(TD_CARDHOLDER_ID,TD_EVENT_DATE,TD_FIRST_IN,TD_IN_READER,TD_IP_CONTROLLER,TD_TYPE) " & _
                                    " VALUES (@CARDHOLDERID,(@EVENTDATE),(@FIRSTIN),@READER,@IP,@TYPE)"



                oracmd.Parameters.Add("@CARDHOLDERID", OracleType.VarChar).Value = "" & IBSSDR.Item("ID") & ""
                oracmd.Parameters.Add("@EVENTDATE", OracleType.DateTime).Value = "TO_DATE('06/10/2020 09:30:00','dd/mm/yyyy hh:mi:ss am')"
                oracmd.Parameters.Add("@FIRSTIN", OracleType.DateTime).Value = "TO_DATE('06/10/2020 09:30:00','dd/mm/yyyy hh:mi:ss am')"
                oracmd.Parameters.Add("@READER", OracleType.VarChar).Value = "" & IBSSDR.Item("DEVICE_ID") & ""
                oracmd.Parameters.Add("@TYPE", OracleType.VarChar).Value = "CHECKIN"

          

                oracmd.CommandType = CommandType.Text

My oracle using format like this : dd/mm/yyyy hh:mi:ss am'

anyone got idea to hlep me?..Plzz

Re: Insert timestamp using datareader to oracle date

Richard Deeming26-Oct-20 22:19

Richard Deeming

26-Oct-20 22:19

Why are you converting all of your parameter values to strings? Use the appropriate .NET type instead:

VB.NET

oracmd.CommandText = " INSERT INTO ASIS.TIMECLOCK_DATE(TD_CARDHOLDER_ID,TD_EVENT_DATE,TD_FIRST_IN,TD_IN_READER,TD_IP_CONTROLLER,TD_TYPE) " & _
                     " VALUES (@CARDHOLDERID, @EVENTDATE, @FIRSTIN, @READER, @IP, @TYPE)"

oracmd.Parameters.Add("@CARDHOLDERID", OracleType.VarChar).Value = IBSSDR.Item("ID")
oracmd.Parameters.Add("@EVENTDATE", OracleType.DateTime).Value = New DateTime(2020, 10, 6, 9, 30, 0)
oracmd.Parameters.Add("@FIRSTIN", OracleType.DateTime).Value = New DateTime(2020, 10, 6, 9, 30, 0)
oracmd.Parameters.Add("@READER", OracleType.VarChar).Value = IBSSDR.Item("DEVICE_ID")
oracmd.Parameters.Add("@TYPE", OracleType.VarChar).Value = "CHECKIN"

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Re: Insert timestamp using datareader to oracle date

kerek227-Oct-20 13:47

kerek2

27-Oct-20 13:47

Sir,

The datetime value is taking form another database (Firebird) using Datareader(IBSDDR.item("")), so i don't need to convert to_date when insert into ORacle sir?...Plz guide me, thanks in advanced Smile | :)

Re: Insert timestamp using datareader to oracle date

Dave Kreskowiak27-Oct-20 6:48

Dave Kreskowiak

27-Oct-20 6:48

DateTime values do not have a format while stored in the database.

The format is only applied when the value is displayed, either by the query tool you're using to test the query or by your own application. There is no format when stored by the database and that's what's tripping you up.

Asking questions is a skill
CodeProject Forum Guidelines
Google: C# How to debug code
Seriously, go read these articles.

Dave Kreskowiak

Re: Insert timestamp using datareader to oracle date

kerek227-Oct-20 16:32

kerek2

27-Oct-20 16:32

Hi Sir

When i'm using Parameter got this error :-

ORA-01008: not all variables bound

Can u advise me what wrong..

<pre> oracmd.CommandText = " INSERT INTO ASIS.TIMECLOCK_DATE(TD_CARDHOLDER_ID,TD_EVENT_DATE,TD_FIRST_IN,TD_IN_READER,TD_IP_CONTROLLER,TD_TYPE) " & _
                                    " VALUES (:CARDHOLDERID,to_date(:EVENTDATE,'dd/mm/yyyy hh:mi:ss am'),to_date(:FIRSTIN,'dd/mm/yyyy hh:mi:ss am'),:READER,:IP,:TYPE)"


<pre>oracmd.Parameters.Add(":CARDHOLDERID", OracleType.VarChar).Value = "" & IBSSDR.Item("ID") & ""
                oracmd.Parameters.Add(":EVENTDATE", OracleType.DateTime).Value = ("" & IBSSDR.Item("EVENT_DATE").ToString & "")
                oracmd.Parameters.Add(":FIRSTIN", OracleType.DateTime).Value = ("" & IBSSDR.Item("EVENT_DATE").ToString & "")
               
                oracmd.Parameters.Add(":READER", OracleType.VarChar).Value = "" & IBSSDR.Item("DEVICE_ID") & ""
                oracmd.Parameters.Add(":TYPE", OracleType.VarChar).Value = "CHECKIN"

          

                oracmd.CommandType = CommandType.Text

...thank you

Re: Insert timestamp using datareader to oracle date

Dave Kreskowiak27-Oct-20 18:27

Dave Kreskowiak

27-Oct-20 18:27

You're trying to convert date strings being passed to the parameters to date values in the SQL VALUES clause. Don't do that because all you have to do is pass in DateTime values WITHOUT using "to_date" in the SQL.

And what's with the "" & garbage? Get rid of stuff. It's useless, unless you want to make the code harder to read and debug.

oracmd.CommandText = " INSERT INTO ASIS.TIMECLOCK_DATE(TD_CARDHOLDER_ID,TD_EVENT_DATE,TD_FIRST_IN,TD_IN_READER,TD_IP_CONTROLLER,TD_TYPE) " & _
" VALUES (:CARDHOLDERID, :EVENTDATE, :FIRSTIN, :READER, :IP, :TYPE)"

oracmd.Parameters.Add(":CARDHOLDERID", OracleType.VarChar).Value = IBSSDR.Item("ID")              oracmd.Parameters.Add(":EVENTDATE", OracleType.DateTime).Value = IBSSDR.Item("EVENT_DATE")
oracmd.Parameters.Add(":FIRSTIN", OracleType.DateTime).Value = IBSSDR.Item("EVENT_DATE")
oracmd.Parameters.Add(":READER", OracleType.VarChar).Value = IBSSDR.Item("DEVICE_ID")
oracmd.Parameters.Add(":TYPE", OracleType.VarChar).Value = "CHECKIN"

Asking questions is a skill
CodeProject Forum Guidelines
Google: C# How to debug code
Seriously, go read these articles.

Dave Kreskowiak

Re: Insert timestamp using datareader to oracle date

kerek229-Oct-20 14:11

kerek2

29-Oct-20 14:11

Sir,

The datetime value is taking form another database (Firebird) using Datareader(IBSDDR.item("")), so i don't need to convert to_date when insert into ORacle sir?...Plz guide me, thanks in advanced Smile | :)

Re: Insert timestamp using datareader to oracle date

Dave Kreskowiak29-Oct-20 14:13

Dave Kreskowiak

29-Oct-20 14:13

OK, one last time. THERE IS NO SUCH THING AS A FORMAT FOR A DATETIME VALUE IN A DATABASE.

ALWAYS use parameters to pass values into a query string.

NEVER use string concatenation to build SQL queries.

Asking questions is a skill
CodeProject Forum Guidelines
Google: C# How to debug code
Seriously, go read these articles.

Dave Kreskowiak

Re: Insert timestamp using datareader to oracle date

Victor Nijegorodov27-Oct-20 21:11

Victor Nijegorodov

27-Oct-20 21:11

Where is the

oracmd.Parameters.Add(":IP", ...)

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.