ايش الخطاء في هذا الكود

السلام عليكم ورحمة الله

أخي الخطأ واضح !! فقط قم بمراجعة جملة الـ INSERT

والله الموفق

بس انا ماستخدمت جملةinsert into انا استخدمت جملةCommandBuilder والقاعدة الى بشتغل عليها Access

طيب بس كيف احلها

بصى يا lana يا قمر

منقدرش نقول ان فى غلطة فى الكود بتاعك

بس ياترا الغلطة دى جات منين

هنفترض ان انتى فى جملة Select استخدمتى [ ]

علشان كدة المفروض تحطية لل CommandBuilder وبعد كدة GetInsertCommand

c.QuotePrefix = "["
c.QuoteSuffix = "]"
da.InsertCommand = c.GetInsertCommand

ولون فى تحفظ على انشاء DataAdapter و DataSet علشان نعمل Insert

جربى وقوليلنا على النتيجة

فى آمان الله

لدي رد في هذه المشاركة ( /index.php?showtopic=121845 ) سوف ينفعك إن شاء الله ..

it didnt work look i will but all code ok here is

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Class Form1

Dim con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=web.mdb")

Dim ds As New DataSet

Dim da As New OleDb.OleDbDataAdapter

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

'save

ds.Clear()

Dim r As DataRow

r = ds.Tables("Tabel1").NewRow

r("Name_Of_Book") = TextBox1.Text

r("Publish") = TextBox2.Text

r("ISPN") = TextBox5.Text

r("Family") = TextBox3.Text

r("Date") = TextBox4.Text

ds.Tables("Tabel1").Rows.Add®

Dim c As New OleDb.OleDbCommandBuilder(da)

da.InsertCommand = c.GetInsertCommand

da.Update(ds.Tables("Tabel1"))

Label12.Text = "The Data Saved"

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'load form

da.SelectCommand = New OleDb.OleDbCommand

da.SelectCommand.Connection = con

da.SelectCommand.CommandText = "select * from Tabel1"

da.Fill(ds, "Tabel1")

DataGridView1.DataSource = ds.Tables("Tabel1")

Label12.Text = "The Data Loaded"

End Sub

End Class

للحصول على أفضل النتائج ، من الافضل إرفاق ملف المشروع ..

ماشاء الله عليا

اتوقع المشكلة واعطيك الكود بتاع حلها ويشاء ربنا ان يطلع حلها هو الى توقعتة

عملت قاعدة بيانات مخصوصة بنفس الجدول بتاعك وطبقت وطلع زى ما قولت

  Dim c As New OleDb.OleDbCommandBuilder(da)
		c.QuotePrefix = "["
		c.QuoteSuffix = "]"
		da.InsertCommand = c.GetInsertCommand
		da.Fill(ds, "Tabel1")

فى الاخر اقول

عظمة على عظمة على عظمة يا :D Pink

فى آمان الله

PinkBooks.rar

wow very very cool its working can i know how you get that i mean how you thinking pleas and thanks