在vb中操纵数据

Question

我们如何在vb中提取系统时间并进行计算，即。添加或减去时间，然后以更早的格式在oracle数据库表中存储更改时间。

Answer 1

获取系统时间

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

添加或减去时间间隔（例如，添加一小时）

timestamp = DateAdd("h", 1, 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