Discussion :

[nico10gbb]

Bonjour,

J'ai deux questions

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 :

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

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

[behe]

salut, pour ton problème de controluser, une solution est de mettre ton controle en parametre de fonction.

Code :

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

1
2
3
4
Sub test(ByVal uc As UserControl1)
Dim test AsString = uc.ComboBox1.Text()
EndSub

[nico10gbb]

OK ca marche merci pour cette solution

Il ne reste plus qu'un souci

[Kikos31]

Deuxieme probleme :

Code :

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

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 :

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
        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+

[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

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

Merci bien