×

Loading...
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。
Ad by
  • 最优利率和cashback可以申请特批，好信用好收入offer更好。请点链接扫码加微信咨询，Scotiabank -- Nick Zhang 6478812600。

@Florida

不知道下面的方法是否可以解决。今天晚上做做实验吧。谢谢你们了，dx们。

lilyba(sunshine困惑不懂装懂)
Function dbTimeStamp (SqlTimeStamp As Variant) As String

' This function creates a hex digit timestamp 'string' which
' can be passed to any update store procedure

Dim cString As String
Dim x As Integer

cString = "0x"

For x = 1 To Len(SqlTimeStamp)

cString = cString + Right$("00" + Hex$(Asc(Mid$(SqlTimeStamp, x,
1))), 2)

Next

dbTimeStamp = cString

End Function




UPDATE tablename SET col = col FROM table
WHERE key = key AND timestamp = dbTimeStamp(VB timestamp variable)
(#1498581@0)
Last Updated: 2003-12-4
This post has been archived. It cannot be replied.
Report

Replies, comments and Discussions:

  • 工作学习 / IT技术讨论 / 请教timestamp类型。谢谢。 -lilyba(sunshine困惑不懂装懂); 2003-12-4 {508} (#1498102@0)
    我从一个storeprocedure中取出一个timestamp 类型变量（output)，作为另一个storeprocedure的input.

    1storeprocedure1
    dim timestamp as string
    params(0) = New SqlParameter("@tmstp", SqlDbType.Timestamp, 8)
    params(0).Direction = ParameterDirection.Output
    timestamp=params(0).value.tostring


    2 storeprocedure2
    params(0) = New SqlParameter("@tmstp", SqlDbType.Timestamp, 8)
    params(0).Direction = ParameterDirection.Input
    params(0).Value = timeStamp

    storeproedure2 该参数出错。请问，我应该怎么办。
    • In 2, params(0).Value should also be timestamp datatype, I am not familiar with VB, in C#, params(0).Value = Convert.ToDateTime(timestamp); -cloud2001(卷云溶月*fallen*); 2003-12-4 (#1498173@0)
      • 谢谢，不过，这个timestamp应该是个binary，好像不能用时间类型。 -lilyba(sunshine困惑不懂装懂); 2003-12-4 (#1498234@0)
        • up -lilyba(sunshine困惑不懂装懂); 2003-12-4 (#1498304@0)
    • give it a try: params(0).Value = Convert.FromBase64String(timeStamp); -hillxie(我叫不紧张); 2003-12-4 (#1498363@0)
      • 我试过了，告诉我data format不对。这是我的错误信息：Message "Input string was not in a correct format." -lilyba(sunshine困惑不懂装懂); 2003-12-4 (#1498375@0)
        • Don't insert anything into this column, I think timestamp data type will automatically filled by system using current system time. -wnms2000(乘风归去); 2003-12-4 (#1498385@0)
          • Sorry,没讲明白，第二个timestamp作为input，实际上不是用来insert，而是作为参数，比较的。 -lilyba(sunshine困惑不懂装懂); 2003-12-4 (#1498409@0)
    • params(0).Value = timeStamp--->timestamp 是一个string，而Parameter要一个TimeStamp. 你把它传进去当然不对。而且你似乎也用错数据类型了，不应该用这种类型的变量 -miketany(MIKE老狼); 2003-12-4 (#1498393@0)
      • 怎么办呢？ -lilyba(sunshine困惑不懂装懂); 2003-12-4 (#1498410@0)
        • 你一定要用你可以把存储过程的那个参数改为Varchar, 传进去后Cast成TimeStamp -miketany(MIKE老狼); 2003-12-4 (#1498424@0)
          • 不是特别明白。你能帮我把source code 改一下么？谢谢你了。 -lilyba(sunshine困惑不懂装懂); 2003-12-4 (#1498443@0)
            • 其实你把timeStamp直接声明成System.Data.SqlClient.SqlDbType.TimeStamp不就好了吗？timestamp=params(0).value 就不会有变量类型的问题了 -miketany(MIKE老狼); 2003-12-4 (#1498533@0)
              • yes, but SqlDbType.TimeStamp is not a class... -hillxie(我叫不紧张); 2003-12-4 (#1498551@0)
    • 不知道下面的方法是否可以解决。今天晚上做做实验吧。谢谢你们了，dx们。 -lilyba(sunshine困惑不懂装懂); 2003-12-4 {565} (#1498581@0)
      Function dbTimeStamp (SqlTimeStamp As Variant) As String

      ' This function creates a hex digit timestamp 'string' which
      ' can be passed to any update store procedure

      Dim cString As String
      Dim x As Integer

      cString = "0x"

      For x = 1 To Len(SqlTimeStamp)

      cString = cString + Right$("00" + Hex$(Asc(Mid$(SqlTimeStamp, x,
      1))), 2)

      Next

      dbTimeStamp = cString

      End Function




      UPDATE tablename SET col = col FROM table
      WHERE key = key AND timestamp = dbTimeStamp(VB timestamp variable)
      • 也不用这么麻烦吧，你能改存储过程你直接把变量改成int, varchar不就可以了么。SqlDbType.TimeStamp类型是byte[8], 声明一个byte数组不好一些吗？ -miketany(MIKE老狼); 2003-12-4 (#1498632@0)
        • 我其实是这样做的，而且经过两次转换之后，结果一模一样，都是长度为8,类型为byte的arraylist。但是运行storeprocedure总是出现data format 不对的错误。 -lilyba(sunshine困惑不懂装懂); 2003-12-4 {201} (#1498640@0)
          取数，for output param: timeStamp = Convert.ToBase64String(CType(params(5).Value, Byte()))


          input param:
          params(4).Value = Convert.FromBase64String(timeStamp.ToString())
          • Have you tried this: -wnms2000(乘风归去); 2003-12-4 {228} (#1498665@0)
            1storeprocedure1
            dim timestamp
            params(0) = New SqlParameter("@tmstp", SqlDbType.Timestamp, 8)
            params(0).Direction = ParameterDirection.Output
            timestamp=params(0).value

            don't do any convertion in the first code snippet.
            • I tried, not work. :(''''' -lilyba(sunshine困惑不懂装懂); 2003-12-4 (#1498688@0)
        • Agree, the Byte[] should work. -hillxie(我叫不紧张); 2003-12-4 (#1498663@0)
    • Try this: -hillxie(我叫不紧张); 2003-12-4 {435} (#1498653@0)
      I express using c#, you can try it in the same way using VB.Net:


      1. storeprocedure1

      Byte[] timeStamp;
      params[0] = New SqlParameter("@tmstp", SqlDbType.Timestamp, 8);
      params[0].Direction = ParameterDirection.Output;
      timestamp = (Byte[])params[0].value;

      2. storeprocedure2:

      params[0] = New SqlParameter("@tmstp", SqlDbType.Timestamp, 8);
      params[0].Direction = ParameterDirection.Input;
      params[0].Value = timeStamp;
      • Thanks, i will try this tonight. -lilyba(sunshine困惑不懂装懂); 2003-12-4 (#1498689@0)
    • msdn -guestagain(guest again); 2003-12-4 (#1498713@0)
      • Thanks, it works. This should be the easiest way. -lilyba(sunshine困惑不懂装懂); 2003-12-8 (#1504373@0)

More Topics

  • 脑洞大开，突发奇想，用力来传播信息
  • 看大家讨论日语，俺也正在认真学习。其实语言问题应该是很快也很容易就解决的，可能比自动驾驶来的还快。TREK里面，全宇宙的人都在大脑里安装了UNIVERSAL TRANSLATOR，外星人之间相互交流无障碍。废话少说，看视频。。。加上个MIC和耳机，不同国家的人就可以无障碍交流。
  • 肉脸真有搞 IT 的？Linux 把俄国中国伊朗踢出去了好像肉脸 IT 没啥感觉似的
  • 请问web developer和software developer技术上有什么区别？
  • Elon Musk 带着川普总统奔向火星了。
    • 枫下论坛主坛 /  工作学习 /  IT技术讨论