'Cannot get Query to work VB 2010' Thread RSS Feed

Cannot get Query to work VB 2010

Thu, 01 Sep 2011 14:44:44 -0700

Hello I am trying to get a query to work with Visual Basic 2010 Express addition I have pasted the code below but it just errors out with to many arguments I have taken this sample from a reference book but cannot get the darn thing to work. I have looked all over the net and Microsoft for a solution but still no go if any one can help it would really be great. BEP

Private Sub FillBypeeps1ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillBypeeps1ToolStripButton.Click
Try
Me.TblMaintPeepsTableAdapter.FillBypeeps1(Me._Prog ressive_1_MaintPeeps.TblMaintPeeps, (Me.ToolStripTextBox1.Text))
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

End Sub

Re: Cannot get Query to work VB 2010

Fri, 02 Sep 2011 03:38:18 -0700

Some days ago I was facing that kind of problem with one of my custom software. Mr. Kyle Gush help me in this problem. Kyle Gush of New York is an expert programmer. You may contact with him.

This post has been deleted.

Fri, 02 Sep 2011 03:41:04 -0700

This post has been deleted.

Re: Cannot get Query to work VB 2010

Sat, 03 Sep 2011 09:07:50 -0700

Managed to get tis to work. The issue is about the type of tables you are trying to query Access and SQL server behave differently. The real issue is that there are very few examples that explain it even in the microsoft website. The qurey that works and the VB code is below. This gets rid of the overflow error and allows a user to enter an open ended string to search by bottom line is all is good. Thanks for the help.

Query

SELECT PeepsID, PeepsPersonelNum, PeepsFrstNam, PeepsLastNam, [PeepsPhone#], [PeepsAltPhone#], PeepsShift, PeepsFullName
FROM TblMaintPeeps
WHERE (PeepsLastNam like '%' + ? + '%' )

VB Code:

Private Sub FillBypeeps1ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillBypeeps1ToolStripButton.Click
Dim PeepsLastNam As String

PeepsLastNam = ToolStripTextBox1.Text

Try
Me.TblMaintPeepsTableAdapter.FillBypeeps1(Me._Prog ressive_1_MaintPeeps.TblMaintPeeps, PeepsLastNam)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try

End Sub