Problème dans mon TABLEAU

Version imprimable

Bonjour
je suis entrains de faire un petit programme pour me faciliter la Vie au travail, et je bloque dans les tableaux .

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
  Dim a As Integer = 0
        Dim tablIP(20) As String
 
        Try
            Dim sConnString As String = req_sql
            connection = New OleDbConnection(sConnString)
            req = "SELECT chifrement,adrip FROM Table_Ping1 ;"
            command = New OleDbCommand(req, connection)
            connection.Open()
            Dim dr As OleDbDataReader = command.ExecuteReader
            a = 0
            While dr.Read
                a = a + 1
                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
                tablIP(a) = dr(1)
                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
            End While
            dr.Close()
            connection.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

je me connecte, tout va bien j'ai une erreur : La conversion du type "DBNULL'" en types "String'" n'est pas valide.
l'erreur viendrait de là ;

Code:

1
2
3
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
                tablIP(a) = dr(1)
                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Si je commente mon tableau, il y a plu l'erreur .
Mon but est de récupérer le contenue de ma base de données dans un tableau pour le récupéré par la suite dans mon programme.

Merci d'avance
Cordialement
L.Fabien

FAB

09/10/2013, 10h19
_Ez3kiel

Une des lignes (ou toutes ?) que te retourne ta requête est nul. (Dans le sens objet vide/Nothing)

~~Si tu forces en dr(1).ToString tu auras une chaîne vide, mais au moins tu auras une chaîne plutôt que juste un objet vide.~~

EDIT: Oui, j'ai écris ça, j'ai pris une tasse de café, j'ai relu ça, je me suis rendu compte de ma boulette ... :oops: Il faut que tu testes que le retour de chaque Rows ne soit pas DBnull.

Code:

If dr(1) isNot DBnull Then tablIP(a) = dr(1) else tablIP(a) = String.Empty End if

Si tu veux des conseils pour améliorer ton code, n'hésite pas ... Je ne suis pas très friand de ta méthode de tableau de string à 20, alors qu'il sera fourni par ta Bdd, qu'arrivera-t-il le jour où tu auras plus de 20 rows retournées ?
Egalement, que fais-tu de la colonne chiffrement que tu récupères via ton select ? Actuellement elle part aux oubliettes et tu ne sauvegardes que la colonne adresseIp...

Ps: N'oublie pas de .Dispose() ton oleDbCommand

Merci de votre réponse très rapide .

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub BD_Recup1()
        Try
            Dim sConnString As String = req_sql
            connection = New OleDbConnection(sConnString)
            req = "SELECT chifrement,adrip,namepc FROM Table_Ping1 ;"
            command = New OleDbCommand(req, connection)
            connection.Open()
            Dim dr As OleDbDataReader = command.ExecuteReader
            a = 0
            While dr.Read
                a = a + 1
                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
                If dr(1) IsNot DBNull Then
                    tablIP1(a) = dr(1)
                Else
                    tablIP1(a) = String.Empty
                End If
 
 
                '  tablIP1(a) = dr(1)
                ' namepc1(a) = dr(2)
 
 
                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
            End While
            dr.Close()
            connection.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            TextBox1.Text = ex.Message
        End Try

j'ai rajouter cella :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
                If dr(1) IsNot DBNull Then
                    tablIP1(a) = dr(1)
                Else
                    tablIP1(a) = String.Empty
                End If
 
 
                '  tablIP1(a) = dr(1)
                ' namepc1(a) = dr(2)
 
 
                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

et j'ai ce message :

Citation:

La conversion du type 'DBNull' en type 'String' n'est pas valide.

Code:

1
2
3
4
5
If dr(1) IsNot DBNull.Value Then
                    tablIP1(a) = dr(1)
                Else
                    tablIP1(a) = String.Empty
                End If

ca devrai marcher

09/10/2013, 17h20
Fabdunet13

Re

j'avez déjà testé avec DBNull.Value
il me sort ce message d'erreur avec :

Citation:

Variable objet ou variable d'un bloc With non définie.

je suis novice en programmation.
je suis ouvert à tout type de conseils .

Cordialement
10/10/2013, 10h01
abd75web

Citation:

Variable objet ou variable d'un bloc With non définie

ce message ce ne devrai pas venir de l'instruction :

Code:

If dr(1) IsNot DBNull.Value Then

peut être le pb est ailleurs

essaye d'executer cette patie pas à pas pour voir de quelle instruction venait
cette erreur

Bonjour
Je ne comprend pas .
je vais commenter ce que je fait pour mieux vous expliquer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
'  
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Imports System
Public Class A_Depart
    Private connection As OleDbConnection
    Private reqentree, reqsortie, reqid As String
    Private command As OleDbCommand
    Private dr As OleDbDataReader
    Private num_unik As Integer
    Private dataAdapter As OleDbDataAdapter
    Private MonDR As OleDbDataReader
    Private req As String
    Private sConnString As String
    Private heure As Date = Date.Now
 
Private Sub A_Depart_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
 
je creer mon tableau tablIP4 
        Dim tablIP4(100) As String
 
        ' je creer une variable a qui va etre incrémenter 
        Dim a As String
 
        'je me connecte sur ma base de donnée 
        Try
            Dim sConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Administrateur\Mes documents\VB.Net\BD_PING.mdb ; Jet OLEDB:Database Password=azerty;;"
            connection = New OleDbConnection(sConnString)
            req = "SELECT chifrement,adrip,namepc FROM Table_Ping4 ;"
            command = New OleDbCommand(req, connection)
            connection.Open()
            Dim dr As OleDbDataReader = command.ExecuteReader
            a = 0
            While dr.Read
                a = a + 1
                '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
                ' je orend mon tableau , que j'incrémente de 1 en y entant ce qui ce trouve sur ma table de ma base de donnée 
                tablIP4(a) = dr(1)
 
                ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 
            End While
            dr.Close()
            connection.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
end sub

10/10/2013, 13h43
abd75web

je crois que le pb est dans :

Code:

Dim a As String

tu devrai le declarer Integer
10/10/2013, 22h21
shayw
Salut

d'abord au lieu de

Code:

Dim tablIP(20) As String

tu as toujours 21 enrgistrements dans Table_Ping1 :roll:

Code:

dim tablIP as new list (of string)

aussi pas besoin de la variable a
et dans la boucle
Code:

1 2 3 4 5 While dr.Read If dr(1) IsNot DBNull Then tablIP.add(dr(1)) End If End while
tiens tu as deux requetes ? ;)
req = "SELECT chifrement,adrip FROM Table_Ping1 ;"
req = "SELECT chifrement,adrip,namepc FROM Table_Ping4 ;"

mais tu te sers seulement de adrip et comme dit _Ez3kiel le reste est parti au
oubliette ;)

dans ta table table_Ping1 as tu des enregistrements où le champ adrip est
vide ?
si oui pourquoi ? pas logique

bonjour Fabdunet13

Plusieurs loupes sur les tableaux dans vb.net ...versatile tableau à revoir.

PRIMO: un tableau doit etre toujours initialise meme si tu ne connais ses dimensions comme c'est ton cas...
SECUNDO : le 1er indice du tableau est "zeroe" en vb.net ...et l'incrementation se fait à la fin du While....

TERTIO: tu peux toujours le redimensionner lors de l'incrementation avec Redim Preserve Array(new dimension).....Preserve :preserve son contenu sans quoi il est perdu....

QUATRO: il y a un loupe dans le test sur DBNull ,car DBNull est un type ( un class) pas une valeur....

ton code revu:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
 
'  
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Imports System
Public Class A_Depart
    Private connection As OleDbConnection
    Private reqentree, reqsortie, reqid As String
    Private command As OleDbCommand
    Private dr As OleDbDataReader
    Private num_unik As Integer
    Private dataAdapter As OleDbDataAdapter
    Private MonDR As OleDbDataReader
    Private req As String
    Private sConnString As String
    Private heure As Date = Date.Now
 
Private Sub A_Depart_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
 
        je creer mon tableau tablIP4 
 
        ' --------------------PRIMO----------------
        Dim tablIP4() As String = New String() {}
 
        '-----------------Counter :integer s.v.p---------------- 
 
         Dim inc As integer
 
        'je me connecte sur ma base de donnée 
        Try
            Dim sConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Documents and Settings\Administrateur\Mes documents\VB.Net\BD_PING.mdb ; Jet OLEDB:Database Password=azerty;;"
            connection = New OleDbConnection(sConnString)
            req = "SELECT chifrement,adrip,namepc FROM Table_Ping4 ;"
            command = New OleDbCommand(req, connection)
            connection.Open()
            Dim dr As OleDbDataReader = command.ExecuteReader
            inc = 0
            While dr.Read
                ' ------------------TERTIO ----------- 
                ReDim Preserve tablIP4(inc)
 
 
               ' ------------------QUATRO----------- 
               If TypeOf (dr(1)) Is DBNull Then
                    tablIP4(inc) = "nothing"
                Else
                    tablIP4(inc) = dr(1)
                End If
 
                ' ------------------SECUNDO----------- 
               inc += 1
  End While
            dr.Close()
            connection.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
end sub
 
 Me.ListBox1.DataSource = tablIP4

bon code.....