Kergan
Mon code :
Public Function ExecuteSQLTextToHashtable(ByVal strSQL As String) As Hashtable
Dim _settings As New Hashtable()
Dim myConnection As New OleDbConnection(myConnectionOle)
Dim myCommand As New OleDbCommand(strSQL, myConnection)
Dim x As Integer
myConnection.Open()
Dim dr As OleDbDataReader = myCommand.ExecuteReader '(CommandBehavior.CloseConnection)
While dr.Read
For x = 0 To dr.FieldCount - 1
_settings(x) = dr.GetValue(x)
Next
End While
dr.Close()
Return _settings
End Function
Mon probleme:
la ligne dr.Read me fait l'erreur suivante :
La référence d'objet n'est pas définie à une instance d'un objet.
merci d'avance.