Boas tenho este problema aqui ja vi muito pelo o forum mas queria pedir uma ajuda mais detalha se possivel:"O fornecedor 'Microsoft.Jet.OleDb.4.0' não está registado no computador local."
este e o codigo que eu tou a usar:
<%
Dim sPath as String = "\nome de bd.mdb"
Dim strConnection As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=caminho e o nome da bd.mdb;User Id=;Password=;"
Dim sSQL As String = "Select * from tabela da bd "
Dim objConnection As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection(strConnection)
Dim objCommandAuction1 As Data.OleDb.OleDbCommand = New Data.OleDb.OleDbCommand(sSQL, objConnection)
Dim oDr As Data.IDataReader
Try
objConnection.Open()
oDr = objCommandAuction1.ExecuteReader()
Do While oDr.Read
'Write information from database here
Loop
oDr.Close()
Catch ex As Exception
Response.Write(ex.Message)
End Try
objConnection.Close()
%>
Alguem me poderia ajudar se faz favor?
Agradeço a atenção.
este e o codigo que eu tou a usar:
<%
Dim sPath as String = "\nome de bd.mdb"
Dim strConnection As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=caminho e o nome da bd.mdb;User Id=;Password=;"
Dim sSQL As String = "Select * from tabela da bd "
Dim objConnection As Data.OleDb.OleDbConnection = New Data.OleDb.OleDbConnection(strConnection)
Dim objCommandAuction1 As Data.OleDb.OleDbCommand = New Data.OleDb.OleDbCommand(sSQL, objConnection)
Dim oDr As Data.IDataReader
Try
objConnection.Open()
oDr = objCommandAuction1.ExecuteReader()
Do While oDr.Read
'Write information from database here
Loop
oDr.Close()
Catch ex As Exception
Response.Write(ex.Message)
End Try
objConnection.Close()
%>
Alguem me poderia ajudar se faz favor?
Agradeço a atenção.