مشکل با اکسس

[ak1_2004]

سلام
یه برنامه دارم می نویسم که با بانک اطلاعاتی مشکل پیدا کردم !
اطلاعات رو به بانک اطلاعاتی اضافه می کنم اما برای بیرون کشیدن اطلاعات مشکل دارم !


Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Class Form5
Dim id As Integer
Private Sub CommandGet(ByVal sqlstring As String)
Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Database1.mdb"
Dim con As OleDbConnection = New OleDbConnection(strcon)
Dim cmd As OleDbCommand = New OleDbCommand
Dim data As OleDbDataReader
con.Open()
cmd.CommandText = sqlstring
cmd.Connection = con
data = cmd.ExecuteReader
While data.Read
id = data.Item(0)
TextBox1.Text = data.Item(1)
TextBox2.Text = data.Item(2)
TextBox3.Text = data.Item(3)
RichTextBox1.Text = data.Item(4)
End While
con.Close()
End Sub

Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.GorupTableAdapter.Fill(Me.Database1DataSet.Goru p)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
CommandGet("SELECT * FROM Group ORDER BY Id")
End Sub
End Class


این کد بالا یکی از فرم های من هست !
تا روی BUtton2 کلیک می کنم ، اررور می ده !

[Alghoochi]

چه اروری؟ حداقل متن ارور رو می ذاشتی؟

[karim orooji]

با سلام يك نمونه كد براي كشيدن اطلاعات در ديتا بيس


Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=D:\karim\.net\sima\ali.mdb"

Dim command As New OleDbCommand
command.Connection = con
con.Open()
command.CommandType = CommandType.Text
command.CommandText = "select * from ado order by id"

Dim reader As OleDbDataReader = command.ExecuteReader
While (reader.Read())
Me.TextBox1.Text = (reader.GetInt32(0))
Me.TextBox2.Text = (reader.GetString(1))
Me.TextBox3.Text = (reader.GetString(2))
Me.TextBox4.Text = (reader.GetString(3))
Me.TextBox5.Text = (reader.GetString(4))
Me.TextBox6.Text = (reader.GetString(5))
Me.PictureBox1.Image = New Bitmap(reader.GetString(5))
MsgBox(TextBox1.Text)
End While



گفتم شايد كمك كنه شما رو

[Alghoochi]

با سلام يك نمونه كد براي كشيدن اطلاعات در ديتا بيس


Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=D:\karim\.net\sima\ali.mdb"

Dim command As New OleDbCommand
command.Connection = con
con.Open()
command.CommandType = CommandType.Text
command.CommandText = "select * from ado order by id"

Dim reader As OleDbDataReader = command.ExecuteReader
While (reader.Read())
Me.TextBox1.Text = (reader.GetInt32(0))
Me.TextBox2.Text = (reader.GetString(1))
Me.TextBox3.Text = (reader.GetString(2))
Me.TextBox4.Text = (reader.GetString(3))
Me.TextBox5.Text = (reader.GetString(4))
Me.TextBox6.Text = (reader.GetString(5))
Me.PictureBox1.Image = New Bitmap(reader.GetString(5))
MsgBox(TextBox1.Text)
End While



گفتم شايد كمك كنه شما رو
کانکشن رو نبستید.


con.close()

[ak1_2004]

تا دکمه رو می زنم از این خط اررور می ده :
data = cmd.ExecuteReader
همچین چیزی :
Syntax error From Clause
!
توی نت سرچ زدم نوشتن مربوط به استفاده از نقطه در آدرس محل نگه داری دیتابیس هست ! اما اصلا من چنین چیزی ندارم !

ممنون می شم کدهای خودم رو اصلاح کنید تا مشکل رو متوجه شم !
تشکر

[karim orooji]

همچین چیزی :
Syntax error From Clause

اين ارور مربوط به داشتن غلط املايي در برنامه نويسي شماست

[Alghoochi]

فکر کنم ایراد از اینجا باشه
Dim data As OleDbDataReader
data = cmd.ExecuteReader
data نباید از نوع table یا dataset باشه؟

[ACorvinus]

سلام برادر.

کدی که در Button2_Click نوشتی رو بدین صورت تغییر بده:


CommandGet("SELECT * FROM [Group] ORDER BY Id")


بعد از اینکه مشکلت حل شد، هیچ وقت فراموش نکن که اسم جدول رو داخل [] بیاری ( چه یه کلمه کلیدی برای اکسس باشه، چه نباشه ).


موفق باشی.