بسم الله الرحمن الرحيم
كيف حفظ البيانات في التاتت جريد بحيث انني مستخدم جملة insert في حفظ البيانات داخل قاعدة بيانات اكسس وانا مصمم برنامج حسابات خاصة بصيانة الكمبيوترات
وقمت باضافة تاتا جريد بيحيث تحتوي علي حقلين نوع القطعة والمبلغ ويوجد تاكست اخر بيجمع الاجمالي للمبالغ انواع القطع فكيف يتم ذلك
Public Sub misajour(ByVal req As String)
'fonction pour effectué la mise à jour
Try
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0;" & "data source= le nom de la base de donnée.mdb;")
cmd = New OleDbCommand(req)
cmd.Connection = con
con.Open()
'executer la requete
cmd.ExecuteNonQuery()
con.Close()
Catch ex As OleDbException
If con.State = ConnectionState.Open Then
con.Close()
End If
MsgBox("Non Ajouté: " & ex.Message)
End Try
End Sub
----------------------------------------------------------------
Public Sub afficher(ByVal req As String)
'ajouter les données de textbox a la table de la base de données en meme temps remplir datagridview
Try
con = New OleDbConnection("provider=microsoft.jet.oledb.4.0;" & "data source=Employer.mdb;")
req = req & " " & "order by cin asc"
cmd = New OleDbCommand
cmd.CommandText = req
cmd.Connection = con
cmd.CommandType = CommandType.Text
con.Open()
dr = cmd.ExecuteReader
DataGridView1.Rows.Clear()
While (dr.Read)
DataGridView1.Rows.Add(dr(0), dr(1).........)
End While
dr.Close()
con.Close()
Catch ex As OleDbException
MsgBox(ex.Message())
End Try
End Sub
----------------------------------------------------------
Private Sub cmdajouter_Click
If txtcin.Text <> "" And txtnom.text<> “”………And tester() = True Then
misajour("insert into Table_emp values ('" & txtcin.Text & "','" & txtnom.Text ……….”)’)
MsgBox("Ajout effectué")
ElseIf tester() = False Then
MsgBox("Employé existe déja !", MsgBoxStyle.Critical)
Else
MsgBox("Ereure de saisie champ(s) vide(s)!!!", MsgBoxStyle.Critical)
End If
afficher("select * from T_emp")
End Sub
comme sa on peut enregistrer les donnes dans datagridview si tu ne comprend pas le code demande le moi pour te l'expliquer
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…