[abdala]

بسم الله الرحمن الرحيم

كل سنة وانتم طيبين بشهر رمضان الكريم

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

[abdala]

قد حولت فى تعديل الكود بهذا الشكل

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]

كود التعديل
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

ارجوا المساعدة