Discussion :

[khayate]

bonjour,je dois comparaer la fonction compare pour comparere deux cellules de deux tables different:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If (String.Compare(buffer1, mohamed) = 0) Then
            MsgBox("youpi")
        End If

mais le probleme c'est que quand je compare deux cellules de meme valeurs ils ne rentrent pa dans la cellule.esque quelqu'un peut m'aider à trouver une solution

[khayate]

exusez moi mais j'ai ecri n'importe koi au debut,
ce ke je veux faire c'est en utilisant la fonction compare,comparer deux cellules de deux tableaux differents.

[Pol63]

cellule ? tableau ? précise ...

= ne te suffit pas ?

[khayate]

je veux comparer deux cellules,chake cellule dans un tableeau,mais c'est pas ca vraiment le probleme.normalement kan j'utlise la fonction compare,lorsque c'est egal à zéro c'est à dire ka j'ai deux valeurs egals,il doit renter dans ma boucle et me renvoyer le message mais ce n'est pas le cas.....et je verifie bien avant kil recuperer deux meme valeurs je mets tous le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
65
66
67
68
69
Private Sub save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save.Click
        Me.DataGridView2.ReadOnly = False
  Dim nb As Integer = Me.DataGridView2.RowCount
 
 
 
        Dim buffer1 As String = Me.DataGridView2.Rows(nb - 2).Cells(0).Value.ToString
 
        Dim buffer2 As String = Me.DataGridView2.Rows(nb - 2).Cells(1).Value
        Dim buffer3 As Date = Me.DataGridView2.Rows(nb - 2).Cells(2).Value
        Dim buffer4 As Integer = Me.DataGridView2.Rows(nb - 2).Cells(4).Value
 
 
        Dim ConnectionString As String = "Data Source=SM65CVDF;Initial Catalog=GESTION;Integrated Security=True"
 
        Dim con As New SqlConnection(ConnectionString)
        con.Open()
 
 
 
 
        Dim sqlNum As String = "select * from amine_alerte_histo"
 
        Dim cmd As New SqlCommand(sqlNum, con)
 
        Dim reader As SqlDataReader = cmd.ExecuteReader()
        Dim bool As Boolean = False
reader.Read()
        'Me.Label1.Text = reader("NumeroOsmose").ToString()
        Dim mohamed As String
        mohamed = reader("NumeroOsmose").ToString
 
        MsgBox(buffer1 + " " + reader("NumeroOsmose").ToString)
 
        If (String.Compare(buffer1, mohamed) = 0) Then
            MsgBox("youpi")
        End If
 
        While reader.Read()
            If (String.Compare(buffer1, reader("NumeroOsmose").ToString) = 0) Then
                bool = True
                MsgBox("existe déjà")
                GoTo m1
            End If
 
        End While
 
 
        If (bool = False) Then
 
 
            If Me.Validate Then
                'Dim ConnectionString1 As String = "Data Source=SM65CVDF;Initial Catalog=GESTION;Integrated Security=True"
                'Dim con As New SqlConnection(ConnectionString1)
                'Dim cmd As SqlCommand = con.CreateCommand()
                'cmd.CommandText = "select"
                Me.AMINEALERTESBindingSource1.EndEdit()
                Me.AMINE_ALERTESTableAdapter1.Update(Me.GESTIONDataSet5.AMINE_ALERTES)
            Else
                System.Windows.Forms.MessageBox.Show(Me, "Validation errors occurred.", "Save", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Warning)
            End If
        End If
 
 
m1:     reader.Close()
 
        MsgBox("confimez-vous avoir traité cette alerte")
 
    End Sub

le but en faite de ce code est lorsque je saisie une nouvelle donnée dans le tableau 1,il doit veriffier lors de l'enregostrement k'elle n'existe pas deja dans le tableau 2

[Pol63]

pourquoi s'embeter avec string.compare
if s1 = s2 fait l'affaire

de plus nous ne somme plus dans les années 80
parcourir une table pour savoir si quelque chose est dedans ca se fait plus
tu fais un select avec ta condition dans la clause where, si le select te retourne au moins une ligne c'est que ton truc est deja dans la table

[Bluedeep]

de plus nous ne somme plus dans les années 80
parcourir une table pour savoir si quelque chose est dedans ca se fait plus

Euh ... dans les années 80 on avait quand même le séquentiel indexé, hein, on parcourait pas les tables comme ça. Tu confonds avec les fichiers sur bande dans les années 70, là