[VB.net] Module et probleme de conversion

Version imprimable

Bonjour,

J'ai deux questions :roll:

Mon premier probleme concerne les modules. J'ai un UserControl avec des ComboBox et je voudrais y acceder depuis mon module.
Je n'y arrive pas !
Dans mon UserControl c'est Me.ComboMarque.Text par exemple et je voudrais transposer cette ligne dans mon module.

Deuxieme probleme :
Code:

1 2 3 4 5 6 strSQL = "UPDATE VersionDetail SET Acceleration = '" & Me.tbAcceleration.Text.ToString & "',Reservoir = '" & Me.tbReservoir.Text.ToString & "' .........." Dim maComm3 AsNew SqlClient.SqlCommand(strSQL, My.Forms.Form1.maConn) maComm3.CommandType = CommandType.Text maComm3.ExecuteNonQuery()
L'erreur se situe au niveau de la ligne maComm3.ExecuteNonQuery()
L'intitulé de l'erreur est : Error converting data type varchar to float.
La mise à jour marche pour des int, des smallint, des varchar mais les float ca plante je sais pas pourquoi.

Merci d'avance pour votre aide et bonne journée !

Nico

21/04/2006, 10h58
behe
salut, pour ton problème de controluser, une solution est de mettre ton controle en parametre de fonction.
Code:

1 2 3 4 Sub test(ByVal uc As UserControl1) Dim test AsString = uc.ComboBox1.Text() EndSub
21/04/2006, 11h01
nico10gbb

OK ca marche merci pour cette solution ;)

Il ne reste plus qu'un souci :D

Citation:

Envoyé par nico10gbb

Deuxieme probleme :

Code:

1
2
3
4
5
6

strSQL = "UPDATE VersionDetail SET Acceleration = '" & Me.tbAcceleration.Text.ToString & "',Reservoir = '" & Me.tbReservoir.Text.ToString & "' .........."
Dim maComm3 AsNew SqlClient.SqlCommand(strSQL, My.Forms.Form1.maConn)
maComm3.CommandType = CommandType.Text
maComm3.ExecuteNonQuery()

L'erreur se situe au niveau de la ligne maComm3.ExecuteNonQuery()
L'intitulé de l'erreur est : Error converting data type varchar to float.
La mise à jour marche pour des int, des smallint, des varchar mais les float ca plante je sais pas pourquoi.

Petite question : As tu essayé d'écrire des float avec un "." plutot qu'une "," ( ou inversement ) ?

Pour éviter ce genre de gag je te suggere fortement d'utiliser les 'parameters'. Exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
        Using Bdd As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomFichier & ";User Id=admin;Password=;")
            Using Cmd As New OleDb.OleDbCommand("Insert into [Histo] (DateHeure,Millisecondes,NumEvent,NumEquip,Etat,Api) values (@DateHeure,@Millisecondes,@NumEvent,@NumEquip,@Etat,@Api)", Bdd)
                Try
                    Cmd.Parameters.Add("@DateHeure", OleDb.OleDbType.Date).Value = D
                    Cmd.Parameters.Add("@Millisecondes", OleDb.OleDbType.Integer).Value = 0
                    Cmd.Parameters.Add("@NumEvent", OleDb.OleDbType.Integer).Value = -1
                    Cmd.Parameters.Add("@NumEquip", OleDb.OleDbType.Integer).Value = -1
                    Cmd.Parameters.Add("@Etat", OleDb.OleDbType.Integer).Value = -1
                    Cmd.Parameters.Add("@API", OleDb.OleDbType.Char).Value = Automate.Nom
                    Bdd.Open()
                    Cmd.ExecuteNonQuery()
                    Bdd.Close()
                Catch ex As Exception
                    Call MsgBox("Erreur lors de l'accès au fichier TOTAL.MDB", MsgBoxStyle.Critical, "ERREUR")
                    Return False
                End Try
            End Using
        End Using

Ainsi tu spécifie précisement le type de tes paramètres sans ce genre de surprise ( en particulier les dates et les flottant sur un système anglais ;) )

A+

24/04/2006, 09h35
nico10gbb

J'ai testé ce que tu m'as dit.
Dans mes TextBox c'est affiché avec une virgule et si je mets un point l'update marche :roll:

En utilisant les parametres comme indiqué ça résout le probleme ;)

Merci bien :D