15-09-13, 12:00 AM
تفضل اخى هذا كود التعديل على قاعدة بيانات اكسس
كود :
Dim da As New SqlDataAdapter("select * from Table1", con)
Dim ds As New DataSet
Dim cm As New SqlCommandBuilder(da)
da.Fill(ds, "Table1")
Dim dr As DataRow = ds.Tables("Table1").NewRow
dr.Item("id") = tnu.Text
dr.Item("name") = tname.Text
ds.Tables("Table1").Rows.Add(dr)
da.Update(ds, "Table1")
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
