Re: Syntax Error (Missing Operation) in query expression - Visual Basic Discussion Boards

Re: Read a messages in vb.net, itry to create a script that can read a sms if someone reply to your text via gsm modem.

Richard MacCutchan9-Mar-19 21:50

Richard MacCutchan

9-Mar-19 21:50

It looks like you only read a single line. You need to keep reading until the entire message is received.

Re: Read a messages in vb.net, itry to create a script that can read a sms if someone reply to your text via gsm modem.

Ralf Meier10-Mar-19 22:13

Ralf Meier

10-Mar-19 22:13

After every Writeline-Command your wait 1 Second and block the complete System during this time.
I suppose you need a kind of Statemachine for your issue.
Perhaps you explain want you want to have happen ...

Re: Read a messages in vb.net, itry to create a script that can read a sms if someone reply to your text via gsm modem.

jhane Harvest10-Mar-19 22:28

jhane Harvest

10-Mar-19 22:28

how, can u please teach me? thank you

Re: Read a messages in vb.net, itry to create a script that can read a sms if someone reply to your text via gsm modem.

Ralf Meier11-Mar-19 1:17

Ralf Meier

11-Mar-19 1:17

At first you have to explain what should happen - for example :
you send : ("AT" & vbCrLf)
- you get back ???
then you send (AT+CMGF=1" & vbCrLf)
- you get back ???
then you send ("AT+CPMS=""SM""" & vbCrLf)
- you get back ???

and so on ...

Re: Read a messages in vb.net, itry to create a script that can read a sms if someone reply to your text via gsm modem.

jhane Harvest11-Mar-19 14:46

jhane Harvest

11-Mar-19 14:46

i already have code for sending sms I want to read the message in case someone reply. Thank you for the advice.. Smile | :)

Syntax Error (Missing Operation) in query expression

RedPandinus9-Mar-19 5:47

RedPandinus

9-Mar-19 5:47

Hello guys,

What is wrong at below code? I have 3 tables at Access with using INNER JOIN

Private Sub RetrieveData(Optional ByVal blnSearch As Boolean = False)
        strSQL = " SELECT tblContact.ContactPK, tblContact.Fullname, tblContact.Nickname, tblContact.Mobile, " &
                    " tblContact.Phone, tblContact.eMail, tblContact.FacebookID, tblContact.PictureName, tblContact.Note, tblContact.Mobil, tblContact.Area" &
                    " tblPosition.PositionName, tblDepartment.DepartmentName, tblArea.Areaname " &
                    " FROM [tblPosition] INNER JOIN [tblDepartment] INNER JOIN (tblArea INNER JOIN tblContact ON " &
                    " tblDepartment.DepartmentPK = tblContact.DepartmentFK) ON tblPosition.PositionPK = tblContact.PositionFK ON tblArea.AreaPK = tblContact.Area "

        '// blnSearch = True for Search
        If blnSearch Then
            strSQL = strSQL &
                " WHERE " &
                " [Fullname] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
                " [Nickname] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
                " [PositionName] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
                " [DepartmentName] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
                " [Mobile] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
                " [Phone] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
                " [eMail] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
                " [FaceBookID] " & " Like '%" & txtSearch.Text & "%'" &
                " [Mobil] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
                " [Area] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
                " ORDER BY ContactPK "
        Else
            strSQL = strSQL & " ORDER BY ContactPK "

Re: Syntax Error (Missing Operation) in query expression

Gerry Schmitz9-Mar-19 11:02

Gerry Schmitz

9-Mar-19 11:02

At this rate, you're better off composing this query in Access itself; using its query designer.

THEN, you might use the SQL it generated (though creating a temporary Access table is probably better, in your case).

"(I) am amazed to see myself here rather than there ... now rather than then".
― Blaise Pascal

Re: Syntax Error (Missing Operation) in query expression

RedPandinus9-Mar-19 11:11

RedPandinus

9-Mar-19 11:11

same error comes up at below too, whats mistake here in syntax ?

Private Sub RetrieveData(Optional ByVal blnSearch As Boolean = False)
       strSQL = " SELECT tblContact.ContactPK, tblContact.Fullname, tblContact.Nickname, tblContact.Mobile, " &
                   " tblContact.Phone, tblContact.eMail, tblContact.FacebookID, tblContact.PictureName, tblContact.Note, tblContact.Mobil, tblContact.Area, tblContact.City, tblContact.State, tblContact.Country, tblContact.Responsible, " &
                   " tblPosition.PositionName, tblDepartment.DepartmentName " &
                   " FROM [tblPosition] INNER JOIN (tblDepartment INNER JOIN tblContact ON " &
                   " tblDepartment.DepartmentPK = tblContact.DepartmentFK) ON tblPosition.PositionPK = tblContact.PositionFK "

       '// blnSearch = True for Search
       If blnSearch Then
           strSQL = strSQL &
               " WHERE " &
               " [Fullname] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
               " [Nickname] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
               " [PositionName] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
               " [DepartmentName] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
               " [Mobile] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
               " [Phone] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
               " [eMail] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
               " [FaceBookID] " & " Like '%" & txtSearch.Text & "%'" &
               " [Mobil] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
               " [Area] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
               " [City] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
               " [State] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
               " [Country] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
               " [Responsible] " & " Like '%" & txtSearch.Text & "%'" & " OR " &
               " ORDER BY ContactPK "
       Else
           strSQL = strSQL & " ORDER BY ContactPK "
       End If
       '//
       Try
           Cmd = New OleDbCommand
           If Conn.State = ConnectionState.Closed Then Conn.Open()
           Cmd.Connection = Conn
           Cmd.CommandText = strSQL
           Dim DR As OleDbDataReader = Cmd.ExecuteReader
           Dim i As Long = dgvData.RowCount
           While DR.Read
               With dgvData
                   .Rows.Add(i)
                   .Rows(i).Cells(0).Value = DR.Item("ContactPK").ToString
                   .Rows(i).Cells(1).Value = DR.Item("Fullname").ToString
                   .Rows(i).Cells(2).Value = DR.Item("Nickname").ToString
                   .Rows(i).Cells(3).Value = DR.Item("PositionName").ToString
                   .Rows(i).Cells(4).Value = DR.Item("DepartmentName").ToString
                   .Rows(i).Cells(5).Value = DR.Item("Mobile").ToString
                   .Rows(i).Cells(6).Value = DR.Item("Phone").ToString
                   .Rows(i).Cells(7).Value = DR.Item("eMail").ToString
                   .Rows(i).Cells(8).Value = DR.Item("FaceBookID").ToString
                   .Rows(i).Cells(9).Value = DR.Item("PictureName").ToString
                   newFileName = DR.Item("PictureName").ToString
                   .Rows(i).Cells(10).Value = DR.Item("Note").ToString
                   .Rows(i).Cells(11).Value = DR.Item("Mobil").ToString
                   .Rows(i).Cells(12).Value = DR.Item("Area").ToString
                   .Rows(i).Cells(13).Value = DR.Item("City").ToString
                   .Rows(i).Cells(14).Value = DR.Item("State").ToString
                   .Rows(i).Cells(15).Value = DR.Item("Country").ToString
                   .Rows(i).Cells(16).Value = DR.Item("Responsible").ToString

               End With
               i += 1
           End While
           lblRecordCount.Text = "[total : " & dgvData.RowCount & " record]"
           DR.Close()

       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
       '//
       txtSearch.Clear()
   End Sub

Re: Syntax Error (Missing Operation) in query expression

Mycroft Holmes9-Mar-19 11:40

Mycroft Holmes

9-Mar-19 11:40

Missing OR on line

" [FaceBookID] " & " Like '%" & txtSearch.Text & "%'" &

Also you end the where clause with an additional OR

Never underestimate the power of human stupidity -
RAH
I'm old. I know stuff - JSOP

Re: Syntax Error (Missing Operation) in query expression

Richard Deeming11-Mar-19 9:27

Richard Deeming

11-Mar-19 9:27

RedPandinus wrote:
What is wrong at below code?

Your code is vulnerable to SQL Injection[^]. 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: Syntax Error (Missing Operation) in query expression

Mycroft Holmes11-Mar-19 11:37

Mycroft Holmes

11-Mar-19 11:37

Take Note of Richards reply, not only will you application be safer, and that is a VERY serious issue, but these string structure problems will disappear.

To give you an idea if I (or any competent development manager) saw that code I would immediately reject the application.

Never underestimate the power of human stupidity -
RAH
I'm old. I know stuff - JSOP

Re: Syntax Error (Missing Operation) in query expression

RedPandinus12-Mar-19 9:04

RedPandinus

12-Mar-19 9:04

thank you so much, I will follow the advice.

Type conversion in VB.NET

Revolution Radio9-Mar-19 3:03

Revolution Radio

9-Mar-19 3:03

HI.

I am building a race simulator using outputs from the iRacing SDK. Most outputs are straightforward but some (described in documentation as "FLOAT" are giving me the error: "Value of type 'iracingsdkwrapper.telemetryvalue(of single)'cannot be converted to integer."
I've tried all kinds of things including extensions but nothing gets a useable number from these types of values.
A typical output using .tostring shows the output as -0.0123456 rad

If I try to use Cint(), I get an error:
"An unhandled exception of type 'System.Reflection.TargetInvocationException' occurred in mscorlib.dll

Additional information: Exception has been thrown by the target of an invocation."

I'm using VB.NET through VS2012 Express.

Any help would be greatly appreciated.
Mike.

Re: Type conversion in VB.NET

Richard MacCutchan9-Mar-19 4:14

Richard MacCutchan

9-Mar-19 4:14

Why are you trying to convert such values into integers? The resulting numbers are unlikely to be of any use, as they lose most of their precision. The value -0.0123456 rad looks like an angle, so converting that to an integer will give you -0 which probably is not much use.

Re: Type conversion in VB.NET

Revolution Radio9-Mar-19 5:22

Revolution Radio

9-Mar-19 5:22

The particular parameter I'm looking at right now is the value for body roll which is, as you say, measured in rads.
The value as generated by the simulator is far too low to use but simply multiplying the value before converting would give me numbers that could safely be translated to integers.
Although the output is very precise, I only need approximate values as they will be mixed in with lateral acceleration, suspension deflection and some other values so any inaccuracies will be lost in the mix so to speak.
I just want a number that I can work with!

Re: Type conversion in VB.NET

Richard MacCutchan9-Mar-19 6:36

Richard MacCutchan

9-Mar-19 6:36

For such a small starting value you need to multiply by 100 or 1000 at least, I would guess.

Re: Type conversion in VB.NET

Revolution Radio11-Mar-19 0:43

Revolution Radio

11-Mar-19 0:43

That is my intention.
I currently do the same with the Lateral acceleration values which works fine. As would this, if I could get a useful number to start from.

Question for fetching the data from table

Member 141728245-Mar-19 23:01

Member 14172824

5-Mar-19 23:01

How to retrieve the data from table and put in textbox

Re: Question for fetching the data from table

CHill607-Mar-19 1:46

CHill60

7-Mar-19 1:46

We will need a lot more information than this in order to help you. Post the code you have already tried and tell us what the problem is

Re: Question for fetching the data from table

Richard MacCutchan7-Mar-19 1:52

Richard MacCutchan

7-Mar-19 1:52

1. See System.Data.SqlClient Namespace | Microsoft Docs[^] .
2. See TextBox Class (System.Windows.Forms) | Microsoft Docs[^].

Trying to set caret at correct offset: CLOSED

mo149228-Feb-19 7:58

mo1492

28-Feb-19 7:58

This solved my problem:
Dim szF As SizeF = gr.MeasureString(Me.Text.Substring(0, iIndex), Me.Font, New SizeF(999, 999), StringFormat.GenericTypographic)

I have a control derived from UserControl in which I am trying to implement like a TextBox
and I am having trouble setting the caret in the correct text column position. Below is the
code to calculate the x offset and move the caret.

Simple test:
With the text "aBc", when I try to set the caret between 'a' and 'B' (iIndex=1), the caret is displayed
almost at the end of the 'B'.

MeasureDisplayStringWidth() is test code I found on the internet and
does not make any difference than using gr.MeasureString().

SetCaretPos() is the standared Windows API for setting the caret.

And for those who wonder why I don't just use a TextBox, this control has all kinds of custom
stuff including rotation.

I would appreciate any help.
Thank you

Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim sb As SolidBrush = New SolidBrush(Color.FromArgb(255, 0, 0, 255))
' Display text
e.Graphics.DrawString(Me.Text, me.Font, sb, 0, 0)
End Sub

Private Sub MoveCaret(ByVal iIndex As Integer)
Dim gr As Graphics = Me.CreateGraphics()
' Both of these give the same result.
'Dim szF As SizeF = gr.MeasureString(Me.Text.Substring(0, iIndex), Me.Font)
Dim i As Integer = MeasureDisplayStringWidth(gr, Me.Text.Substring(0, iIndex), Me.Font)

gr.Dispose()
gr = Nothing

' Windows api call
MyUtilsLib.WindowsAPI.SetCaretPos(i, 1)
End Sub

Public Function MeasureDisplayStringWidth(ByVal gr As Graphics, ByVal text As String, ByVal fnt As Font) As Integer
If text.Length < 1 Then Return 0

Dim format As System.Drawing.StringFormat = New System.Drawing.StringFormat()
Dim rect As System.Drawing.RectangleF = New System.Drawing.RectangleF(0, 0, 1000, 1000)
Dim ranges As System.Drawing.CharacterRange() = {New System.Drawing.CharacterRange(0, text.Length)}
Dim regions As System.Drawing.Region() = {New System.Drawing.Region()}

format.SetMeasurableCharacterRanges(ranges)
regions = gr.MeasureCharacterRanges(text, fnt, rect, format)
rect = regions(0).GetBounds(gr)

Return CInt(rect.Right + 1.0F)
End Function

-- modified 28-Feb-19 15:15pm.

System.Data.OLEDB, my OLEDB connection stopped working in Win10 X64

jkirkerx26-Feb-19 7:47

jkirkerx

26-Feb-19 7:47

Not sure if this is the right place to post this.

My VB Winform app works on Win 7 32 bit just fine, and in VS 2017 when developing on my Win10 X64 machine. But when I go to install the app on my machine, it won't access or read the database files. There's no error or exception thrown. It worked before, up until perhaps last December.

Some research suggested that I need the Access Database Engine. So I did download that and installed but no difference. Not really sure which direction to go here. Perhaps I just need to add a file to my Wix installer program. I'm thinking it's the System.Data file that contains OLEDB and I can just add that to the install.

I do have my Wix installer set to X86, because the customer target machines are Win 7 32 bit. But I'm will be selling the new computers that are Win10 X64 so I need to fix this.

Any help or knowledge would be appreciated.

If it ain't broke don't fix it
Discover my world at jkirkerx.com

Tried some more things

jkirkerx26-Feb-19 8:27

jkirkerx

26-Feb-19 8:27

I changed the compile to X86, and choose Debug-Net4.0 and that version works
Tried Release-Net4.0 and that version didn't work

So the debug version works, but not the release
In release mode I get this error - The 'Microsoft.Jet.OLEDB.4.0' provider is not registered on the local machine

Oh, I spent many hours working with nLog and integrated it into my windows apps. Just dawned on me to use my logging system to check for errors, Homer Simpson Duh!!!!!

I think I got this now ...

If it ain't broke don't fix it
Discover my world at jkirkerx.com

modified 26-Feb-19 14:47pm.

Re: System.Data.OLEDB, my OLEDB connection stopped working in Win10 X64

Maciej Los26-Feb-19 8:46

Maciej Los

26-Feb-19 8:46

Please, read these:
Solved - The Microsoft.ACE.OLEDB.12.0 provider is not registered on the local machine
Jet for Access, Excel and Txt on 64 bit systems - ConnectionStrings.com
The 'Microsoft.ACE.OLEDB.12.0' provider is not registered on the local machine - ConnectionStrings.com

It might help to resolve your issue.

Message Closed

11-Feb-19 1:03

manju 3

11-Feb-19 1:03

Message Closed

modified 11-Feb-19 12:17pm.

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