Vb.net 无法在visual basic中插入日期时间

我有一个问题，想知道是否有人能帮忙。。 我已经在vbnet中创建了一个程序。当我按下按钮时，它应该在我的sql数据库的“日期”列中插入当前日期和时间。为此，我使用以下代码：

query1 = "insert into visit(visit,textfile,p_id) VALUES('" & Date.Today & "','" & s & "',(select patient.p_id from patient where (patient.name=('" & ComboBox1.Text & " '))))"

好的，它完成了它的工作，但是当我在数据库的“访问”列中查看时，它只显示零

有什么想法吗

使用参数化查询（此示例适用于Sql Server）。这样，您就不必担心如何引用日期、字符串或数据库所需的正确小数分隔符。
此外，您还可以避免任何问题

---

您使用的是什么数据库？您应该使用SQL参数而不是字符串连接来构建查询。我已经尝试过了，但在SQL命令中出现了一个错误…我是否必须导入任何内容？它说：operator=未为类型“mysqldata.mysqlclient.mysqlcommand”和“mysql.data.mysqlclient.mysqlcommand:”定义好的，没有问题，但不幸的是，它说mysql在1附近有一个错误。我的错，我打错了它…但出于某种原因，它添加了重复的行，虽然它显示正确，但它会与今天日期和12:00一起保存，无论我点击它的次数有多大。不要担心显示数据库信息的工具如何显示日期值。通常在输出中显示datetime字段的值12.00。

 query1 = "insert into visit(visit,textfile,p_id) VALUES(@p1, @p2, " & _ 
          "(select patient.p_id from patient where patient.name=@p3)"

 Dim cmd As MySqlCommand = new MySqlCommand(query1, connection)
 cmd.Parameters.AddWithValue("@p1", Date.Today)
 cmd.Parameters.AddWithValue("@p2", s)
 cmd.Parameters.AddWithValue("@p3", ComboBox1.Text)
 cmd.ExecuteNonQuery()