FORUM D’ENTRAIDE INFORMATIQUE (FEI)Site d’assistance et de sécurité informatique

[Nas]

Bonjour à tous,

Je m'adresse à vous car j'ai un souci avec un logiciel fait maison (ce n'est pas moi qui l'ai écrit et son concepteur n'est plus là). Voilà, grosso modo, le logiciel est censé ouvrir un fichier csv sauf qu'il le fait très bien sur windows xp sp2 et office 2003 et pas sur les versions ultérieures (j'entends par là windows 7 et office 2007). Je sais que la description est très floue mais quelqu'un aurait-il une vague idée de la raison de ce problème?

NB: à l'ouverture du fichier, il répond qu'il ne trouve pas la colonne "Aircraft"

'**********************************************************************************************************
'* OUVERTURE FICHIER *
'**********************************************************************************************************
If ouverture.RadioButton2.Checked = True Then
StrConn = "provider=Microsoft.jet.oledb.4.0;" & "data source =\\tnroq\drel\Contrôle FMI\Contrôle FMI Bêta.mdb"
Else
StrConn = "provider=Microsoft.jet.oledb.4.0;" & "data source =C:\Contrôle FMI\Contrôle FMI Bêta.mdb"
End If
If quest1 = 0 Then
Dim MyStrAccess As String
MyStrAccess = "DELETE CheckVerif.* FROM CheckVerif"
Dim MyConnexion As New OleDbConnection()
MyConnexion.ConnectionString = StrConn
MyConnexion.Open()
Dim MyCommand As New OleDbCommand(MyStrAccess)
Dim MyAdapter As New OleDbDataAdapter(MyCommand)
MyCommand.Connection = MyConnexion
MyAdapter.Fill(MyDataset, "CheckVerif")
MytableCHECK = MyDataset.Tables("CheckVerif")
MyConnexion.Close()
End If
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim ZapControl As Integer
Dim Repertoire As Char() = {"\"}
RepFicCsv = OpenFileDialog1.FileName
LblFic.Text = RepFicCsv
FicCsv = RepFicCsv.Substring(RepFicCsv.LastIndexOf(Repertoire) + 1)
RepFicCsv = RepFicCsv.Substring(0, RepFicCsv.LastIndexOf(Repertoire))
Dim MyConnexion As OleDbConnection
Dim MyCommand As OleDbCommand
Dim MyTable As DataTable
Dim MyStrAccess As String
'****************************************************************************************
'* Ouverture fichier Data à Contrôler *
'****************************************************************************************
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & RepFicCsv & ";Extended Properties=Text;"
Dim objConn As New OleDbConnection(sConnectionString)
objConn.Open()
Dim objCmdSelect As New OleDbCommand("SELECT * FROM " & FicCsv, objConn)
objConn.Close()
Dim objAdapter1 As New OleDbDataAdapter()
objAdapter1.SelectCommand = objCmdSelect
Dim objDataset1 As New DataSet()
objAdapter1.Fill(objDataset1, FicCsv.Substring(0, FicCsv.LastIndexOf(".")))
TtlFic1 = objDataset1.Tables(0).Rows.Count
Dim dv As DataView = New DataView(objDataset1.Tables(0))
dv.Sort = "Aircraft"
DataGridView1.DataSource = dv
ProgressBar1.Maximum = TtlFic1
bindingsource1.DataSource = dv
DataGridView1.DataSource = bindingsource1
DataGridView1.Visible = True