Oracle VB中的数据处理

如何在VB中提取系统时间并执行计算，即添加或减去时间，然后将更改时间以早期格式存储在oracle数据库表中？

获取系统时间

Dim timestamp As Date: timestamp = Now
timestamp = timestamp - Int(timestamp)

增加或减少时间间隔（例如，增加一小时）

将其存储在数据库中，类似于

Dim cnn As New Connection
cnn.ConnectionString = "YourConnectionString"

Dim cmd As New Command
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "YourStoredProcName"
cmd.ActiveConnection = cnn

Dim prm As Parameter: Set prm = cmd.CreateParameter("YourParameterName", adDBTime, adParamInput)
prm.Value = timestamp

Call cmd.Parameters.Append(prm)
Call cnn.Open
Call cmd.Execute
Call cnn.Close

获取系统时间

Dim timestamp As Date: timestamp = Now
timestamp = timestamp - Int(timestamp)

增加或减少时间间隔（例如，增加一小时）

将其存储在数据库中，类似于

Dim cnn As New Connection
cnn.ConnectionString = "YourConnectionString"

Dim cmd As New Command
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "YourStoredProcName"
cmd.ActiveConnection = cnn

Dim prm As Parameter: Set prm = cmd.CreateParameter("YourParameterName", adDBTime, adParamInput)
prm.Value = timestamp

Call cmd.Parameters.Append(prm)
Call cnn.Open
Call cmd.Execute
Call cnn.Close