اريد المساعدة فى طريقة دخول الموقع من البرنامج - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : اريد المساعدة فى طريقة دخول الموقع من البرنامج (/showthread.php?tid=9618)

اريد المساعدة فى طريقة دخول الموقع من البرنامج - abdala - 16-07-13 بسم الله الرحمن الرحيم كل سنة وانتم طيبين بشهر رمضان الكريم انا اعمل على برنامج للمواقع واريد المساعدة فى طريقة ان ادخل اسم المستخدم والبسورد من البرنامج عند دخول الموقع وشكراااااااااااا اريد المساعدة فى طريقة دخول الموقع من البرنامج - abdala - 16-07-13 قد حولت فى تعديل الكود بهذا الشكل Private Sub btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_add.Click 'أولا نقوم بافراغ مربعات النصوص If btn_add.Text = "أضافة" Then TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox10.Text = "" TextBox11.Text = "" 'نغير خاصية الزر إلى حفظ ليتم حفظ االموقع btn_add.Text = "حفظ" ElseIf btn_add.Text = "حفظ" Then 'نعود ونحول الخاصية إلى أضافة ليسنى الأضافة مرة أخرى btn_add.Text = "أضافة" 'شرط التأكد من أن المربعات مليئة If TextBox3.Text <> "" AndAlso TextBox4.Text <> "" AndAlso TextBox5.Text <> "" AndAlso TextBox10.Text <> "" AndAlso TextBox11.Text <> "" AndAlso ComboBox2.Text <> "" Then btn_add.Text = "أضافة" 'هذه الكتلة هي للأضافة '......................................................................... Try 'الأتصال cmd.Connection = conn 'عبارة الأضافة cmd.CommandText = "insert into data (part,name,des,link,user_name,password) values('" & ComboBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & TextBox10.Text & "','" & TextBox11.Text & "')" 'أذا كان الأتصال مفتوح نقوم بأغلاقه If conn.State = ConnectionState.Open Then conn.Close() End If 'نفتح الأتصال conn.Open() 'تنفيذ الأضافة cmd.ExecuteNonQuery() 'اغلاق الأتصال conn.Close() 'حدثان ملئ الليست بوكس ومربعات النصوص filllistbox_Add() filltext_Add() ListBox3.Visible = True 'أصطياد الخطأ أن وجد وأظهاره في رسالة Catch ex As OleDbException MessageBox.Show(ex.Message) End Try '.............................................................................. Else 'أذا لم يتم ملئ مربعات النص تظهر هذه الرسالة MessageBox.Show("لم تدخل كل المعلومات") btn_add.Text = "حفظ" End If End If دة كود الاضافة فى خطا والقاعدة لا تقبل الاضافة End Sub اريد المساعدة فى طريقة دخول الموقع من البرنامج - abdala - 16-07-13 كود التعديل Private Sub btn_Editr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Editr.Click '& TextBox13.Text & "' WHERE user_name ='" & TextBox12.Text & "'" Try cmd.Connection = conn cmd.CommandText = "UPDATE data SET part = '" & ComboBox1.Text & "' , des = '" & TextBox2.Text & "' , link= '" & TextBox1.Text & "' , name = '" & TextBox6.Text & "' , user_name = '" & RTrim(TextBox13.Text) & "' WHERE password ='" & RTrim(TextBox12.Text) & "'" If conn.State = ConnectionState.Open Then conn.Close() End If conn.Open() cmd.ExecuteNonQuery() conn.Close() MessageBox.Show("تم التعديل بنجاح") filllistbox_Edatr() filltext_Edatr() Catch ex As OleDbException MessageBox.Show(ex.Message) End Try End Sub Private Sub btn_caler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_caler.Click Dim str As String = ModuleINI.sGetINI(ModuleINI.sINIFile, "Favorites Link .v4.1", "lng", "en") If str = "en" Then TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" btn_add.Text = "Seve" ListBox3.Visible = False Else TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" btn_add.Text = "حفظ" ListBox3.Visible = False End If نفس المشكلى لا يقبل التعديل مع العلم قاعدة البيانات 2003 ارجوا المساعدة