Probleme dans requete sql

Probleme dans requete sql - SQL/NoSQL - Programmation

Marsh Posté le 18-07-2005 à 15:37:39    

Bonjour,  
J'ai un peu de mal avec ma requete sql pour se connecter via vb.net a access, ca ne doit pas etre bien compliqué, mais je ne vois pas.
 
Voici ma requete qui marche correctement :
 Dim req = "INSERT INTO Couple ( [Nom couple], [Abscisse] ) VALUES ('" & nomCouple + "','" + abscisse + "')"
 
J'aimerais faire cette même requete d'enregistrement seulement si les enregistrements de ma base access ne possede pas deja des lignes nomCouple (clef primaire)
 
Pouvez vous m'aider? J'ai essayé avec la close where sans succes. Je ne sais pas si on peut utiliser where et value ensemble.

Reply

Marsh Posté le 18-07-2005 à 15:37:39   

Reply

Marsh Posté le 19-07-2005 à 09:36:26    

c'est quoi ce & alors qu'après tu utilises des + ?

Reply

Marsh Posté le 19-07-2005 à 09:42:23    

C'est pas trop grave ce &, j'ai corrigé mais ca marche aussi.
 
voila j'ai écris mon code mais je n'arrive pas a recupérer le nombre de ligne. Pourtant la methode ExecuteNonQuery devrait renvoyer un integer sur le nombre d'enregistrement? Voilà mon code si quelqu'un a le temps de jeter un coup d'oeil.  
 
 
 
'"""""""""""""""""""""""""""""""""""""""""  
'Bouton OK  
'"""""""""""""""""""""""""""""""""""""""""  
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click  
'""""""""""""""""""  
'Bon  
'""""""""""""""""""  
Dim i As Integer  
Dim nomCouple As String  
Dim abscisse As String  
 
For i = 0 To DataGridView1.Rows.Count - 2  
 
nomCouple = DataGridView1.Item(0, i).Value  
abscisse = DataGridView1.Item(1, i).Value  
Dim req1 = "SELECT [Nom couple] from couple where [Nom couple]='" + nomCouple + "'"  
Dim value = executionRequete(req1)  
cnx.Close()  
If value > 0 Then 'test pour savoir si des lignes existes déjà  
 
Dim req = "INSERT INTO Couple ( [Nom couple], [Abscisse] ) VALUES ('" & nomCouple + "','" + abscisse + "') "  
 
executionRequete(req)  
cnx.Close()  
End If '""""""""""""""""""  
Next i  
End Sub  
 
Private Function executionRequete(ByVal req As String) As Integer  
cnx.Open()  
' Dim myCommand = New OleDbCommand(req, cnx)  
' myCommand.ExecuteNonQuery()  
Dim myCommand As OleDbCommand  
myCommand = New OleDbCommand  
myCommand.CommandText = req  
myCommand.Connection = cnx  
'myCommand.ExecuteNonQuery()  
Return myCommand.ExecuteNonQuery  
cnx.Close()  
 
End Function  

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed