更改格式日期，并可以在 vb.net 中用空白或零更新文本框

Question

我想将文本框中的日期格式更改为“dd-mmm-yy”格式，但是当在 datagridview 中没有出现日期和时间时它不起作用，而且我无法在文本框中用空白和零进行更新导致错误“数据类型错误”。如果我不执行 sql 命令来更新“日期”字段，则不会导致错误。我用的是视觉工作室2010 所以日期列中的问题，如果我在没有日期列的情况下更新，那么它运行得很好。问题错误：更新语句中的语法错误 谢谢 杰克

  Dim Path As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
    Dim cn As String = "provider=Microsoft.Jet.OLEDB.4.0; data source=" & Path & "; Extended Properties=dBase IV"
    Private connectionString As String
    Private con As OleDbConnection
    Private cmd As OleDbCommand
    Private da As OleDbDataAdapter
    Private sql As String
    Public x As Integer
    Public Sub dbConnection()
        connectionString = CStr(cn)
        con = New OleDbConnection(connectionString)
        con.Open()
    End Sub
    Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
        x = DataGridView1.Rows.IndexOf(DataGridView1.CurrentRow)
        txtCODE.Text = DataGridView1.Rows(x).Cells(0).Value.ToString()
        DateTimePicker1.Value = DataGridView1.Rows(x).Cells(1).Value.ToString()
NumericUpDown1.Value = DataGridView1.Rows(x).Cells(2).Value.ToString()
       
    End Sub
    Private Sub FillDataGridView()
        Try
            Dim query = "select CODE,DTE,QTY FROM EXAMPLE"
            Using con As OleDbConnection = New OleDbConnection(CStr(cn))
                Using cmd As OleDbCommand = New OleDbCommand(query, con)
                    Using da As New OleDbDataAdapter(cmd)
                        Dim dt As DataTable = New DataTable()
                        da.Fill(dt)
                        Me.DataGridView1.DataSource = dt
                    End Using
                End Using
            End Using
        Catch myerror As OleDbException
            MessageBox.Show("Error: " & myerror.Message)
        Finally
        End Try
    End Sub
    Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        Try
            dbConnection()
            x = DataGridView1.Rows.IndexOf(DataGridView1.CurrentRow)
            'sql = "UPDATE EXAMPLE SET QTY=? WHERE CODE=?"
            sql = "UPDATE EXAMPLE SET DTE=?,QTY=? WHERE CODE=?"
            cmd = New OleDbCommand(sql, con)
            cmd.Parameters.Add("DTE", OleDbType.Date)
            cmd.Parameters.Add("QTY", OleDbType.Numeric)
            cmd.Parameters.Add("CODE", OleDbType.VarChar)
            cmd.Parameters("DTE").Value = DateTimePicker1.Value
            cmd.Parameters("QTY").Value = NumericUpDown1.Value
            cmd.Parameters("CODE").Value = txtCODE.Text

            cmd.ExecuteNonQuery()
            MessageBox.Show("Successfully Updated...", "Update")
            con.Close()
            FillDataGridView()
        Catch myerror As OleDbException
            MessageBox.Show("Error: " & myerror.Message)
        Finally
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FillDataGridView()
    End Sub

Answer 1

您的 SQL 行必须这样写：

sql = "UPDATE EXAMPLE SET DATE=@d,QTY=@q WHERE CODE=@c"

您通过添加更多代码来设置这些 @xxx 的值：

cmd.Parameters.AddWithValue("@d", dtpDATE.Value)
cmd.Parameters.AddWithValue("@q", nudQTY.Value)
cmd.Parameters.AddWithValue("@c", txtCODE.Text)

将您的日期时间 TextBox 更改为日期时间选择器。不要使用文本框来表示数值，而是使用 NumericUpDown。

您必须按照@xxx在SQL中出现的顺序调用AddWithValue("@xxx"...。Access会忽略名称并查看参数出现的顺序在 SQL 中，因此在同一订单上调用 AWV 非常重要，有一天，当您使用不同的数据库升级时，它将支持参数的名称部分，因此您可以按任何顺序添加值，但现在在访问时，订单。很重要

你必须像我展示的那样编写 SQL。永远不要像以前那样使用字符串连接来将用户提供的数据值构建到 SQL 语句中，这会使您的程序很容易被侵入。收集，但绝不能在任何系统上进行很重要，例如很多人使用的一个