Discussion :

[lionel256]

Bonjour j'ai un problème, j'ai déjà demander de l'aide j'ai lu des tutos mais je n'ai pas su résoudre mon problème.
J'aimerais faire une sélection avec une adresse dans une table et récupérer certaines informations pour les introduire dans une autre table.

merci d'avance pour l'aide.
Voici mon 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
70
71
72
73
74
75
        Dim conn As SqlClient.SqlConnection
        conn = New SqlConnection
        conn.ConnectionString = "Data Source=lionel;Initial Catalog=ANSDNN;Integrated Security=True"
        conn.Open()
         Dim recuperation As String
        recuperation = Me.TbRue.Text
        Me.Label1.Text = recuperation
        Me.TbRue.Text = ""
        If recuperation = "" Then 
        Else
 
 
 
            Dim vReq As String = "SELECT ADRESSE,ACTIVITE,Latitude FROM ESSAI WHERE ADRESSE = @ADRESSE;"
            Dim comm As SqlCommand
            comm = New SqlCommand
            comm.Connection = conn
            comm.CommandText = vReq
            'Création du paramètre adresse :
            Dim paramAdresse As IDbDataParameter = comm.CreateParameter()
            paramAdresse.ParameterName = "@ADRESSE"
            paramAdresse.DbType = DbType.String
            paramAdresse.Direction = ParameterDirection.Input
            paramAdresse.Value = recuperation
            comm.Parameters.Add(paramAdresse)
            'Construction de la requête qui va chercher les données en base
            Dim sql As System.Text.StringBuilder = New System.Text.StringBuilder("")
            sql.Append("INSERT INTO essai2 (Adresse ,Description , Latitude, Longitude) ")
            sql.Append("VALUES (?, ?, ?, ? )")
 
            'Connexion à la BDD
            Dim strConnexion As String = "Provider=SQLOLEDB;Data Source=lionel;Initial Catalog=ANSDNN;Integrated Security=True"
            Dim oConnexion As New System.Data.OleDb.OleDbConnection(strConnexion)
            Dim openConnectionError As Boolean = False
            Try
                oConnexion.Open()
            Catch ex As Exception    
                openConnectionError = True
            End Try
 
              If Not openConnectionError Then
 
 
                Dim Adresse As String
                Dim Description As String
                Dim Latitude As Decimal
                Dim Longitude As Decimal
                Dim oCommand As New System.Data.OleDb.OleDbCommand(sql.ToString)
                oCommand.Parameters.Add("@Adresse", OleDb.OleDbType.VarChar)
                oCommand.Parameters.Item("@Adresse").Value = Adresse
 
                oCommand.Parameters.Add("@Descrption", OleDb.OleDbType.VarChar)
                oCommand.Parameters.Item("@Descritpion").Value = Description
 
 
                oCommand.Parameters.Add("@Latitude", OleDb.OleDbType.Numeric)
                oCommand.Parameters.Item("@Latitude").Value = Latitude
 
                oCommand.Parameters.Add("@Longitude", OleDb.OleDbType.Numeric)
                oCommand.Parameters.Item("@Longitude").Value = Longitude
 
                oCommand.Connection = oConnexion
                Try
                      oCommand.ExecuteNonQuery()
                Catch ex As Exception
                         Finally
                    oConnexion.Close()
                    oConnexion.Dispose()
                End Try
            Else
 
            End If
 
        End If
        conn.Close()

[SaumonAgile]

Et quelle est la question ?

La prochaine fois, pense aux balises CODE, ça améliore la lisibilité.

[lionel256]

j'aimerais savoir si une personne pourrait éventuellement me débloquer ou me dire quel est le problème dans mon code.
merci

[SaumonAgile]

Commence par décrire quel est le problème. On verra ensuite ce qu'on peut faire.

[lionel256]

Mon est problème est que je ne sais pas où est mon erreur.
Je sais que c'est vaste mais j'ai mon code et il ne fais rien alors qu'il devrait au moins faire quelque chose.

[SaumonAgile]

Utilise le débogueur de visual studio, tu mets un point d'arret au début de la méthode et tu exécutes le code pas à pas pour voir ce qui se passe exactement.

[lionel256]

oui j'ai déjà essayé mais le déboguer de visual studio ne fonctionne pas dans mon cas, lorsque je met un point d'arrêt il passe outre sans s'arrêter pourtant je suis sur qu'il passe dedans pcq j'ai mit un message box et il l'affichait.

[SaumonAgile]

Tu dois compiler en mode Debug pour que le debogueur puisse fonctionner.

[lionel256]

Il est en mode débug mais il passe outre quand même je sais compiler la page mais je ne sais pas mettre de point d'arrêt.

[SaumonAgile]

Pour mettre un point d'arrêt, il suffit de faire F9 sur la ligne concernée.

[lionel256]

oui ou cliquer à gauche et de la ligne et il y aura un point rouge. j'ai déjà utilisé les points d'arrêts :s

[SaumonAgile]

oui ou cliquer à gauche et de la ligne et il y aura un point rouge. j'ai déjà utilisé les points d'arrêts :s

Bah tu disais justement que tu ne savais pas t'en servir...

je ne sais pas mettre de point d'arrêt.

En tout cas, s'il ne passe dans ton point d'arrêt, c'est que la méthode qui le contient n'est pas appelée.
Essaie de mettre un point d'arrêt plus haut dans la pile des appels pour voir pourquoi elle n'est pas appelée.

[lionel256]

Je me suis mal exprimé quand j'ai dis que je ne savais pas m'en servir, pardon :s

le seule moment où mon point d'arrêt est prit en compte c'est lorsque je suis hors de mon bouton. Mais moi ce qui m'intéresse ce trouve dans mon bouton.
Mon code s'exécute dans un événement "click"

[SaumonAgile]

Tu es sur que tu as bien mis le

Code :

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

Handles monBouton.Click

au bout de la déclaration de la méthode qui doit être appelée lors du clic ?

[lionel256]

Protected Sub BtnRue_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnRue.Click

j'ai ça au-dessus lorsque mon bouton commence.

et en end sub a la fin