Values dans Insert

Version imprimable

14/09/2007, 16h14
demagnir5

Values dans Insert

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

regarde avec CASE

Code:

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.

Balises [code]

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

Code:

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

15/09/2007, 11h50
zyongh

quel est le message?

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

Balises [code]

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:

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

15/09/2007, 15h50
zyongh

pas erreur SQL

Peut-être tu ne postes pas dans le bon forum... ce n'est peut-être pas une erreur SQL.
16/09/2007, 17h31
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 :roll:
17/09/2007, 12h19
demagnir5

Merci David, Merci Al1 24.

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