سطر جديد في DataGridView

السلام علكم ورحمه الله وبركاته

عذرا كانت قاعد البيانات مغلقه بكلمه مرور .. فسأترك الامر لم ... اضيفي زر لإضافه دواء معين وقومي بحفظ عدد الادويه في متغير عام الان في النقر على الزر احسبي عدد الصفوف لل DataGridView وذلك من خلال الخاصيه Rows.Count اذا كانت اكبر من عدد الادويه قومي باضافه عناصر السطر الاخير لقاعده البيانات وهي grDrugs.Rows(grDrugs.Rows.Count-1).Cells(0).Value وكذلك بقيه الخليا ... ونفس الحال في تفاصيل الادويه

شكرا لك وبارك الله فيك VB Helper

ممكن تعدل المثال الموجود لو سمحت ،

كلمة لمرور موجود في ملف الموديول كمتغير عام

و هي 432567

أشكرك مرة أخرى

السلام عليكم ورحمه الله وبركاته

اضيفي زرين في مشروعك وقومي بكتابه الكود التالي

Private Sub btnAddDrug_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddDrug.Click

VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اضيفي زرين في مشروعك وقومي بكتابه الكود التالي

Dim cmd As New OleDbCommand("INSERT INTO PharmaDos VALUES (@IDp,@Price,@Morpho,@Storage,@Dosage)", dbConn)
cmd.Parameters.AddWithValue("IDp", grDetail.Rows(grDrugs.Rows.Count - 2).Cells(4).Value)
cmd.Parameters.AddWithValue("Price", grDetail.Rows(grDrugs.Rows.Count - 2).Cells(1).Value)
cmd.Parameters.AddWithValue("Morpho", grDetail.Rows(grDrugs.Rows.Count - 2).Cells(0).Value)
cmd.Parameters.AddWithValue("Storage", grDetail.Rows(grDrugs.Rows.Count - 2).Cells(3).Value)
cmd.Parameters.AddWithValue("Dosage", grDetail.Rows(grDrugs.Rows.Count - 2).Cells(2).Value)
dbConn.Open()
cmd.ExecuteNonQuery()
MessageBox.Show("The drug detail has been added successfully!!")
dbConn.Close()
End Sub

Private Sub btnAddDrugDetails_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddDrugDetails.Click
Dim cmd As New OleDbCommand("INSERT INTO Pharma VALUES (@IDp,@NameD,@Trade,@Comp,@GroupD,@WithC,@Indicate)", dbConn)
cmd.Parameters.AddWithValue("NameD", grDrugs.Rows(grDrugs.Rows.Count - 2).Cells(6).Value)
cmd.Parameters.AddWithValue("NameD", grDrugs.Rows(grDrugs.Rows.Count - 2).Cells(1).Value)
cmd.Parameters.AddWithValue("Trade", grDrugs.Rows(grDrugs.Rows.Count - 2).Cells(0).Value)
cmd.Parameters.AddWithValue("Comp", grDrugs.Rows(grDrugs.Rows.Count - 2).Cells(3).Value)
cmd.Parameters.AddWithValue("GroupD", grDrugs.Rows(grDrugs.Rows.Count - 2).Cells(4).Value)
cmd.Parameters.AddWithValue("WithC", grDrugs.Rows(grDrugs.Rows.Count - 2).Cells(2).Value)
cmd.Parameters.AddWithValue("Indicate", grDrugs.Rows(grDrugs.Rows.Count - 2).Cells(5).Value)
dbConn.Open()
cmd.ExecuteNonQuery()
MessageBox.Show("The drug has been added successfully!!")
dbConn.Close()
End Sub

Private Sub btnAddDrug_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddDrug.Click

شكرا جزيلاً لك

والله أنت من المتميزين و جزاك الله خيرا

تعلمت منك كثيرا

السلام عليكم ورحمه الله وبركاته

لاشكر على واجب اختي