La Conversion de type DBNull de type 'String' n'est pas valide lors de l'insertion de données à partir de datagridview à la base de données sql

Bonjour les gens, je suis un débutant programmeur de vb.net, donc j'ai ce problème jusqu'à présent, je suis à la recherche d'une réponse similaire mais n'a trouvé aucune chance, alors j'ai décidé de poster mon problème.

si elle est ici.

Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

    Dim connstr As String = "server=midtelephone\sqlexpress; database=testdb; user= sa; password=sa;"

    cmdconn = New SqlConnection
    cmd = New SqlCommand
    cmdconn.ConnectionString = sqlstr
    cmd.Connection = cmdconn
    cmdconn.Open()

    Dim period, VOUCH_AMT, INDIVIDUAL_AMT, check_no, D_MAILED, DIR_NO As String
    For i As Integer = 0 To Me.DataGridView1.Rows.Count - 1

        'cmd.CommandText = "insert into tobee.EBD_BILLHISTORY(period, vouch_amt, individual_amt, check_no, d_mailed, dir_no) values" &_
        '" (@period,@VOUCH_AMT,@INDIVIDUAL_AMT,@check_no,@D_MAILED,@DIR_NO)"

        period = Me.DataGridView1.Rows(i).Cells(0).Value()
        VOUCH_AMT = Me.DataGridView1.Rows(i).Cells(1).Value()
        INDIVIDUAL_AMT = Me.DataGridView1.Rows(i).Cells(2).Value()
        check_no = Me.DataGridView1.Rows(i).Cells(3).Value()
        D_MAILED = Me.DataGridView1.Rows(i).Cells(4).Value()
        DIR_NO = Me.DataGridView1.Rows(i).Cells(5).Value()

        cmd.CommandText = "insert into tobee.EBD_BILLHISTORY(period, vouch_amt, individual_amt, check_no, d_mailed, dir_no)values" & _
            "('" & period & "','" & VOUCH_AMT & "','" & INDIVIDUAL_AMT & "','" & check_no & "','" & D_MAILED & "', '" & DIR_NO & "')"
        cmd.ExecuteNonQuery()
        MsgBox("Saved")
    Next
    cmdconn.Close()

End Sub

j'aimerais mettre à jour ma base de données sql par le biais de datagridview.

( qui datagridview a été appelé à partir d'une autre requête sql - cmd.CommandText = " select période, VOUCH_AMT, INDIVIDUAL_AMT, check_no, D_MAILED, DIR_NO de tobee.EBD_BILLHISTORY où CLAIM_NO comme '" + claimno.ToString + "'"sélectionner la période, VOUCH_AMT, INDIVIDUAL_AMT, check_no, D_MAILED, DIR_NO de tobee.EBD_BILLHISTORY où CLAIM_NO comme '" + claimno.ToString + "'")

maintenant, le problème est/sont,
l'erreur/s venu lorsque je clique sur le bouton enregistrer.
chaque fois que je clique sur le bouton enregistrer en laissant les autres colonnes vides. les erreurs s'affiche
"invalidcastexception était non gérée" (sur certaines lignes qui est vide)
-Conversion de type DBNull de type 'String' n'est pas valide.

aaaaaand.. une autre erreur arrive lors de l'insertion de valeur différente dans chaque lignes.
spécialement quand je veux insérer une valeur de type datetime. pas vraiment familier avec le code.

est-il quelque chose de mal avec mon code?
tous les procédés sont bons(comme arracher les données) à l'exception cliquant sur le bouton enregistrer.
ou la mise à jour de ma base de données. merci à l'avance. vos réponses sont très appréciées.

  • J'ai mis à jour le code de nouveau s'il vous plaît prendre un coup d'oeil, c'est un peu plus de lignes. J'ai inclus la vérification de la valeur Null/Rien, DBNull, valeur vide.
  • merci à vous, toutes les lignes procédé à aucune erreur, mais 1 chose est mon souci.. les modifications que j'ai apportées dans le datagridview n'est pas mise à jour dans ma base de données sql quand je clique sur le bouton enregistrer. de toute façon, je vais poster une nouvelle question, ou u peut m'aider à trouver une solution ici et maintenant? :O merci d'avance
  • avez-vous une source de données sous-jacente dans le datagridview?
  • en fait, il est, le datagridview(EBD_billhistory table) a été tiré vers le haut à partir d'un "private Sub loaddgvfrm3()" cmd.CommandText = "select période, VOUCH_AMT, INDIVIDUAL_AMT, check_no, D_MAILED, DIR_NO de tobee.EBD_BILLHISTORY où CLAIM_NO comme '" + claimno.ToString + "'" Dim dt à New DataTable da = New SqlDataAdapter da.SelectCommand = cmd da.De remplissage(dt) frmEb.DataGridView1.DataSource = dt cmdconn.Close()
  • en fait ,c'private sub a été tiré vers le haut à partir d'une autre forme.. fait je vous ai donné les informations appropriées? ou u êtes à la recherche pour de vastes info?
InformationsquelleAutor Newbie matt | 2014-02-10
  1. 1

    D'essayer le code ci-dessous, j'ai aussi mis à jour le code pour éviter les injections SQL.
    Vous devez vérifier si la valeur de la cellule est DBNull et gérer de manière appropriée

    Dim connstr As String = "server=midtelephone\sqlexpress; database=testdb; user= sa; password=sa;"
cmdconn = New SqlConnection
cmd = New SqlCommand
cmdconn.ConnectionString = connstr 'sqlstr
cmd.Connection = cmdconn
cmdconn.Open()
Dim period, VOUCH_AMT, INDIVIDUAL_AMT, check_no, D_MAILED, DIR_NO As String
For i As Integer = 0 To Me.DataGridView1.Rows.Count - 1
'cmd.CommandText = "insert into tobee.EBD_BILLHISTORY(period, vouch_amt, individual_amt, check_no, d_mailed, dir_no) values" &_
'" (@period,@VOUCH_AMT,@INDIVIDUAL_AMT,@check_no,@D_MAILED,@DIR_NO)"
With Me.DataGridView1.Rows(i)
If IsDBNull(.Cells(0).Value()) OrElse .Cells(0).Value() Is Nothing OrElse .Cells(0).Value().ToString().Trim() = "" Then
period = ""
Else
period = .Cells(0).Value()
End If
If IsDBNull(.Cells(1).Value()) OrElse .Cells(1).Value() Is Nothing OrElse .Cells(1).Value().ToString().Trim() = "" Then
VOUCH_AMT = "0"
Else
VOUCH_AMT = .Cells(1).Value()
End If
If IsDBNull(.Cells(2).Value()) OrElse .Cells(2).Value() Is Nothing OrElse .Cells(2).Value().ToString().Trim() = "" Then
INDIVIDUAL_AMT = "0"
Else
INDIVIDUAL_AMT = .Cells(2).Value()
End If
If IsDBNull(.Cells(3).Value()) OrElse .Cells(3).Value() Is Nothing OrElse .Cells(3).Value().ToString().Trim() = "" Then
check_no = ""
Else
check_no = .Cells(3).Value()
End If
If IsDBNull(.Cells(4).Value()) OrElse .Cells(4).Value() Is Nothing OrElse .Cells(4).Value().ToString().Trim() = "" Then
D_MAILED = ""
Else
D_MAILED = .Cells(4).Value()
End If
If IsDBNull(.Cells(5).Value()) OrElse .Cells(5).Value() Is Nothing OrElse .Cells(5).Value().ToString().Trim() = "" Then
DIR_NO = ""
Else
DIR_NO = .Cells(5).Value()
End If
'period = IIf(IsDBNull(.Cells(0).Value()), "", .Cells(0).Value())
'VOUCH_AMT = IIf(IsDBNull(.Cells(1).Value()), "0", IIf(.Cells(1).Value().ToString().Trim() = "", "0", .Cells(1).Value()))
'INDIVIDUAL_AMT = IIf(IsDBNull(.Cells(2).Value()), "0", IIf(.Cells(2).Value().ToString().Trim() = "", "0", .Cells(2).Value()))
'check_no = IIf(IsDBNull(.Cells(3).Value()), "", .Cells(3).Value())
'D_MAILED = IIf(IsDBNull(.Cells(4).Value()), "", .Cells(4).Value())
'DIR_NO = IIf(IsDBNull(.Cells(5).Value()), "", .Cells(5).Value())
End With
cmd.CommandText = "insert into tobee.EBD_BILLHISTORY(period, vouch_amt, individual_amt, check_no, d_mailed, dir_no)values" & _
"('" & period.Replace("'", "''") & "'," & VOUCH_AMT & "," & INDIVIDUAL_AMT & ",'" & check_no.Replace("'", "''") & "','" & D_MAILED.Replace("'", "''") & "', '" & DIR_NO.Replace("'", "''") & "')"
cmd.ExecuteNonQuery()
MsgBox("Saved")
Next
cmdconn.Close()
    • Je vous remercie pour votre code, il est travail! mais où dois-je mettre la valeur de mon type de données? est-il comme la période = IIf(IsDBNull(.Les cellules(0).Valeur()), "", .Les cellules(0).De la valeur.décimal())
    • pouvez-vous énumérer les données de type de données de chaque colonne (période, vouch_amt, individual_amt, check_no, d_mailed, dir_no) ou les colonnes qui attendent le numéro au lieu de string? Puis mettre soit une valeur Null ou 0 valeur au lieu de ""
    • période = char(25) vouch_amt = décimal(18,2) individual_Amt = décimal(18,2) check_no = char(15) d_mailed = datetime dir_no = char(15)
    • Là, j'ai mis à jour le code. Espérons que cela vous donne le droit de réponse.
    • merci!!!! mais une nouvelle erreur est survenue après avoir cliqué sur le bouton enregistrer -missingmemberexception était non gérée "représentant du Public "Trim" sur le type DBNull pas trouvé".. :(. comment le trim fonctionne de toute façon? l'erreur a été mis en évidence dans cette ligne - VOUCH_AMT = IIf(IsDBNull(.Les cellules(1).Valeur()), "0", IIf(.Les cellules(1).Valeur().Garniture() = "", "0", .Les cellules(1).Valeur()))- quand j'ai essayé de mettre une valeur sur son cellulaire
    • pouvez-vous remplacer tous .Valeur().Trim() pour .Valeur().ToString().Trim() qui devrait fonctionner correctement maintenant.
    • merci pour la mise à jour de ce code, tous les codes fonctionne très bien par l'épargne. mais une erreur se produit toujours à la fin. (la msgbox invité 8e fois où je ne édité 1 colonne de gauche et les autres colonnes de la façon dont ils ont été (parce qu'ils ont une valeur par défaut , certains sont null )) - nullreferenceexception était non gérée "la référence d'Objet n'est pas définie à une instance d'un objet." dans ma table sql de ces colonnes sont admissibles les valeurs null. donc, si je les laisse vide il faudra encore procéder à la mise à jour de la base de données, j'aimerais poster une image mais il semble que j'ai besoin de plus de réputation pour le faire ... donc oui. c'est ce que je veux faire. 🙁
    • btw, l'erreur a été mis en évidence dans cette ligne - VOUCH_AMT = IIf(IsDBNull(.Les cellules(1).Valeur()), "0", IIf(.Les cellules(1).Valeur().ToString().Garniture() = "", "0", .Les cellules(1).Valeur()))- merci beaucoup pour le très instructif réponses. je l'apprécie vraiment <3
    • bonjour, je me demande pourquoi le msgbox("Sauvé") boucles pour comme 7 ou 8times ?.
    • C'est parce que Vous avez 8 enregistrements et de vous faire une boucle par elle.
    • Merci!!!! maintenant, le problème est que ma base de données n'est pas mise à jour les modifications que j'ai faites dans datagridview? comment se fait-ses pas la mise à jour de tous les changements de datagridview, quand en fait nous avons cmd.executenonquery()?

    InformationsquelleAutor Jade
  2. 0

    C'est mieux pour transmettre des valeurs de commande en tant que paramètres. Vérifiez petite portion de code ci-dessous:

    cmd.CommandText = "insert into tobee.EBD_BILLHISTORY(period, vouch_amt, individual_amt, check_no, d_mailed, dir_no) values" &_
" (@period,@VOUCH_AMT,@INDIVIDUAL_AMT,@check_no,@D_MAILED,@DIR_NO)"
cmd.parameters.addwithvalue("@Period", iif(period is dbnull.value, 0, period))
    • merci de poster une réponse, la "syntaxe @" ne fonctionne pas sur moi. la réponse posté ci-dessus a été plus susceptibles fonctionnelle dans mes formulaires, maintenant le problème est, il semble que les valeurs que j'ai insérée dans le dgv n'a pas été mis à jour dans ma base de données.
    InformationsquelleAutor GiorgiTBS