Visual Basic

Re: SQL working in SQLPlus but not returning rows in VB.net using Oracle.OLEDB provider

1-May-13 3:14

I have SQL that is returning 24 rows in SQLPlus however when I run the same query in VS2010 using Provider=OraOLEDB.Oracle its doesn't return any rows. I am using a LIKE operator with to_date. Any suggestions? Is it the provider I am using the problem?

See example

SQL

select level from testTable where dTime LIKE to_date('3/27/2013','MM/DD/YYYY') and station = '019654' order by dTime

I did try it with '%3/27/2013%'

Simon_Whale1-May-13 3:24

Simon_Whale

1-May-13 3:24

Have you tried running the query in Oracle directly?

Every day, thousands of innocent plants are killed by vegetarians.

Help end the violence EAT BACON

Re: SQL working in SQLPlus but not returning rows in VB.net using Oracle.OLEDB provider

liona1-May-13 3:28

Re: SQL working in SQLPlus but not returning rows in VB.net using Oracle.OLEDB provider

1-May-13 3:28

yes and it works perfectly. I am using VS2010 if that makes a difference.

Richard Deeming1-May-13 3:56

Richard Deeming

1-May-13 3:56

What's the code you're using to execute the query?

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

Re: SQL working in SQLPlus but not returning rows in VB.net using Oracle.OLEDB provider

liona1-May-13 4:13

Re: SQL working in SQLPlus but not returning rows in VB.net using Oracle.OLEDB provider

1-May-13 4:13

Dim dsFred = New DataSet
conn = New OleDbConnection("Provider=OraOLEDB.Oracle;User ID=test;Password=testPass;Data Source=ARC")
        sql = "select level from testTable where dTime LIKE to_date('3/27/2013','MM/DD/YYYY') and station = '019654' order by dTime"
        myCommand = New OleDbDataAdapter(sql, conn)
        myCommand.Fill(dsFred, "fred")
        Dim fred As Integer = dsFred.Tables("fred").Rows.Count

TnTinMn1-May-13 5:41

TnTinMn

1-May-13 5:41

I notice that you are using the OleDb namespace data objects and not the OracleClient objects.

Try adding a reference to System.Data.OracleClient.dll and use the OracleClient.OracleConnection, OracleClient.OracleCommand, and OracleClient.OracleDataAdapter objects.

Re: SQL working in SQLPlus but not returning rows in VB.net using Oracle.OLEDB provider

Bernhard Hiller1-May-13 22:28

Bernhard Hiller

1-May-13 22:28

That's a funny Oracle feature. LIKE with a date/datetime field does not make sense, I think. But I learned that "The date column will be implicitly converted to a character string (according to nls_date_format) before the comparison" (https://forums.oracle.com/forums/thread.jspa?threadID=2132385[^]) with Oracle. Never did I expect such a nonsense. What's your requirement behind that LIKE?
And I guess that the cited text shows the reason for the failure in one situation and the success in another: the nls_date_format differs.

Re: SQL working in SQLPlus but not returning rows in VB.net using Oracle.OLEDB provider

liona2-May-13 0:14

show and hide process with showwindow api

2-May-13 0:14

What I am trying to do is capture any records that happened that day. Where it is a datetime field there are 24 records during that time period. I can always put in qualifers for midnight to midnight however I thought the LIKE would work. I will have to try the other way I guess...

JR21229-Apr-13 2:03

29-Apr-13 2:03

Hi,

I'm hiding a process with the api

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As ShowWindowCommands) As Boolean
End Function

I call that api with this code

ShowWindow(p.MainWindowHandle, ShowWindowCommands.Hide)'ShowWindowsCommand is an enum

that works

After that I'm have an option to show it again.
I use this code

Dim h As IntPtr = FindWindow(vbNullString, cms.Text)'cms comes from an contextmenustrip
If h <> 0 Then
  ShowWindow(h, ShowWindowCommands.Show) 'p.MainWindowHandle
  'ShowWindow(hwndMain, SW_SHOWDEFAULT);
  UpdateWindow(h)
  MsgBox("restored")
End If

The handle h is fine but I the window do not restore. I also tryed sw_restore

What else can I do?

Jan

Dave Kreskowiak29-Apr-13 2:10

Dave Kreskowiak

29-Apr-13 2:10

jan212r wrote:
I'm hiding a process with the api

No, you're not. You're hiding a window. A process is an entirely different concept.

jan212r wrote:
What else can I do?

Try sending the window the WM_PAINT message.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

JR21229-Apr-13 2:39

29-Apr-13 2:39

Your right of course I'm hiding a window from a process. So I added:

Dim rec As APIKit.RECT
GetClientRect(h, rec)
InvalidateRect(h, rec, True)
UpdateWindow(h)

without luck

I pleased is complete code on http://users.telenet.be/janr/MouseHook.zip[^]

Please keep in mind that I 'm testing what is possible and that there is a loot of nonsense in the code
The idea is to hide a window when I'm clicking with the middle mouse button and that I restore through a icon in the system area

modified 29-Apr-13 8:50am.

Dave Kreskowiak29-Apr-13 7:13

Dave Kreskowiak

29-Apr-13 7:13

The code looks good, so I question the values you're using.

Eddy is on the right track.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Eddy Vluggen29-Apr-13 2:17

Eddy Vluggen

29-Apr-13 2:17

jan212r wrote:
What else can I do?

Verify the value of your enum[^].

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

JR21229-Apr-13 2:40

29-Apr-13 2:40

my enum

Enum ShowWindowCommands
  Hide = 0
  ShowNormal = 1
  ShowMinimized = 2
  ShowMaximized = 3
  Maximize = 3
  ShowNormalNoActivate = 4
  Show = 5
  Minimize = 6
  ShowMinNoActivate = 7
  ShowNoActivate = 8
  Restore = 9
  ShowDefault = 10
  ForceMinimized = 11
End Enum

Eddy Vluggen29-Apr-13 3:24

Eddy Vluggen

29-Apr-13 3:24

jan212r wrote:
my enum

Posting it here is hardly the same as comparing it. Your enum-declaration is not a UINT, but defaults to INT. I suggest you use the version from the P/Invoke website, preferably with the same name. Below code works;

Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Diagnostics
Module Module1
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As WindowShowStyle) As Boolean
    End Function
    Private Enum WindowShowStyle : uint
        Hide = 0
        Show = 5
    End Enum
    Sub Main()
        Dim p = Process.Start("calc.exe")
        Console.WriteLine("Any key to hide")
        Console.ReadKey()
        ShowWindow(p.MainWindowHandle, WindowShowStyle.Hide)
        Console.WriteLine("Any key to show")
        Console.ReadKey()
        ShowWindow(p.MainWindowHandle, WindowShowStyle.Show)
    End Sub
End Module

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

JR21229-Apr-13 20:38

29-Apr-13 20:38

thanks both.

It was the dllimort that was wrong.

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As WindowShowStyle) As Boolean

I didn't look into that becaurse the hide worked fine. So My idee was if 1 works, all works.

thx again