الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

حد يقولي فين الخطا رجاء تعبت والله

بدأه incomplete في 24 فبراير 2009 · 7 رد · 678 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني المبرمجين

بصراحه تعبت

عندما اريد عمل اضافه تطلع لي رساله خطا

(خطافي جمله عباره الinsert into

وهذا الكود المستخدم

علما بان الواجهه تظهر ولكن عند الضغط على الزر يطلع الخطأ

الرجاء المساعده

If MsgBox("هل تريد بالفعل حفظ سجل ", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then

Exit Sub

End If

Try

myconnection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & " data source =D:\dab.mdb"

Dim sv As New OleDbCommand

sv.Connection = myconnection

myconnection.Open()

sv.CommandType = CommandType.Text

Dim adp As New OleDbDataAdapter("select * from hotels", myconnection)

sv.CommandText = "insert into hotels (hotel_name,country_name,city_name,level,avail_rooms,hotel_info,hotel_location) values('" & h_name.Text & "','" & h_country.SelectedText.ToString & "','" & h_city.SelectedText.ToString & "'," & h_level.SelectedText.ToString & "," & h_avail_rooms.SelectedText.ToString & ",'" & h_info.SelectedRtf.ToString & "','" & h_location.Text & "')"

sv.ExecuteNonQuery()

MsgBox("تمت عملية الحفظ بنجاح ")

ds.Clear()

adp.Fill(ds, "hotels")

myconnection.Close()

Catch ex As Exception

MsgBox(ex.Message)

End Try

الكود السابق بزر الحفظ

وفي الgeneral

الكود التالي

Imports System.Data

Imports System.Data.OleDb

وكذلك في الdeclaration

الاتصال ونصه

كالتالي

Dim constr As String = "provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\dab.mdb"

Dim myconnection As New OleDbConnection(constr)

Dim ds As New DataSet

الرجاء المساعد

لاني ساجن

وجزيتم الخير

اخوكم المبرمج المبتدئ incomplete

#2

طريقة تجميع جمل الـSQL بهذه الطريقة تتسبب بالكثير من الأخطاء الإملائية (ناهيك أنها ثغرة أمنية خطيرة). لذا أنصحك باستخدام أسلوب الـParameters في تشكيل جمل الـSQL. هناك عدة مقالات في هذا المنتدى (و خارجه) حول هذا الموضوع.

#3

مشكور اخي

بس لنا ما عرف غير هذه الطريقه

جاري البحث............

هل تقصد البارميتر في الsql

ام الباراميتر في اللغه

الرجاء المساعده

تم تعديل هذه المشاركة بواسطة incomplete في 25 فبراير 2009 في 10:28

#5

مشكور اخي مره اخرى وجاري التحميل

والقراءه

تحياتي لك

#6

ولو لم تجد الحل ارفق البرنامج وسوف نحاول مساعدتك

مع الايضاح باي فورم يقع المشكل

#7

السلام عليكــم ورحمـة الله وبركاتــة ،،

جرب هذا الكود:

Sub InsertHotel(ByVal h_name As String, ByVal h_country As String, ByVal h_city As String, ByVal h_level As Integer, ByVal h_avail_rooms As Integer, ByVal h_info As String, ByVal h_location As String)
		Dim myconnection As New OleDbConnection("provider=microsoft.jet.oledb.4.0;" & " data source =D:dab.mdb")
		myconnection.Open()
		Try
			Dim sv As New OleDbCommand
			sv.Connection = myconnection
			sv.CommandType = CommandType.Text
			sv.CommandText = "insert into hotels (hotel_name, country_name, city_name, [level], avail_rooms, hotel_info, hotel_location) values(?,?,?,?,?,?,?)"
			sv.Parameters.AddWithValue("hotel_name", h_name)
			sv.Parameters.AddWithValue("country_name", h_country)
			sv.Parameters.AddWithValue("city_name", h_city)
			sv.Parameters.AddWithValue("level", h_level)
			sv.Parameters.AddWithValue("avail_rooms", h_avail_rooms)
			sv.Parameters.AddWithValue("hotel_info", h_info)
			sv.Parameters.AddWithValue("hotel_location", h_location)

			sv.ExecuteNonQuery()


		Catch ex As Exception
			MsgBox(ex.Message)
		End Try
		myconnection.Close()
	End Sub

إذا ما ضبط معاك ، حاول ترفع المشروع علشان نعرف المشكلة فين.

[وسط]لا اله الا انت سبحانك انى كنت من الظالمين

[/وسط]

#8

مشكور اخي محدمد

على تقديم المساعده

حاولت مره اخرى وتطبق الكود حق الاضافه والحمدلله من غير باراميتير

وجربت كودك اخ حسان وتطبق اشكركم جميعا انا الان احاول في الحذف

اذا امكن اعطائي

داله الحذف للبارميتير

وجزيتم الخير جميعا

طبعا اذا احتجت مساعده اخرى في الحذف

انتم موجودين :wink:

تحياتي

مواضيع مشابهة