Member Avatar for Steammike

Hi expert,
i facing a problem when i try to connect to database by using vb.net
below is my code:
Imports System.Data
Imports System.Data.OleDb

Public Class Form1
Dim dSet As New DataSet
Dim da As OleDb.OleDbDataAdapter

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim User, pass ', dataPass

If txtUser.Text = "" Then
lblErr.Text = "Nothing"
Else
lblErr.Text = "Here"
End If

User = txtUser.Text
pass = txtPass.Text

Dim conn As New OleDb.OleDbConnection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\user.mdb"

conn.Open()

Dim strSQL As String
strSQL = "SELECT * FROM user&pass where username = 'admin'"
da = New OleDb.OleDbDataAdapter(strSQL, conn)
Dim ds As DataSet = New DataSet()
da.Fill(ds) 'fill dataset

Dim dr As DataRow
For Each dr In ds.Tables(0).Rows 'Show results in output window
txtPass.Text = dr("password")
Next

End Sub

And the error message was:
System.Data.OleDb.OleDbException was unhandled
ErrorCode=-2147217900
Message="Syntax error in FROM clause."
Source="Microsoft Office Access Database Engine"
StackTrace:
at System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(OleDbHResult hr) at System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method) at System.Data.OleDb.OleDbCommand.ExecuteReader(CommandBehavior behavior) at System.Data.OleDb.OleDbCommand.System.Data.IDbCommand.ExecuteReader(CommandBehavior behavior) at System.Data.Common.DbDataAdapter.FillInternal(DataSet dataset, DataTable[] datatables, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior) at System.Data.Common.DbDataAdapter.Fill(DataSet dataSet, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior) at System.Data.Common.DbDataAdapter.Fill(DataSet dataSet) at TestingDatabase.Form1.btnLogin_Click(Object sender, EventArgs e) in C:\Documents and Settings\Chong\My Documents\Visual Studio 2008\Projects\TestingDatabase\TestingDatabase\Form1.vb:line 30 at System.Windows.Forms.Control.OnClick(EventArgs e) at System.Windows.Forms.Button.OnClick(EventArgs e) at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) at System.Windows.Forms.Control.WndProc(Message& m) at System.Windows.Forms.ButtonBase.WndProc(Message& m) at System.Windows.Forms.Button.WndProc(Message& m) at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData) at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) at System.Windows.Forms.Application.Run(ApplicationContext context) at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun() at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) at TestingDatabase.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81 at System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args) at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args) at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly() at System.Threading.ThreadHelper.ThreadStart_Context(Object state) at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) at System.Threading.ThreadHelper.ThreadStart()
InnerException:

Can anyone help me find out what is the problem at here? Please help, its urgent...
thanks in advance...

Regards
Mike

  • 2 Contributors
  • 2 Replies
  • 318 Views
  • 6 Hours Discussion Span
  • Latest Post Latest Post by Steammike

Recommended Answers

All 2 Replies

Member Avatar for hbmichael

"SELECT * FROM user&pass where username = 'admin'"

Is the table named user&pass?
You might try enclosing it in brackets.
"SELECT * FROM [user&pass] where username = 'admin'"

Member Avatar for Steammike

"SELECT * FROM user&pass where username = 'admin'"

Is the table named user&pass?
You might try enclosing it in brackets.
"SELECT * FROM [user&pass] where username = 'admin'"

Thanks for the help... I got it finally^&^

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.