المشاركات : 6
المواضيع 2
الإنتساب : Mar 2017
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
18-12-17, 01:31 AM
(آخر تعديل لهذه المشاركة : 18-12-17, 01:33 AM {2} بواسطة silensieux2013.)
ممكن طريقة الاضافة عن طريق جملة الانسرت انا استعمل هدا الكود لادخال البيانات للجدول ممكن تعديل من فضلك
prd.Addbass_invontory(Txt_objet_fullname.Text, Txt_numinventer.Text, Txt_classe.Text, Convert.ToDouble(Txt_num1.Text), Dtp_dateinvontory.Value, Dtp_dateachat.Value, Txt_Notes.Text, Txt_invo_fondamontal.Text)
FillData()
Clear()
هدا كلاس insert
'----------Public Sub Insert----------
Public Sub Addbass_invontory(ByVal objet_fullname As String, ByVal numinventer As String, ByVal classe As String, ByVal num1 As Double, ByVal dateinvontory As Date, ByVal dateachat As Date, ByVal Notes As String, ByVal invo_fondamontal As String)
Dim Query As String
Query = "Insert Into bass_invontory (objet_fullname,numinventer,classe,num1,dateinvontory,dateachat,Notes,invo_fondamontal) Values (@objet_fullname,@numinventer,@classe,@num1,@dateinvontory,@dateachat,@Notes,@invo_fondamontal)"
Dim Cmd As New OledbCommand
Cmd = New OledbCommand(Query, Cn)
Cmd.Parameters.Add(New OleDbParameter("@objet_fullname", OleDbType.VarWChar)).Value = objet_fullname
Cmd.Parameters.Add(New OleDbParameter("@numinventer", OleDbType.VarWChar)).Value = numinventer
Cmd.Parameters.Add(New OleDbParameter("@classe", OleDbType.VarWChar)).Value = classe
Cmd.Parameters.Add(New OleDbParameter("@num1", OleDbType.Double)).Value = num1
Cmd.Parameters.Add(New OleDbParameter("@dateinvontory", OleDbType.Date)).Value = dateinvontory
Cmd.Parameters.Add(New OleDbParameter("@dateachat", OleDbType.Date)).Value = dateachat
Cmd.Parameters.Add(New OleDbParameter("@Notes", OleDbType.VarWChar)).Value = Notes
Cmd.Parameters.Add(New OleDbParameter("@invo_fondamontal", OleDbType.VarWChar)).Value = invo_fondamontal
Cn.open()
Cmd.ExecuteNonQuery()
Cn.close()
MessageBox.Show("Insert SucceFully", "Insert", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
وهدا بوتون الاضافة
Try
prd.Addbass_invontory(Txt_objet_fullname.Text, Txt_numinventer.Text, Txt_classe.Text, Convert.ToDouble(Txt_num1.Text), Dtp_dateinvontory.Value, Dtp_dateachat.Value, Txt_Notes.Text, Txt_invo_fondamontal.Text)
FillData()
Clear()
Catch ex As Exception
MessageBox.Show(ex.Message, "Alert", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
End Sub