13-07-13, 03:32 PM
تواجهني مشكلة في كود الحفظ في نموذج الإضافة حيث أنه كل ما أضغط عليه لا يفعل شيئاًَ فلا يحقظ المدخلات ولا حتى يعطي رسائل خطأ ولا اعرف أين المشكلة
فهل من مساعدة , وشكراً
مرفق الكود الذى أعمل به :-
فهل من مساعدة , وشكراً
مرفق الكود الذى أعمل به :-
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
Try
Dim SavInto As New OleDb.OleDbCommand
Dim ConStr As String = _
"provider=microsoft.jet.oledb.4.0; Data Source =" & _
Application.StartupPath & "\SFA.mdb"
Dim conn As New OleDbConnection(ConStr)
SavInto.Connection = conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "insert into playerdata(name,birthdate,club Membership,Membership type,federation Membership,qualification,job,home phone,cell phone,address,healthy Data,From,slevel)" & _
"values ('" & TextBox1.Text & "','" & TextBox13.Text & "','" & TextBox3.Text & "','" & TextBox2.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & TextBox4.Text & "') "
conn.Open()
SavInto.ExecuteNonQuery()
conn.Close()
MsgBox("تمت عملية الإضافة بنجاح والحفظ في قاعدة البيانات")
Me.Close()
frm1.Show()
Catch ex As Exception
Exit Sub
End Try
End Sub