vb html 更新,VB更新时间戳字段

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

总结

以上是编程之家为你收集整理的VB更新时间戳字段全部内容，希望文章能够帮你解决VB更新时间戳字段所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。

小编个人微信号 jb51ccc

喜欢与人分享编程技术与工作经验，欢迎加入编程之家官方交流群！