小编Shu*_*ham的帖子

如何测试记录集是否为空？

        Dim temp_rst1 As Recordset
        Dim temp_rst2 As Recordset

        Set temp_rst1 = db.OpenRecordset("SELECT * FROM ORDER_DATA WHERE SKUS_ORDERED = '" & curSKU1 & "' AND [ORDER] = " & curOrder)
        Set temp_rst2 = db.OpenRecordset("SELECT * FROM ORDER_DATA WHERE SKUS_ORDERED = '" & curSKU2 & "' AND [ORDER] = " & curOrder)

        If IsNull(temp_rst1) Or IsNull(temp_rst2) Then MsgBox "null"

我正在根据select语句打开几个记录集.如果没有记录,IsNull会返回true吗？

好的我正在使用Access 2003,我刚刚开始学习Access和VBA几天前.
我在模块中编写了一些代码,当我按下调试工具栏上的播放按钮时,没有错误.
我如何在我的数据库上实际执行此代码,以便它可以执行某些操作.
换句话说,我该如何使用该模块？

请帮助我,我正在努力奋斗,截止日期是星期四!

谢谢!

我有一个用Python2编写的随机生成器程序,但我需要将它移植到Python3.为程序提供选项-n [number]和一个文件参数,告诉它从文件中随机输出[number]行数.以下是该计划的来源:

#!/usr/bin/python

import random, sys
from optparse import OptionParser

class randline:
    def __init__(self, filename):
        f = open(filename, 'r')
        self.lines = f.readlines()
        f.close()

    def chooseline(self):
        return random.choice(self.lines)

def main():
    version_msg = "%prog 2.0"
    usage_msg = """%prog [OPTION]... [FILE] [FILE]...

Output randomly selected lines from each FILE."""

    parser = OptionParser(version=version_msg,
                          usage=usage_msg)
    parser.add_option("-n", "--numlines",
                      action="store", dest="numlines", default=1,
                      help="output NUMLINES lines (default 1)")
    options, args = parser.parse_args(sys.argv[1:])

    try:
        numlines = int(options.numlines)
    except:
        parser.error("invalid NUMLINES: {0}".
                     format(options.numlines))
    if numlines < 0:
        parser.error("negative count: {0}". …

我正在尝试获取表的记录数,如果count大于17,则创建一个新表.

Dim rst As DAO.Recordset
strSQL = "Select * from SKUS"
Set rst = db.OpenRecordset(strSQL)

If rst.RecordCount > 17 Then
    Set tdf = db.CreateTableDef("161-0363")

    Set fld = tdf.CreateField("SKUS", dbText, 30)
    tdf.Fields.Append fld

    Set fld = tdf.CreateField("Count", dbInteger)
    tdf.Fields.Append fld

    db.TableDefs.Append tdf
End If

此代码不会创建新表,但是当我将if语句更改为this时,它的工作原理如下:

...
If rst.RecordCount > 0 Then
    Set tdf = db.CreateTableDef("161-0363")
...

所以RecordCount正在返回1,我想.为什么会这样？我知道桌子上有18行.
谁能帮我吗？

我正在尝试运行以下代码,但我在DLookUp上遇到"类型不匹配"编译错误.

DLookUp返回一个值,对吗？对我来说,这段代码说:在strSQL记录集中,查找SKUS_ORDERED列等于curSKU2的位置.strSQL,temp,curSKU2都被初始化为字符串类型变量.

...
 strSQL = "SELECT * FROM ORDER_DATA WHERE [ORDER]=" & curOrder

 Dim temp As String
 temp = DLookup("SKUS_ORDERED", db.OpenRecordset(strSQL), SKUS_ORDERED = curSKU2)
...

类型不匹配在哪里？谁能帮我吗？

编辑:

       ...
        Set fld_orders = rst_orders.Fields("ORDER")
        curOrder = fld_orders.Value

        Dim temp As String
        temp = DLookup("SKUS_ORDERED", "ORDER_DATA", "SKUS_ORDERED = '" & curSKU2 & "' AND [ORDER] = " & curOrder)

        If temp <> Null Then MsgBox temp
       ...

整个代码很长,但这里有一个更大的片段,其中curOrder被初始化,这是一个嵌套循环,curSKU2在循环之前被初始化.希望能帮助到你.

我有两种形式.一个将显示另一个表单将指向的RecordSet记录.

    Private Sub Form_Load()

        Dim rs As ADODB.Recordset
        Set rs = CurrentDb.OpenRecordset(Forms("reportSelection").Controls("reportComboBox").value)
        RecordSource = rs

    End Sub

因此,当显示表单加载时,它将从另一个表单中填充了记录集名称的组合框中获取值,并将其作为记录集打开.

但是我在RecordSource = rs上遇到类型不匹配,我不明白为什么,RecordSource与RecordSet的类型有何不同？

任何帮助表示赞赏!谢谢!

我正在尝试在运行相机预览的表面上显示图像.到目前为止,我使用SurfaceHolder运行相机.我想也许我可以使用FrameLayout将图像堆叠在相机预览的顶部,但我不知道如何去做.我怎么能这样做,还是有其他方法可以做到这一点？

我更喜欢以编程方式编写代码,但感谢任何帮助!

谢谢

我正在尝试运行这段代码:

    strSQL = "SELECT * FROM ORDER_DATA WHERE ORDER=" & curOrder
    Set rst_orderData = db.OpenRecordset(strSQL)

ORDER_DATA中的ORDER列是双数字类型,curOrder也是double类型.

我得到的错误指向第二行并说"WHERE子句上的语法错误".

你为什么认为这是？这可能是类型冲突吗？

任何帮助表示赞赏!谢谢!

我正在 Access 中创建一个表单，该表单处理数百万行数据，需要几个小时（取决于您的计算机）。我想实现一个功能来读取计算机规格，例如 CPU 速度和 RAM 数量，并确定该过程需要多长时间。

是否可以使用 VBA 获取计算机规格？

我在一个表单中有一个"查看报告"按钮,当单击该按钮时,我想将另一个表单的记录源更改为其他表单并刷新它？

我试图将此代码放在按钮的单击功能中,但它无法正常工作

    access.forms("Form1").RecordSource = {bla bla}

但它不起作用.错误说它可以找到Form1 ..

任何帮助表示赞赏!
谢谢!

我试图在python3中运行以下代码,但它已经编写,我很确定python2:

f = open(filename, 'r')
self.lines = f.readlines()
f.close()
if self.lines[-1] != "\n" :
    self.lines.append("\n")

但是我收到以下错误:

  File "randline.py", line 32
    if self.lines[-1] != "\n" :
                              ^
TabError: inconsistent use of tabs and spaces in indentation

你能帮我弄清楚正确的语法吗？