0

vb.net のコード ビハインドに update ステートメントを書きたいです。ICCID が tbl_ICCID に存在する場合は、ステータスを 0 から 1 に変更し、Pic_Correct_ICCID.visible=true が存在しない場合は、「見つかりません」と表示します。私はこのコードを書きましたが、機能しません.Tbl_ICCID Pic_Correct_ICCID.visible=trueに存在しないすべてのICCIDに対して. コードを確認して問題を解決してください。

in Cls_ICCID:

 Public Function Update_Status(ByVal ICCID_No As String, ByVal status As Integer) As String
        Try
            Dim cmd As SqlCommand
            Dim sql As String
            Dim sql2 As String
            Dim myConnection As SqlConnection = New SqlConnection()
            myConnection.ConnectionString = "Data Source=TEHRANI\TEHRANI;Initial Catalog=GSMProduction;Persist Security Info=True;User ID=sa;Password=1"
            **sql = "UPDATE Tbl_ICCID SET Status='" & status & "' Where ( ICCID = '" & ICCID_No & "' )"**
            myConnection.Open()
            cmd = New SqlCommand(sql, myConnection)
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            myConnection.Close()
            Update_Status = ""
        Catch ex As SqlException
            Update_Status = "Not found"
        Catch ex As Exception
            Update_Status = "Not connect to server"
        End Try
    End Function

in Frm_Packing



Private Sub Txt_ICCID_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt_ICCID.TextChanged

        Pic_BP_Correct.Visible = False
        Pic_BP_Wrong.Visible = False

        Try
            If Txt_ICCID.Text.Length = Txt_ICCID.MaxLength Then
                lblError.Text = clsICCID.Update_Status(Txt_ICCID.Text.ToString(), 1)
                lblError.ForeColor = Color.Red
                stream = New System.IO.MemoryStream
                pic_barcode = Nothing
                cls.btnEncode(pic_barcode, Txt_ICCID.Text.Trim)
                pic_barcode.Save(stream, System.Drawing.Imaging.ImageFormat.Png)
                f = New IO.FileStream("C:\test55.png", IO.FileMode.Create, IO.FileAccess.ReadWrite)
                b = stream.ToArray
                f.Write(b, 0, b.Length)
                f.Close()
                Dim Val() = {stream.ToArray, Txt_ICCID.Text.Trim}
                ds.Tables(0).Rows.Add(Val)
                crp_report.SetDataSource(ds.Tables(0))
                frm_crp.CrystalReportViewer1.ReportSource = crp_report
                If lblError.Text = "" Then
                    Pic_BP_Correct.Visible = True
                    GBDoubleCheck.Visible = True
                    Txt_LabelBarcode.Focus()
                Else
                    Pic_BP_Wrong.Visible = True
                End If
            End If
        Catch ex As Exception
            Pic_BP_Wrong.Visible = True
        End Try
    End Sub
4

1 に答える 1

-1

ほとんどの場合、ステータス列の値を int ではなく文字列として送信したことが原因です。これらの一重引用符は削除する必要があります。また、これは、そのようなクエリを連結するのは本当に悪い習慣です。SQLインジェクションから身を守るために、CommandBuilderのようなものまたは型付きデータセットを使用してください。

于 2013-02-19T05:36:20.497 に答える