amin_paj
پنج شنبه 18 مهر 1392, 11:39 صبح
سلام این کد منه اما هنگام لود برای باز کردن کانکشن این خطارو میده :
The 'Microsoft.Jet.OLEDB.4.0' provider is not registered on the local machine
روی con.open() خطا میده
برای ارتباط با sql مشکلی نداره ولی با access نمیشه
-------------------------------------
Imports System.Data.OleDb
Imports System.Data
Public Class Form1
Dim cmdSql, cmdSelect As OleDbCommand
Dim strSql As String
Dim con As OleDbConnection
Dim dr As OleDbDataReader
Dim strSelect As String
Dim da As OleDbDataAdapter
Dim ds As DataSet
Sub aval()
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bin\Debug\db.mdb")
con.Open()
Dim da As New OleDbDataAdapter("select rad from andi order by rad desc ", con)
Dim ds As New DataSet
da.Fill(ds, "andi")
DataGrid1.DataSource = ds
DataGrid1.DataMember = "andi"
TextBox1.Text = DataGrid1(DataGrid1.CurrentRowIndex, 0).ToString.Trim + 1
The 'Microsoft.Jet.OLEDB.4.0' provider is not registered on the local machine
روی con.open() خطا میده
برای ارتباط با sql مشکلی نداره ولی با access نمیشه
-------------------------------------
Imports System.Data.OleDb
Imports System.Data
Public Class Form1
Dim cmdSql, cmdSelect As OleDbCommand
Dim strSql As String
Dim con As OleDbConnection
Dim dr As OleDbDataReader
Dim strSelect As String
Dim da As OleDbDataAdapter
Dim ds As DataSet
Sub aval()
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bin\Debug\db.mdb")
con.Open()
Dim da As New OleDbDataAdapter("select rad from andi order by rad desc ", con)
Dim ds As New DataSet
da.Fill(ds, "andi")
DataGrid1.DataSource = ds
DataGrid1.DataMember = "andi"
TextBox1.Text = DataGrid1(DataGrid1.CurrentRowIndex, 0).ToString.Trim + 1