标签: recordset

这是我的代码:

Dim CompanyName, _
    CompanyDomain, _
    CompanyEmail, _
    CompanySupportPhone

Call GetEmailList

Sub GetEmailList
    dim sql
    dim companydata

    sql = ""
    sql = sql & " DECLARE @CompanyName VARCHAR(100);"
    sql = sql & " DECLARE @CompanyDomain VARCHAR(100);"
    sql = sql & " DECLARE @CompanyActivityEmail VARCHAR(100);"
    sql = sql & " DECLARE @CompanySupportPhone VARCHAR(100);"

    sql = sql & " SELECT"
        sql = sql & " @CompanyName = CASE WHEN Setting = 'CompanyName'"
        sql = sql & " THEN StringValue ELSE @CompanyName END," …

我正在尝试在数据表视图中的access07子表单中显示ADO记录集.只是一个快照,只读.连接成功,记录集包含数据,但是,当我设置子表单记录集时,不显示任何字段.子窗体显示一个垂直滚动条,当滚动到底部时,它表示正确的记录数,但它没有显示任何字段,没有显示任何列.

这一定很简单,我很想念.有任何想法吗？

编辑:这是建立记录集的代码的摘要.

Set cn = New ADODB.Connection
Set rsADO = New ADODB.Recordset

dbBackend = "C:\Users\Me\Desktop\TEST_Db_Backend.accdb"
sqlStr = "SELECT * FROM tblMaster;"
    strConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbBackend & ";User Id=;Password=;"

    cn.CursorLocation = adUseClient
    cn.ConnectionString = strConnect
    cn.Open
    If cn.State = adStateOpen Then
        rsADO.Open sqlStr, cn, adOpenStatic, adLockReadOnly
End If

    Set Me.PreviewPane.Form.Recordset = rsADO

rsADO.Close
cn.Close
Set rsADO = Nothing
Set cn = Nothing

我想使用Perl迭代从MySQL数据库返回的记录,但一次只能迭代10条记录.原因是服务器组件每个请求只能处理10个项目.

例如:

如果查询返回35条记录,那么我必须在4个请求中发送数据:

Request #         # of Records
--------             --------
   1                    10
   2                    10
   3                    10
   4                     5

完成任务的最佳方法是什么？

我在传统的ASP Classic代码中使用ADO Recordset上的过滤器时遇到了问题,而我正在尝试了解我是否不支持我正在尝试做什么,或者我是否只是做错了.

我有一个Items记录集,它们的状态为1(活动)或0(非活动),以及可选的End_Date.在我的管理用户界面中,我有一个控件来显示所有项目或仅显示应该显示给最终用户的项目:Status = 1 AND ( End_Date is null OR End_Date > Date() )

为了实现这个逻辑,我试过:

rs.Filter = "Status = 1 AND ( End_Date = null OR End_Date > #" & Date() & "# )"

但我明白了

ADODB.Recordset (0x800A0BB9)
Unknown runtime error

经过多次愚弄,似乎ADO不喜欢End_Date条件下的分组parens与AND条件相结合.如果我把parens拿出来,这有效:

rs.Filter = "Status = 1 AND End_Date = null OR End_Date > #" & Date() & "#"

但这只是一个意外 - 它看起来像是按顺序评估过滤条件,所以我得到了我想要的结果.如果我将AND更改为OR,则parens工作:

rs.Filter = "Status = 1 OR ( End_Date = null OR End_Date > #" & Date() …

在VB6.0中,MyCombobox.NewIndex的最大值是多少？它是什么数据类型的？为什么我不能将newIndex设置为11001000000？如果我不能,我该怎么办？

谢谢

Dim ComboItem As String
With rsTest
        .Sort = "ID Asc"
        .MoveFirst
        While Not .EOF
            ComboItem = .Fields("Code") & " - " & .Fields("Name")
            myCombobox.AddItem (ComboItem)
            myCombobox.ItemData(myCombobox.NewIndex) = .Fields("ID")
            .MoveNext
        Wend
End With

使用以下查询,我只需要在月份"02"中显示标有年份"2014"的记录:

SELECT DISTINCT 
 c.sno,
 c.cCode,
 c.caseNumber,
 c.dateOriginalInstitution,
 c.date_remanded,
 c.plaintiff,
 c.respondant 
FROM
  cases c,
  chronologicallists ch 
WHERE (
 (YEAR(dateOriginalInstitution) = '2014' AND MONTH(dateOriginalInstitution) = '02') 
 OR 
 (YEAR(dateOfTransferInstituion) = '2014' AND MONTH(dateOfTransferInstituion) = '02') 
 OR 
 (YEAR(date_restored) = '2014' AND MONTH(date_restored) = '02')
) 
AND c.inTheCourt = '578' AND c.sno = ch.caseSno 

我在结果集中仍然得到2011年和2012年？

请帮我解决一下这个.

IO 在我的 asp 经典页面中遇到了一个非常奇怪的问题。我正在为员工制定休假时间表。当我测试它时，它似乎工作正常。虽然有另一种选择，我可以来回走一周，当我回到 3 周时，循环一直在单张唱片上循环。

所以我想通过在 SQL 执行后对记录集进行计数来检查问题出在哪里。

但出于某种原因，do while 循环一直在循环。我在 do while 中做了一个打印计数，看看它找到了多少条记录，现在它已经在 508 000 上了！

所以在我的 t-sql 服务器（2012）中，我做了完全相同的查询，这里它只产生了 953 条记录......

所以很明显，循环中出现了问题。

这是我正在使用的代码：

strSQL = "SELECT * FROM [qrySnipperKalender_B] WHERE [snipperdag] >= "& szStart &" AND [snipperdag]<= "& szEnd &" ORDER BY [FunctieGroep], [Relatienaam], [Datum] ASC"


    response.write(strSQL & "<br> <br>")

    set rst=con_sql.execute(strSQL)
    CountCheck = 0


    Do until rst.EOF or rst.BOF
        response.write("Count is: " & CountCheck & "<br>")

        CountCheck = CountCheck + 1
    Loop

    response.write("RST count      :" & CountCheck) …