(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكرامالسلام عليكم اخواني الكرام . ارجو بحكم خبراتكم مساعدتي على تخطي هذه المشكلة
ارجو من الله ومنكم مساعدتي . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد
مع العلم اني اشغل على قاعدة بيانات اكسس .
قمت باشاء فورم 3 لتعديل البينات وقمت بنساء فورم 4 للادراج او إضافة سجل جديد
كود :
Public Class Form2
Dim connectionstring As String
Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb; ")
Sub New()
InitializeComponent()
Dim da As New OleDbDataAdapter(" select * from table1 ", con)
Dim dt As New DataTable()
Dim com As New OleDbCommand("select * from table1")
Dim ds As New DataSet
End Sub
(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكراموكما هو مبين لديكم اساتذتي الكرام لديا الكثير من التاكست بوكس وكلها باللغة العربية
ارجو من الله ومنكم مساعدتي . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد
مع العلم اني اشغل على قاعدة بيانات اكسس .
قمت باشاء فورم 3 لتعديل البينات وقمت بنساء فورم 4 للادراج او إضافة سجل جديد
كود :
Public Class Form2
Dim connectionstring As String
Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb; ")
Sub New()
InitializeComponent()
Dim da As New OleDbDataAdapter(" select * from table1 ", con)
Dim dt As New DataTable()
Dim com As New OleDbCommand("select * from table1")
Dim ds As New DataSet
End Sub
(22-03-19, 10:52 PM)anis كتب :(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكرامالسلام عليكم اخواني الكرام . ارجو بحكم خبراتكم مساعدتي على تخطي هذه المشكلة
ارجو من الله ومنكم مساعدتي . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد
مع العلم اني اشغل على قاعدة بيانات اكسس .
قمت باشاء فورم 3 لتعديل البينات وقمت بنساء فورم 4 للادراج او إضافة سجل جديد
كود :
Public Class Form2
Dim connectionstring As String
Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb; ")
Sub New()
InitializeComponent()
Dim da As New OleDbDataAdapter(" select * from table1 ", con)
Dim dt As New DataTable()
Dim com As New OleDbCommand("select * from table1")
Dim ds As New DataSet
End Sub
(15-03-19, 09:56 PM)anis كتب : السلام عليكم اساتذتي الكراموكما هو مبين لديكم اساتذتي الكرام لديا الكثير من التاكست بوكس وكلها باللغة العربية
ارجو من الله ومنكم مساعدتي . اريد كود لحفظ البينات بعد التعديل عليها , كذلك كود للادراج او إضافة مستحدم جديد
مع العلم اني اشغل على قاعدة بيانات اكسس .
قمت باشاء فورم 3 لتعديل البينات وقمت بنساء فورم 4 للادراج او إضافة سجل جديد
كود :
Public Class Form2
Dim connectionstring As String
Dim con As New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\annag\source\repos\WindowsApp11\WindowsApp11\tn.mdb; ")
Sub New()
InitializeComponent()
Dim da As New OleDbDataAdapter(" select * from table1 ", con)
Dim dt As New DataTable()
Dim com As New OleDbCommand("select * from table1")
Dim ds As New DataSet
End Sub
السلام عليكم اساتذتي الكرام . ارجو منكم مساعدتي في حل هذا الاشكال عند تحديث البيانات يظهر معي هذا الخطا