feree123
چهارشنبه 20 مرداد 1389, 08:39 صبح
بعضی از برنامه نویسان فکر می کنند که نمی توان به پایگاه داده access2007 اتصال پیدا کرد و در نتیجه بانک Aceess خود را با پسوند اکسس 2003 ذخیره می کنند و سپس در برنامه خود استفاده می کنند.
برای حل این مشکل باید از Provider زیر استفاده کرد:
provider=microsoft.ace.oledb.12.0;data source=مسیرفایل\نام فایل.accdb"
حال برنامه زیر بانک اطلاعاتی اکسس را باز کرده و اطلاعات آنرا داخل یک کنترل datagridview نمایش می دهد.
ابتدا یک کنترل datagridview و یک button برروی فرم خود قرار دهید سپس در event ، onclick دکمه button دستورات زیر را بنویسید:
)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
البته این برنامه به یک فایل اکسس با نام testnew که جدولی به نام teacher دارد ارتباط برقرار می کند.
نکته : استفاده از provider زیر برای ارتباط با اکسس 2007 اشتباه است:
provider=microsoft.jet.oledb.4.0;data source=مسیرفایل\نام فایل.accdb"
موفق باشید:لبخندساده::قلب:
برای حل این مشکل باید از Provider زیر استفاده کرد:
provider=microsoft.ace.oledb.12.0;data source=مسیرفایل\نام فایل.accdb"
حال برنامه زیر بانک اطلاعاتی اکسس را باز کرده و اطلاعات آنرا داخل یک کنترل datagridview نمایش می دهد.
ابتدا یک کنترل datagridview و یک button برروی فرم خود قرار دهید سپس در event ، onclick دکمه button دستورات زیر را بنویسید:
)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
Dim con As New OleDbConnection
con.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=C:\Documents and Settings\Mehdi\Desktop\Testnew.accdb"
Dim ad As New OleDbDataAdapter("select *from teacher", con)
Dim ds As New DataSet
ad.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
البته این برنامه به یک فایل اکسس با نام testnew که جدولی به نام teacher دارد ارتباط برقرار می کند.
نکته : استفاده از provider زیر برای ارتباط با اکسس 2007 اشتباه است:
provider=microsoft.jet.oledb.4.0;data source=مسیرفایل\نام فایل.accdb"
موفق باشید:لبخندساده::قلب: