小编Pez*_*zzz的帖子

我快速浏览了一下,在vb.net中找不到这个答案或者我可以转换成vb.net的东西.

我在vb.net的'Date'类中有两个DateTime.我想在几秒钟内找到它们之间的区别.我可以做ab,但答案仍然是'约会'.我可以使用.seconds .minutes等等并且繁殖,但是当我来到几个月时我会遇到问题.

有没有一种简单的方法可以做到这一点,还是我需要编写一些精心设计的代码？

非常感谢

我试图Boolean使用SQL在ms-access中向表中添加一列.我正在使用JET,这是我尝试过的SQL查询.

Query = "ALTER TABLE tabDatafiveMinutely ADD CON0001 BOOLEAN DEFAULT FALSE"
Query = "ALTER TABLE tabDatafiveMinutely ADD CON0001 BOOLEAN"

我得到的错误是"字段定义中的语法错误"

谢谢你的帮助

编辑:

我现在想制作默认值null而不是false.我试过了default null,这仍然给了我false,任何人都可以帮忙吗？

结果:

一个MS-Access数据库只能走true与false不空.因此我决定使用而integer不是.

我有一个单行文本框,用于将数字字符串添加到选中的列表框.我希望列表框自动滚动到最后添加的项目,如果这对用户不可见.我已经查找了列表框的滚动属性,但我找不到任何看起来会滚动列表框的内容.

有人有建议吗？

以下是将项添加到列表框的代码:

Private Sub bttAddchklstDbManagement_Click(sender As System.Object, e As System.EventArgs) Handles bttAddchklstDBmanagement.Click
    If Not txtDBManagement.Text = Nothing And Not txtDBManagement.Text = "" Then
        chklstDBmanagement.Items.Add(txtDBManagement.Text)
        chklstDBmanagement.SetItemChecked(chklstDBmanagement.Items.Count - 1, True)
        txtDBManagement.Text = Nothing
        txtDBManagement.Focus()
    End If
End Sub

txtDBmanagement是TextBox
chklstDbManagement是选中的列表框

我试图在Visual Basic中使用SQL将日期和时间值插入到Access2002/3模式下运行的Access 2007中.使用我的代码,我设法将文本字符串和数值插入表中.但是,对于DateTime字段,会出现语法错误.Access中的字段设置为日期/时间字段类型.

下面是我的第一个生成数据库访问功能查询的函数:

Public Function NewUpload(ByVal UploadType As String) As Single

    Dim UploadNumber As Single
    Dim ColumnString As String
    Dim ValueString As String

    If DatabaseConnection("SELECT ID_UPL FROM tabUpload", "Read Recordset") = "Error" Then GoTo close
    Do Until rdrOLEDB.Read = False
        If Val(rdrOLEDB.Item(0).ToString()) > UploadNumber Then UploadNumber = Val(rdrOLEDB.Item(0).ToString())
    Loop
    rdrOLEDB.Close()
    cnnOLEDB.Close()

    UploadNumber = UploadNumber + 1

    'Update Uploads table:
    ColumnString = "ID_UPL,DateTime,IDUser,DataCalc"
    ValueString = Format(UploadNumber, "0000") & ",#" & Now.ToLongDateString & " " & Now.ToLongTimeString & "#,'" & My.User.Name …

我正在编写一些数据分析软件,我想提高原始数据的时基.我的原始数据的时间步长为~2分钟.我想将数据扩展到几个数据库表,时间步长为5分钟,每小时,每天和每月.我计划从原始数据中运行其中的每一个以保持我的准确性.

我目前遇到的问题是获取初始值并找到我想要的最接近的'圆'时间点,作为我的起点.例如,我将从13/03/12 00:01:36开始作为我的起点,我希望代码找到13/03/12 00:00:00作为最接近的时间点,所以它将开始计算从那里.对于每个时间点,我想在每一侧采取一半的时间步.所以12/03/12 23:57:30到13/03/12 00:02:29将成为13/03/12 00:00:00.

使用SQL查询从Access获取数据,并将日期和值存储在两个并排的数组中.以下是我的代码.它会将值向上舍入到下一个5分钟,而不是向上或向下到最近的5分钟.

Private Sub RateStateScale(ByVal Parameter As Integer, ByVal Timebase As String)

    Dim NewDate(0)
    Dim NewData(0)
    Dim RecordCounter
    Dim MinValue As Date = ScaleDate(0)
    Dim startpoint As String

    For RecordCounter = 0 To ScaleDate.GetLength(0)
        If MinValue > ScaleDate(RecordCounter) Then
            MinValue = ScaleDate(RecordCounter)
        End If
    Next

    Do Until MinValue.Minute Mod 5 = 0
        MinValue = MinValue.AddMinutes(1)
    Loop



End Sub

谢谢你的帮助