Discussion :

[demagnir5]

Bonjour.
Peut etre question bete.

Dans la clause Value de l'instruction Insert, j'aimerai pouvoir inserer une ligne avec des valeurs contenues dans des variables saisies?

Meme probleme pour l'instruction Select. Comment traiter des conditions sur des variables plutot que sur des valeurs.

Ex
dim var as string
var = textbox1.text
select colonne1 from table1 where colonnex = var

Cette instruction est incorrecte à cause de = var

Merci

[zyongh]

Code :

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

1
2
3
4
5
6
7
SELECT CASE ("nom de colonne")
   WHEN "condition1" THEN "résultat1"
   WHEN "condition2" THEN "résultat2"
   ...
   [ELSE "résultatN"]
   END
FROM "nom de table"

trouvé en 10 secondes avec Google.

[demagnir5]

Merci David.
Ca ne marche toujours pas:
Message: "Echecde IErrorInfo.GetDescription avecE_FAL (0x8004005)" a l'execution de la ligne "objReader = objCmd.ExecuteReader"

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
 
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
 
 
Dim ssql As String
ssql = "select case * when htl_nom = nomhotel then msg1 else msg2 from hotel ;"
Dim objConn As New System.Data.OleDb.OleDbConnection(sconnection)
Dim objcmd As New System.Data.OleDb.OleDbCommand(ssql, objConn)
Dim objReader As System.Data.OleDb.OleDbDataReader
Try
 
objConn.Open()
Catch ex As Exception
End Try
If objConn.State = ConnectionState.Open Then
Try
Stop
objReader = objcmd.ExecuteReader
Catch ex As Exception
MessageBox.Show(ex.message)
End Try
End If
End Sub

[zyongh]

Est-ce que tu as un message d'erreur qui s'affiche?

[demagnir5]

Oui
"Echec de IErrorInfo.GetDescription avecE_FAL (0x8004005)"
Ce message est affiché par la lligne: MessageBox.Show(ex.message) suite au traitement de l'exeption sur la ligne : objReader = objcmd.ExecuteReader.

Revoici la procedure en question:

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
 
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
Dim nomHotel as string
nomHotel = Textbox1.text
Dim ssql As String
ssql = "select case * when htl_nom = nomhotel then msg1 else msg2 from hotel ;"
Dim objConn As New System.Data.OleDb.OleDbConnection(sconnection)
Dim objcmd As New System.Data.OleDb.OleDbCommand(ssql, objConn)
Dim objReader As System.Data.OleDb.OleDbDataReader
Try
objConn.Open()
Catch ex As Exception
End Try
If objConn.State = ConnectionState.Open Then
Try
Stop
objReader = objcmd.ExecuteReader
Catch ex As Exception
MessageBox.Show(ex.message)
End Try
End If
End Sub

Merci pour ton aide

[zyongh]

Peut-être tu ne postes pas dans le bon forum... ce n'est peut-être pas une erreur SQL.

[al1_24]

Il manque le END à la fin du CASE

Su tu avois posté unqiuement le code SQL, ça se serait vu comme le nez au milieu de la figure

[demagnir5]

Merci David, Merci Al1 24.

J'ai trouvé mon bonheur dans le sous forum DOTNET/SGBD.
Article interessant.
A bientot