Problème base de donnée Access vb.netRésolu

Question

Salut tout le monde 
j'ai un programme de stockage attaché avec une base de donnée Access 2007 
et lorsque fait un opération de stocké il ma affiché se message 
Requête Access. La conversion de la chaîne "" en type 'Double' n'est pas valide 
mais le programme et enregistrer l'opération 
Ce message apparaît uniquement si la base de données vide 
merci pour mes aidé 
VOILA MON CODE 
N: set une autonumber dans ma base de donnée 
Sub newsave () Dim sql As String = "select max(N) as q from MOBILISE" Dim f As String = "" If con.State() Then con.Close() con.Open() Dim cmd As New OleDbCommand(sql, con) Try f = cmd.ExecuteScalar().ToString() NSENDING.Text = f + 1 Catch ex As Exception MessageBox.Show(ex.Message) End Try End sub Sub savedstokage() Dim sql As String = "select * from DJEZZY where N=" & Val(NSENDING.Text) 'somemsge nobre de mesage flexy If con.State() Then con.Close() con.Open() Dim cmd As New OleDbCommand(sql, con) Dim dr As OleDbDataReader dr = cmd.ExecuteReader() If dr.Read() = True Then NSENDING.Text = dr.Item(0).ToString num = dr.Item(1).ToString solde = dr.Item(2).ToString Me.Dtpiker.Text = dr.Item(3).ToString Label5.Text = dr.Item(4).ToString riponssedjezy = dr.Item(5).ToString TextBox6.Text = dr.Item(6).ToString con.Close() Else If solde = "" OrElse num = "" Then MessageBox.Show("Assurez-vous d'entrer des données ", "ereur", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)Exit Sub Else Try sql = "INSERT INTO DJEZZY(N,PRENOM,QUN,DATE,HEUR,PRIX,NOM)" & " values('" & Val(NSENDING.Text) & "','" & num & "','" & solde & "','" & Dtpiker.Text & "','" & Label5.Text & "','" & riponssedjezy & "','" & TextBox6.Text & "')" Dim cmd2 As New OleDbCommand(sql, con) cmd2.ExecuteNonQuery() con.Close() viewdjizzy() Catch ex As Exception con.Close() MessageBox.Show(ex.Message) End Try End If End If End Sub 
lorsque supprimer tous les donné de ma base de donné le premier stockage dans la base de donné il ma donné se message 
La conversion de la chaîne "" en type 'Double' n'est pas valide 
mi la deuxième stockage sa marche tri bien 
merci pour résoudre se problème mes amis

NHenry · Answer

Regarde quelle valeur pose soucis et ensuite cherche à comprendre pourquoi tu as une chaine vide.

dadibarca23 · Answer

bonjour henry
j'ai cherche mi aucune nouveau merci pour mes aidé

dadibarca23 · Answer

bon jour henry
Dim sql As String = "select max(N) as q from MOBILISE" 
quand le max(N) = 0 il afiche se message
La conversion de la chaîne "" en type 'Double' n'est pas valide 
mais le programme et enregistrer l'opération
comment commencé le counté pour la valeur 1 dans access 
clé primarer = autonumber

Problème base de donnée Access vb.net

3 réponses

Votre réponse

Discussions similaires