شباب ابي اكواد

لماذا لا تختار إضافة Windows Form وتختار Data Form Wizard. سوف تختصر على نفسك بهذا الكثير من العمل، مثل إضافة DataSet وOleDbConnection. وبعد إضافة انسخ كود التنقل والإضافة والحذف الذي يكتبه لك الـ Wizard.

طيب خلينا نشوف الكود اللي عملتيه و طلع خطأ و ان شاء الله نصححه لكي. هكذا تكون الإستفادة أفضل.

اخوي انا ولد مو بنت

بس على العموم عيطيك العافيه

وهذا الكود

dim ins as new oledb.oledbcommand

ins.commandtext="insert into e(eid,ename,price) valuer(" & textbox1.text & "," & textbox2.text & "," & textbox3.text & ")

ins.connection1.open

ins.executenonquery

oledbconnection1.close

messagebox.show("نص")

clear

وهذا الكود الذي كتبته للاضافه

والله يعطيك العافيه

اخوك طارق (ورود الشوق)

آسف!! جرب...

dim connection1 as new oledbconnection("....connection string....")
dim ins as new oledbcommand

ins.commandtext="insert into e(eid,ename,price) values(" & textbox1.text & "," & textbox2.text & "," & textbox3.text & ")
ins.connection = connection1

ins.connection.open
ins.executenonquery
ins.connection.close

اقتباس

اخوي انا ولد مو بنت

:lol: :lol: :lol:

أخي طارق، كان الأصل أن تحسن إختيار معرّفك حتى لا يقع الجميع بإحراجات، ف "ورود الشوق" هو إسم أنثوي.

اخوي جربت الكود وماشتغل عندي

dim connection1 as new oledbconnection("....connection string....")

dim ins as new oledbcommand

ins.commandtext="insert into e(eid,ename,price) values(" & textbox1.text & "," & textbox2.text & "," & textbox3.text & ")

ins.connection = connection1

ins.connection.open

ins.executenonquery

ins.connection.close

هذا الكود الي اعطيتني وياه بس عليه بعض التعديل

السلام عليكم

جرب الكود دة

SqlConnection1.Open()

cmd.Connection = SqlConnection1

cmd.CommandText = "INSERT INTO e([eid],[ename],[price]) VALUES('" & Me.TextBox1.Text.Trim & "', '" & Me.TextBox2.Text.Trim & "', '" & Me.TextBox3.Text.Trim & " ')"

cmd.ExecuteNonQuery()

SqlConnection1.Close()

End If

ولو مشتغلش معاك حاول تضيف المثال وان شاء الله نعدل علية

If SqlConnection1.State <> ConnectionState.Open Then

ما تنفذ عندي

طيب ايش الخطأ اللي طلع معاك؟

اخوي هذا هو الخطاء في الصوره

همممم. حاجة غريبة.

بدلاً من

Ins.ExecuteNonQuery

جرب

Try
Ins.ExecuteNonQuery
Catch ex as Exception
Messagebox.show(ex.message)
End Try

و برضه قلنا على المسج اللي يطلع معاك.

اخوي يقولي خطاء في بناء الجملة في عبارة insert into

معليش اخوي بتعبك معي اشويه

تحملني

والله يعطيك العافيه

آها!! هنا الكلام!

طيب ممكن نشوف جملة الـinsert التي استخدمتها و تأكد أيضاً من أن الأسماء متطابقة مع الموجودة في الجدول.

اخوي هذي هي الجملة

"insert into e(eid,ena,date,na,add,ca,sa,ph,mo) values(" & TextBox1.Text & ",'" & TextBox2.Text & "," & TextBox3.Text & "," & TextBox4.Text & "," & TextBox5.Text & "," & TextBox6.Text & "," & TextBox7.Text & "," & TextBox8.Text & "," & TextBox9.Text & ")"

انتا كاتب

TextBox1.Text & ",'"

ودة موضع الخطاء

التعديل

"insert into e(eid,ena,date,na,add,ca,sa,ph,mo) values(" & TextBox1.Text & "," & TextBox2.Text & "," & TextBox3.Text & "," & TextBox4.Text & "," & TextBox5.Text & "," & TextBox6.Text & "," & TextBox7.Text & "," & TextBox8.Text & "," & TextBox9.Text & " ')"

",'"