بسم الله الرحمن الرحيم و الصلاة و السلام على سيدنا محمد رسول الله صلى الله عليه و آله و سلم
السلام عليكم و رحمة الله و بركاته
لقد بحثت في المنتدى ولم أجد ما أريده
عندي database موجودة في المرفقات صممت كود اضافه لاسم المستخدم و كلمة المرور وضاف بنجاح و هو كالآتي
If Me.Txtusername.Text = ("") And Len(Trim(Me.Txtusername.Text)) = 0 Then
MsgBox("يجب عدم ترك إسم المستخدم فارغ")
Me.Txtusername.Focus()
Exit Sub
ElseIf Me.Txtpassword1.Text = ("") And Len(Trim(Me.Txtpassword1.Text)) = 0 Then
MsgBox("يجب عدم ترك كلمة المرور فارغة")
Me.Txtpassword1.Focus()
Exit Sub
ElseIf Me.Txtpassword2.Text = ("") And Len(Trim(Me.Txtpassword2.Text)) = 0 Then
MsgBox("يجب عدم ترك تأكيد كلمة المرور فارغة")
Me.Txtpassword2.Focus()
Exit Sub
ElseIf Len(Trim(Me.Txtpassword1.Text)) <> Len(Trim(Me.Txtpassword2.Text)) Or Me.Txtpassword1.ToString <> Me.Txtpassword2.ToString Then
Me.Txtpassword1.Text = ""
Me.Txtpassword2.Text = ""
Exit Sub
Else
End If
Dim Con As New OleDbConnection(constr)
Dim Adp_add As New OleDbDataAdapter(SQLstr, Con)
Try
Dim cmdadd As New OleDb.OleDbCommand
Dim ConStr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\account.mdb"
cmdadd.Connection = Con
cmdadd.CommandType = CommandType.Text
cmdadd.Parameters.Clear()
cmdadd.CommandText = "INSERT INTO Login(username,password1)" & _
"values ( '" & Me.Txtusername.Text & "','" & Me.Txtpassword1.Text & "' ) "
With cmdadd
.Parameters.Add(New OleDbParameter("@username", Me.Txtusername.Text))
.Parameters.Add(New OleDbParameter("@password1", Me.Txtpassword1.Text))
End With
cmdadd.ExecuteNonQuery()
DS.Clear()
Adp_add.Fill(DS, "Login")
cmdadd.Dispose()
Con.Close()
MsgBox("تمت عملية الاضافة و الحفظ بنجاح")
Catch ex As Exception
MsgBox(ex.Message)
End Tryولكن عند اضافة INSERT INTO أخرى للاضافة في حقل p_form يحدث خطا هي Index Or Primary Key Cannot Contain A Null Value