1

我正在尝试将多行一个接一个地插入到数据库中。这是相关的代码。

Private ConnectionString As String = "Provider=OraOLEDB.Oracle;Data Source=(DESCRIPTION=(CID=GTU_APP)(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=xxx)(PORT=xxx)))(CONNECT_DATA=(SID=xxx)(SERVER=DEDICATED)));User Id=xxx;Password=xxx;"
Private SQL As String = "INSERT INTO XXX.BU_LOG (PROGRAM, LOCATION, MESSAGE, TIMESTAMP, ""LEVEL"", COMPUTER, ""USER"") "
Dim Connection As New OleDbConnection(ConnectionString)
Dim Command As OleDbCommand

'The SQL variable is the first part of an insert statement
SQLValues = "VALUES ('" & Program & "','" & Location & "','" & Message & "','" & Timestamp & "','" & LevelName & "','" & Computer & "','" & User & "')"

Dim Command As New OleDbCommand(SQL & SQLValues, Connection)

Connection.Open()
Command.ExecuteNonQuery()
Connection.Close()

现在，如果我调用它一次它会很好。如果我从不同的按钮（为每个按钮插入不同的值）调用它两次，效果很好。但是，当我在同一个按钮中调用代码两次时，一个接一个地插入两行，但第二行与第一行相同。我检查了命令文本，它在执行查询时是正确的，但它复制了行。

如果我在调用第二个插入之前让线程休眠 500 毫秒，它工作正常。但如果我只睡 100 毫秒，它就会重复。有任何想法吗？

编辑：对不起，如果我不清楚。问题不在于 Timestamp 列。事实上，Timestamp 列有欺骗是可以的。我是这样称呼它的。

log.Write(My.Application.Info.AssemblyName, System.Reflection.MethodBase.GetCurrentMethod.Name, "Hello World!")
log.Write(My.Application.Info.AssemblyName, System.Reflection.MethodBase.GetCurrentMethod.Name, "Testing", , VB2008_Log_Dll.Log.mLevel.Fatal)

如您所见，第一个只是写“Hello World！” 第二个写“测试”。当我运行程序时，我得到两行“Hello World！”。我希望这能让它更清楚。

4

1 回答 1

2

TIMESTAMP 列的数据类型是什么？如果是 DATE，Oracle DATE 的值只能精确到 1 秒，所以半秒左右的两次插入很可能最终得到相同的列值。

有一种较新的数据类型称为 TIMESTAMP，它可以精确到几分之一秒，如果合适，您可以使用它来代替。

于 2008-11-19T21:32:40.040 回答