VB更新时间戳字段

最新推荐文章于 2023-04-26 15:12:13 发布

永远爱好写程序

最新推荐文章于 2023-04-26 15:12:13 发布

阅读量2.1k

点赞数

分类专栏： VB 文章标签： vb buffer string function integer database

本文链接：https://blog.youkuaiyun.com/limlimlim/article/details/8064203

版权

VB 专栏收录该内容

17 篇文章

订阅专栏

Option Explicit

Private Sub Command1_Click()
    Dim objcnn As ADODB.Connection
    Dim strTmp As String
    Dim objRst As New ADODB.Recordset
    Dim strSQL As String

    Set objcnn = New ADODB.Connection

    With objcnn
        .ConnectionString = "Provider=SQLOLEDB;Data source=192.168.8.249;Database=PA;Uid=sa;Pwd=kicpassword"
        .Open
    End With

    'FTimeStamp 为timestamp类型的字段
    objRst.Open "Select Top 1 FTimeStamp From M_Batch01", objcnn, adOpenStatic, adLockReadOnly

    If Not objRst.EOF Then
        '先取得查询到的时间戳
        strTmp = TimestampToString(objRst.Fields("FTimeStamp"))
        MsgBox strTmp

        '进行更新，注意更新条件里加了时间戳(主要用来处理并发使用,防止更新的时候记录被其他用户修改)
        strSQL = "Update m_batch01 set IsExportToK='Y' Where batchid=1882 and FTimeStamp=" & strTmp
        objcnn.Execute strSQL
        MsgBox "OK"
    End If
End Sub

'转换函数
Private Function TimestampToString(RsCol As ADODB.Field) As String
    Dim Buffer As String
    Dim i As Integer

    Buffer = "0x"
    For i = 1 To 8
        Buffer = Buffer & Right("00" & Hex(AscB(MidB(RsCol, i, 1))), 2)
    Next i
    TimestampToString = Buffer
End Function