Probleme pour requete Select en VB ??

Question

Bonjour, 

j'ai un probleme pour ma requete select 
j'ai une base de données access 2000 et je suis sur visual basic 2008 
j'ai mi un messagebox en fin pour voir si la requete marche et si elle me renvoi bien l'adresse IP et pour la requete , il selectionne bien le nom de la 1e machine dans la liste par contre il me renvoi pas l'adresse IP , il se connecte pas avec la base j'ai l'impression 

Voila mon code : 

Dim i As Long 

Dim oleDbConnex As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\BDD.mdb") 
oleDbConnex.Open() 
Dim CmdIP As New OleDb.OleDbCommand("SELECT AdresseIP FROM Machine WHERE NomMachine = '" & LB_ListeMachines.Items(i) & "' ", oleDbConnex) 
Dim TA1 As New OleDb.OleDbDataAdapter(CmdIP) 
TA1.Fill(DT) 

Dim var As String 
For i = 0 To LB_ListeMachines.Items.Count - 1 
var = "\" & DT.Rows(i)("AdresseIP").ToString() & "\ia" 
Dim DestDir As String = var 

MessageBox.Show("SELECT AdresseIP FROM Machine WHERE NomMachine = '" & LB_ListeMachines.Items(i) & "' ") 
MessageBox.Show(var) 

oleDbConnex.Close() 

Merci.

cs_Jack · Answer

Salut
Apprends à utiliser la coloration syntaxique quand tu colles du code, c'est plus facile à lire-comprendre = 3ème icone à droite.

"il se connecte pas avec la base j'ai l'impression"
Que vaut oleDbConnex.State après le Open ?

'i' est initialisé et tu t'en sers tout de suite. 'i' vaut donc 0.
Dans 
LB_ListeMachines.Items(i)
Pourquoi ne pas avoir écrit directement 
LB_ListeMachines.Items(0) ?
Ca évite de se demander ce qu'il peut y avoir dans 'i'

Le For n'a pas de Next

S'il y a un Next quelque part, la boucle doit faire référence au nombre d'items dans ton TA1 et pas de ton LB_ListeMachines

A quoi sert ta variable DestDir ?

première MessageBox : A quoi te sert de réécrire la syntaxe de la requète ?
Elle est déjà stockée dans CmdIP = source d'erreur

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

nico8001 · Answer

j'ai pas de oleDbConnex.state ?!

si mon next est dans mon code cest que j'ai oublier de le coller la dessus
bha atend je vais mettre le code complet je pence que sa repondra a quelques questions 

voila : 

Dim i As Long

        Dim oleDbConnex As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Documents and Settings
icolas_larue\Mes documents\DéploiementDeSynoptiques\BDD.mdb")
        oleDbConnex.Open()
        Dim CmdIP As New OleDb.OleDbCommand("SELECT AdresseIP FROM Machine WHERE NomMachine = '" & LB_ListeMachines.Items(i) & "' ", oleDbConnex)
        Dim TA1 As New OleDb.OleDbDataAdapter(CmdIP)
        TA1.Fill(DT)

        Dim var As String
        'Dim IP As String
        For i = 0 To LB_ListeMachines.Items.Count - 1
            'IP = DT.Rows(i)("AdresseIP").ToString()
            var = "\" & DT.Rows(i)("AdresseIP").ToString() & "\ia"
            Dim DestDir As String = var
            MessageBox.Show("SELECT AdresseIP FROM Machine WHERE NomMachine = '" & LB_ListeMachines.Items(i) & "' ")
            MessageBox.Show(var)
            Try
                For Each Item As String In LB_ListeFichier.Items
                    Try
                        Dim Filename As String = Item.Substring(Item.LastIndexOf(""), Item.Length - Item.LastIndexOf(""))
                        IO.File.Copy(Item, DestDir & Filename)
                        Application.DoEvents() 'Evite le Freez de l'appli 
                    Catch copyError As IOException
                        MessageBox.Show("Erreur pour la copie des fichiers ! " & copyError.Message)
                    End Try
                Next
            Catch dirNotFound As DirectoryNotFoundException
                MessageBox.Show(" Erreur de copie ! " & dirNotFound.Message)
            End Try
        Next i
        oleDbConnex.Close()

cs_Jack · Answer

"j'ai pas de oleDbConnex.state ?!"
Bien sûr que si

nico8001 · Answer

en tout cas je ne sais pas ce que c'est :s

cs_Jack · Answer

De plus :
IO.File.Copy(Item, DestDir & Filename)

DestDir se termine par le 'a' de 'ia"
FileName est le nom de ton fichier
--> Il manque un \ entre les deux 

TA1.Fill(DT)
C'est quoi 'DT' ?

Comme je te l'ai dit, ce sont les résultats du qu'il faut scanner, pas celle de la ListBox.
Si la requète ne trouve pas de machine portant ce nom :
- tu n'auras pas autant de résultat que de machines
- tu risques un décalage des items
For i = 1 To TA1.TableMappings.Count  ' à vérifier
...
            MessageBox.Show(DT.Rows(i)("NomMachine").ToString())
            MessageBox.Show(var)

cs_Jack · Answer

Si tu ne sais pas ce que c'est, tu n'attends pas qu'on te l'explique : tu regarde dans l'aide !

nico8001 · Answer

Dt cest mon database

nico8001 · Answer

mais ce qui apparait dans ma listbox c'est le resulat d'une requete select dans ma base donc il trouvera forcement le nom de la machine

cs_Jack · Answer

Oui, mais qui te dit qu'il y a bien une adresse IP en face ?
Es-tu sûr que les IP apparaitront dans le même ordre dans ton DT que dans ta ListBox ?
Tu fais comme tu veux, mais méfies-toi ...

nico8001 · Answer

bha oui dans ma base de données je suis sur qu'il y a une adresse IP pour chaque nom de machine qui apparaissent

Probleme pour requete Select en VB ??

10 réponses

Votre réponse

Discussions similaires