Visual Basic

24-Oct-20 18:14

Hi sir,

i'm already developement console application using vb.net 2010 and run smoothly in windows 10 / 7 desktop.
Unfortunately when install this console application on my Windows Server 2008 , it running but when to insert into Oracle database 11g R2 it fail.

Already install oracle client 32 / 64 bit on server, when i try to connect using ODBC Administrator it can be done... anyone got idea how to settle this issues? ..
thank you in advance..

Victor Nijegorodov24-Oct-20 20:40

Victor Nijegorodov

24-Oct-20 20:40

kerek2 wrote:
it running but when to insert into Oracle database 11g R2 it fail.

Define "it fail".

kerek225-Oct-20 12:47

25-Oct-20 12:47

It fail means : cannot insert into Oracle database table. i'm suspect configuration for oracle in my server...any one can guide me plzz..tq

Dave Kreskowiak25-Oct-20 14:09

25-Oct-20 14:09

There's only about two dozen things that can be wrong and without any error messages and the code you're using to insert into the database, it's pretty much impossible to tell you what's going wrong.

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

Dave Kreskowiak

Victor Nijegorodov25-Oct-20 21:04

Victor Nijegorodov

25-Oct-20 21:04

Does it connect to the Oracle DB?

kerek226-Oct-20 15:38

26-Oct-20 15:38

Yup using Oracle Client 11gR2

Dave Kreskowiak26-Oct-20 16:58

Cefsharp Waiting for page load

26-Oct-20 16:58

He was referring to your code. Does that connect to the database?

You're not supplying any information about your code and any error messages. That stuff is THE MOST IMPORTANT pieces of information you can supply to get any help from anyone on this.

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

Dave Kreskowiak

Process Count

Member 1495490323-Oct-20 23:55

Member 14954903

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:

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

Star Rating In Microsoft Outlook 2016

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

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

Re: Insert timestamp using datareader to oracle date

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

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

Re: Insert timestamp using datareader to oracle date

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

kerek27-Oct-20 15:37

Re: Insert timestamp using datareader to oracle date

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 | ;)

Dave Kreskowiak7-Oct-20 17:58

Re: Insert timestamp using datareader to oracle date

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

kerek226-Oct-20 20:27