كيف اضيف بيانات حقل من قاعدة البيانات الى Dropdownlist ؟

يعطيك ألف عافية اخوي

تسلم اخوي

طيب انا سويت اللي قلت لي عليه وصار تمام

الاسماء انضافت إلى DropDownList2 من حقل name

انا عندي قاعدة بيانات اعمال : اسم العمل name - نوع العمل kind - الحجم size

ابغى لما احدد اسم العمل في DropDownList2 واضغط على " تعديل " يطلع لي اسم العمل في textbox1 ونوع العمل في DropDownList1 والحجم في textbox2.text

وبعدين اعدل عليها واضغط تعديل ويتعدل

يعني زر " تعديل " لاظهار البيانات في الادوات

وزر " تعديل البيانات " للتعديل الفعلي

ماضبطت معي

الحين اسماء الاعمال كلها جات في DropDownList2 بس كيف طريقة اني لما احدد اسم العمل اعدل عليه في التكست بوكس

شوف الصورة اخوي بالمرفقات وتفهم اكثر

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

بالنسبة للسؤال الاول اي عند التحديد من drop قومي بالاتي

في الحدت كليك للزر تعديل اكتبي الاتي

dbcon.Open()
        sql = "select * from teamjob where name ='" & DropDownList2.Text & "'"
        Dim com As New OleDbCommand(sql, dbcon)
        myreader = com.ExecuteReader
        While myreader.Read
            TextBox1.Text = myreader("name")
DropDownList1.Text=myreader("kind")
            TextBox2.Text = myreader("size")
        End While
        con.Close()

الجزا التاني من السؤال اختي هل تستعملين في الاضافة و التعديل الوضع المتصل ام المنفصل ولو حبدا لو يكون المنفصل لانه يرفع الضغط على قاعدة البيانات

سافترض انكي تعملين ب الوضع المنفصل رغم انكي تستعملين datareader التي تدخل في الوضع المتصل

في الحدت كليك للزر تعديل العمل اكتبي

Dim dr As Data.DataRow
Dim com As New OleDbCommand("select * from teamjob", dbcon)
        Dim dad As New OleDbDataAdapter(com)
        Dim ds As New Data.DataSet
        dad.Fill(ds, "teamjob")
        For i = 0 To ds.Tables("teamjob").Rows.Count - 1
            dr = ds.Tables("teamjob").Rows(i)
            If dr("name") = DropDownList2.Text Then
dr("name")=TextBox1.Text 
dr("kind")=DropDownList1.Text
            dr("size")=TextBox2.Text 
                Exit For
            End If
        Next
        Dim comb As New OleDbCommandBuilder(dad)
        dad.Update(ds, "matiere")

اختي انا هنا افترضت ان التعديل سيكون بدلالة الاسم و هدا غير عملي اد انه متلا كما في الصورة اخترتي خالد ربما قد يكون هناك اكتر من خالد واحد

وبالتالي سيعدلون كلهم بنفس البيانات لهدا ان كان هدا ايضا ما تنوين فعله فانصحكي باستعمال حقل جديد و ليكن id نوعه NuméroAuto

بحيت يكون التعديل بدلالته

سيشتغل الكود ان شاء اله ربما ستحتاجين الى التغيير في الكود حسب متطلباتكي اي شيئ لم تفهمينه في الكود ما عليكي الا طرح السؤال فانا رهن الاشارة

تعبتك معاي آسفة

والله يجزاك ألف خير

طيب اخوي الكود الاول تمام التمام وضبط معي

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

وش المشكلة مع اني احس ان صح وشغال معي بصفحه ثانية تمام

بس هنا مايعدل بقاعدة البيانات

الصورة بالمرفقات

dbcon.Open()

dataset1.Clear()

sql = "update teamjob set name= '" & TextBox1.Text & "', kind= '" & DropDownList2.SelectedValue & "', size= '" & TextBox2.Text & "' where name= '" & DropDownList1.SelectedItem.Text & "'"

dbcm = New OleDbCommand(sql, dbcon)

dbcm.ExecuteNonQuery()

MsgBox("تم تعديل البيانات بنجاح")

dbcon.Close()

Response.Redirect("t2.aspx")

جربي هدا الكود و ردي علي

dbcon.Open()
        sql = "update teamjob set name= '" & TextBox1.Text & "', kind= '" & DropDownList2.Text & "', size= '" & TextBox2.Text & "' where name= '" & DropDownList1.Text & "'"
        Dim comu as New OleDbCommand(sql, dbcon)
        comu.ExecuteNonQuery()
        MsgBox("تم تعديل البيانات بنجاح")
        dbcon.Close()


Response.Redirect("t2.aspx")

امممممممممممممممم

ماضبط يالغلا نفس الشي

يعطيمي خطأ

Syntax error in UPDATE statement.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: System.Data.OleDb.OleDbException: Syntax error in UPDATE statement.

Source Error:

ياربي بجننننن

شوف اضفت لك ملف فيه الجدول والصفحات

شوفه له لاهنت والله يجزيك ألف خير

<منحرجة منك

333.rar

اختي لقد توصلت الى الحل و هو سهل جدا اد ان اسماء الحقول التي وضعتها انتي تعتبر كلمات محجوزة في access لدا ما عليكي سوى تغيير اسماء الحقول فبدلا من name متلا اكتبي namee وبدلا من

size اكتبي sizee و بدلا من kind اكتبي kindd وستحل المشكلة بادن الله المشروع في المرفقات بالحل فقظ للاشارة انا لم استعمل session التي استعملتها ادن يجبي التغيير لان المهم اننا وجدنا الحل وامل ان

لا تقعي في هدا الخطا رة اخرى

WebSite5.rar

ضبط تمام التمام ويعطيك ألف عافية

بس لما اضغط تعديل الاسماء تصير دبل في دروب

يعني تتكرر مرتين لما اضغط تعديل

هل من حل ؟

صحيح اخوي ضبط ويعطيك ألف عافية تعبتك معي

بس غريبة انا مستخدمة size و name في جداول ثانية

وسويت عليها عمليات سلكت وابديت وتمام

طيب اخوي مليت مني؟

عندي بعد سؤال

الحين انا بهالجدول في حقل اسمه down لرفع الملفات

بالاضافة إلى جدول teamjob شغال اوكي

يرفع ملف ويحفظ مساره في قاعدة البيانات

وهذا كود الرفع

If UpImg.PostedFile.FileName = Nothing Then

MsgBox("لم يتم اختيار ملف لرفعه")

Exit Sub

End If

Dim FPath As String = Server.MapPath("teamj") & "\" & IO.Path.GetFileName(UpImg.PostedFile.FileName)

IO.File.Exists(FPath)

If IO.File.Exists(FPath) = True Then

MsgBox("اسم الملف موجود من قبل ,قم بتغيير اسم الملف")

Exit Sub

End If

UpImg.PostedFile.SaveAs(FPath)

وبعدين احط في جملة insert

down ='" & UpImg.PostedFile.FileName &

هذا تمام

طيب اذا بعدل حقل down واضيف فيه مسار ملف ثاني .. ماجا معي

جربت نفس الطريقة كتبت كود الرفع وكتبت في جملة update اللي كتبته في insert

لكن يعطيني خطأ

عندك فكرة؟؟

والله اني منحرجة منك والله يجزاك ألف ألف ألأف خير

"'

ارسلي الملف لتحديد الخطأ او اكتبي رسالة الخطأ

لا اختي لم امل فالله في عون العبد ما دام العبد في عون اخيه

لدي حل اخر ادا اردتي استعماله فهو جيد لما لا تجعلين الصور التي ترفعينها تسجل في مجلد اسمه متلا image يكون في ملفات المشروع بالطبع اضافة المجلد سيكون ب الكود vb.net حيت ان مسارات الصور تكون من هدا المجلد

المشروع في المرفقات فيه اضافة صورة تعديل صورة و عرض صورة في نفس قاعدة البيانات teamjob الكودات ربما ستكون مبهمة و لكن المهم انها شغالة تماما حسب متطلباتكي و سامحيني ان تاخرت في الردود

WebSite5.rar

اخوي

أبغى لما اضغط على تعديل .. مثل مايعرض لي ال namee في textbox1

وال sizee في text3

وال kindd في drop

أبغاه يعرض لي اسم الملف في أداة الاستعراض من حقل down

عشان لما احط خيار تعديل مايجبرني اعدل الملف

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

فإذا مافيها شي مايعدل لأنها موجودة بجملة update

اللي هي down='" & UpImg.PostedFile.FileName & "'

والملف بالمرفقات فيه صفحة الاضافة

وصفحة التعديل

وقاعدة البيانات والمجلد اللي تروح له الملفات المرفوعه

المطلوب لما احط تعديل مايجبرني ارفع الملف مرة ثانية اذا ماابغاه اعدله

يعني يبقي الملف السابق غير معدل

مثلاً لو دخلت بعدل الحجم على حقل فقط .. ومابي اعدل الملف في down

مايجبرني لأن لو تركته فاضي مايعدل لأن موجود في جملة update

down='" & UpImg.PostedFile.FileName & "'

اخوي

أبغى لما اضغط على تعديل .. مثل مايعرض لي ال namee في textbox1

وال sizee في text3

وال kindd في drop

أبغاه يعرض لي اسم الملف في أداة الاستعراض من حقل down

عشان لما احط خيار تعديل مايجبرني اعدل الملف

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

فإذا مافيها شي مايعدل لأنها موجودة بجملة update

اللي هي down='" & UpImg.PostedFile.FileName & "'

والملف بالمرفقات فيه صفحة الاضافة

وصفحة التعديل

وقاعدة البيانات والمجلد اللي تروح له الملفات المرفوعه

المطلوب لما احط تعديل مايجبرني ارفع الملف مرة ثانية اذا ماابغاه اعدله

يعني يبقي الملف السابق غير معدل

مثلاً لو دخلت بعدل الحجم على حقل فقط .. ومابي اعدل الملف في down

مايجبرني لأن لو تركته فاضي مايعدل لأن موجود في جملة update

down='" & UpImg.PostedFile.FileName & "'

444.rar

اما بالنسبة للعرض فيمكنكي عرضها على شكل tooltip اي عند تمرير الفارة على الادات باضافة في الكود هدا السطر

UpImg.ToolTip = MyReader("down")

اختي ممكن اسخدام هته الطريقة يعني ادا تم اختيار ملف ادن سيقوم بتعديل الكل

If imgUpload.HasFile Then
dbcon.Open()
   sql = "جملة التعديل"
        Dim comu As New OleDbCommand(sql, dbcon)
        comu.ExecuteNonQuery()
        MsgBox("تم تعديل البيانات بنجاح")
        dbcon.Close()
ese
'هنا تعديل فقط الاسم و الحجم و kindd 
dbcon.Open()
   sql = "جملة التعديل"
        Dim comu As New OleDbCommand(sql, dbcon)
        comu.ExecuteNonQuery()
        MsgBox("تم تعديل البيانات بنجاح")
end if
        dbcon.Close()

خلاص اخوي حليتها وجزاك الله ألف خير وماقصرت

عرفت احلها ..

بس باقي حل تكرار الاسامي في دروب عند الضغط على " تعديل "

والشي الثاني انا عندي حقل للصور .. هل فيه شي او طريقة لتحديد طول وعرض الصورة تلقائي داخل الحقل؟

طيب يالغلا عندي بالموقع راسلنا ... تعرف طريقة سهلة لإرسال رسالة على ايميل ؟

اعبي البيانات بتتكست وبعدين ارسال على الايميل

عندك طريقة اخوي؟

بالنسبة لطريقة ارسال امسل سهلة جدا الكود

 'هنا انشاء الرسالة و ارسالها الى من تريدين با اختي
        Dim MyMailMessage As New System.Net.Mail.MailMessage("tarikb38@gmail.com", "tarikab_tdi@hotmail.fr", "عنوان الرسالة", "ما تريدين ارساله")
        MyMailMessage.IsBodyHtml = False
        ' gmail هنا تقومين بعملية تسجيل الدخول ادن لازم تسجلين في
        Dim mailAuthentication As New System.Net.NetworkCredential("tarikb38@gmail.com", "alahkabir")
        ' gmail الخاص ب port و smtp هنا
        Dim mailClient As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)
        ' ssl هنا تفعيل
        mailClient.EnableSsl = True
        mailClient.UseDefaultCredentials = False
        mailClient.Credentials = mailAuthentication
        mailClient.Send(MyMailMessage)
        ' و في الاخير شعال زي القمر

اختي يمكنكي التجريب ب حسابي الخاص بي لا باس لكن قومي بعد التجريب بانشاء حسابكي الخاص اما بالنسبة للشطر التاني من الطلب اميلي الان معروف tarikab_tdi@hotmail.fr ارسلي لي المشروع

لارى الخطا بالضبط وين السلام عليكم

طيب اخوي ممكن تشوف لي الملف اللي تحت

عندي صفحة تحكم بقاعدة بيانات فيديو

فيها اسم الفيديو ونبذه والحجم وصورة وتحميل

سويت التعديل مثل فكرة التعديل على teamjob اللي سويناها

وفي teamjob فيه حقل تحميل وصار كل شي تمام

اما هنا في قاعدة بيانات الفيديو فيه حقل صور وحقل تحميل وكله يتعرف عالمسار

المشكلة اللي واجهتني ان لما اضع تعديل رفع الصور يضبط تمام .. او لما اضع رفع ملف التحميل يضبط تمام

بس لما اضع تعديل اثنينهم مايجي معي

مايعدل ولا واحد

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

يعطيك الف عافية وجزاك الله ألف خير

44444.rar

حاضر اختي غدا ان شاء الله سيكون جاهز

طبعاً هذا نموذج من مشروعي

في المشروع مجلد اسمه "video " يحقظ فيه مسار الصور ومسار ملف التحميل

مثل مابتشوف بالكود

بس ابغى اعرف ليه مايعدل اثنينهم

واذا حطيت كود واحد فيهم بس يعدل ..

الله يطول بعمرك ويخليك

اخوي الغالي .. لما ارفع ملف مايقبل ملف حجمه اكبر من 2 جيجا

عندك حل ؟؟

تسلم والله يطول في عمرك ويحميك

لا يالغالي قاعدة البيانات مالها شغل لأن يتحدد فيها المسار فقط مو الملف نفسه

انا اقصد ان الاداة fileuplode عندي بالكود اللي موجود بالمثال لما ارفع ملف اكبر من 2 جيجا مايقبل