08-11-18, 03:01 AM
عند تحميل قاعدة البيانات فى اللابل او التيكست او الكمبوبوكس كما فى الكود التالى
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\lessons\lessons\bin\Debug\ss.accdb")
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
'load all colummns of 'table in access 2007
da = New OleDbDataAdapter("select*from table1", con)
da.Fill(ds, "table1")
DataGridView1.DataSource = ds.Tables("table1")
Label1.DataBindings.Add("text", table1, "user_forname")
TextBox1.DataBindings.Add("text", table1, "user_forname")
ComboBox1.DataBindings.Add("text", table1, "user_forname")
End Sub
تظهر هذه الرسالة
The method or operation is not implemented.
Private Function table1() As DataTable
Throw New NotImplementedException
End Function
مالخطأ فى الكود وماهو الحل
اشكركم
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\lessons\lessons\bin\Debug\ss.accdb")
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
'load all colummns of 'table in access 2007
da = New OleDbDataAdapter("select*from table1", con)
da.Fill(ds, "table1")
DataGridView1.DataSource = ds.Tables("table1")
Label1.DataBindings.Add("text", table1, "user_forname")
TextBox1.DataBindings.Add("text", table1, "user_forname")
ComboBox1.DataBindings.Add("text", table1, "user_forname")
End Sub
تظهر هذه الرسالة
The method or operation is not implemented.
Private Function table1() As DataTable
Throw New NotImplementedException
End Function
مالخطأ فى الكود وماهو الحل
اشكركم