مشکل در متصل شدن به پایگاه داده

[vbamirvb]

Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\d2.mdb")
Dim command As New OleDbCommand("insert into t1 (as) values (@TextBox2.text)", con)
command.Parameters.AddWithValue("as", TextBox2.Text)
con.Open()
command.ExecuteNonQuery()
con.Close()
از قسمت
command.ExecuteNonQuery()
ارور داره مشگلش چیه

[GGRRSS_2]

اين رو تست نماييد
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\d2.mdb")
Dim strSQL As String = _
"INSERT INTO t1 (as)" & _
"VALUES (@as)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@as", Me.TextBox2.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()

[alimanam]

با سلام

کد فوق احتمالاً درست میتونه باشه . من نام فیلدی به نام as رو میبینم که شما ظاهراً به عنوان نام یک فیلد ازش استفاده کردین باید خاطر نشان کرد که باید خیلی مواظب بود تا نامی که توسط sql رزرو شده استفاده نشه . as رو من امتحان نکردم ببینم جواب میده ولی بهتره از یک نام دیگر برای فیلدتون استفاده کنین که حساسیت ایجاد نکنه .

موفق باشید./