نقل البيانات من الفيجوال بيسك.نت إلى الأكسس؟

ستجد ضالتك هنا ان شاء الله

/index.php?showtopic=45385

أشكرك أخي الفاضل

ولكن أنا أعرف طريقة الربط بين الفيجوال والأكسس وهذه ليست مشكلة بالنسبة لي؟

ولكن مشكلتي تكمن في الكود الذي ينقل البيانات من الفيجوال.نت إلى الأكسس؟

يعني أنا لدي زر Submit أريد بمجرد الضغط عليه تنتقل البيانات من VB.Net إلى الأكسس ؟

أنا أعرف أجيب البيانات من الأكسس إلى الفيجوال ولكن العكس عجزت وما عرفت الكود أتمنى من كل قلبي أحد يعطيني الكود

وشكراً

أين أنتم؟

أريد إجابة

السلام عليكم

ربما ما انت بحاجه له هو كود الحفظ الى قاعدة البيانات الاكسس ( او هيك انا فهمت السؤال)

وهذا ان شاء الحل

 Try
            'Attempt to update the datasource.
            Me.UpdateDataSet()
        Catch eUpdate As System.Exception
            'Add your error handling code here.
            'Display error message, if any.
            System.Windows.Forms.MessageBox.Show(eUpdate.Message)
        End Try
        Me.objMainDataSet_PositionChanged()

Public Sub UpdateDataSet()
'Create a new dataset to hold the changes that have been made to the main dataset.
        Dim objDataSetChanges As Doc_2006.MainDataSet = New Doc_2006.MainDataSet
        'Stop any current edits.
        Me.BindingContext(objMainDataSet, "MainTable").EndCurrentEdit()
        'Get the changes that have been made to the main dataset.
        objDataSetChanges = CType(objMainDataSet.GetChanges, Doc_2006.MainDataSet)
        'Check to see if any changes have been made.
        If (Not (objDataSetChanges) Is Nothing) Then
            Try
                'There are changes that need to be made, so attempt to update the datasource by
                'calling the update method and passing the dataset and any parameters.
                Me.UpdateDataSource(objDataSetChanges)
                objMainDataSet.Merge(objDataSetChanges)
                objMainDataSet.AcceptChanges()
            Catch eUpdate As System.Exception
                'Add your error handling code here.
                Throw eUpdate
            End Try
            'Add your code to check the returned dataset for any errors that may have been
            'pushed into the row object's error.
        End If
   End Sub