在Access 2010中,我正在尝试使一个窗体在一个子窗体QueriesSubForm中显示一个查询,当从列表框QueryListBox中选择该查询时,然后单击按钮runbtn。它应该在链接子窗体中显示查询,并且当您从列表框中选择的不同选项再次执行整个步骤并单击按钮时,它会发生变化。
目前,我只能让它工作,如果我想让它在一个新的任务窗口中显示查询,当像这样编程时:
QueriesListBox列表框- SQL视图
SELECT MSysObjects.[Name]
FROM MSysObjects
WHERE (((MSysObjects.[Type])=5) AND ((Left([Nam
我有一个带有列表框的表单。列表框显示SELECT查询的结果,我希望用户能够按下按钮来删除列表框中选定的项。下面是我想在用户单击按钮时运行的查询。
DELETE *
FROM Client
WHERE
(([Client].[ClientID])=[Forms]![UpdateDeleteClientInformationForm]![ClientFullNameListBox]);
问题是,我不确定如何从列表框中的选定内容访问当前的ClientID。如何访问SQL查询中选定项的列表框中每一列中的数据?
目前,我对Access并不是特别满意。
我有两个列表框,名为listbox1和listbox2。
Listbox1使用SQL查询填充,并包含两列。它的第一列包含有逗号的值。
Listbox2被设置为Access属性表的“行源类型”属性中的值列表。
我的目标是使用控件按钮将选定的项从listbox1复制到listbox2。
我还需要注意,listbox1记录包含逗号,在复制过程中充当分隔符。不过,这个问题已经得到解决。
我创建了两个模块来完成所选记录从一个列表框到另一个列表框的复制:
Public Sub CopySelected(ByRef frm As Form)
Dim ctlSource As Control
我有一个adoQuery,并希望用结果填充列表框,但没有重复项。
with Fdeptlayout.ADOQuery2 do
begin
sql.Clear;
sql.BeginUpdate;
sql.Add('SELECT');
sql.Add(' *');
sql.Add('FROM');
sql.Add(' `MList`');
sql.Add(' ORDER BY `Basic Nam
我正在尝试从另一个表单向列表框添加项目,但列表框似乎没有更新。
我有3种形式: frm1,frm2,frm3
这是我在frm1中打开frm2的代码:
Using frm As New frm2
frm.ShowDialog()
End Using
frm2有一个名为list_xxx的列表框
Frm3中的代码:
Private Sub add_item()
frm2.list_xxx.add("aaaa")
End Sub
我想将项目从frm3添加到frm2。但是没有成功,列表框仍然是空的。如何修复它?
我正在尝试从数据库中获取一个查找值,并且我想列出一个单列值的列表,即" value“列。
private Static Final String Custom = "Custom" //lie in class Constants
LookUp.createCriteria.list() {
eq('type',LookupTypeEnum.valueOf(Constants.Custom).toString())
}
这个清单类似于select,
如何将此查询转换为
Select Value from
我有一个名为Student的表,其中包含有关学生的信息,比如他们的名字。另一个名为Exam的表将考试日期和学生姓名作为主键。我有一个表单,可以用来从列表框中选择多个学生,然后在选定的日期插入到检查表中。
我相信我的语法是正确的,因为如果我使用Access的查询构建器,复制/粘贴我的SQL查询,并去掉表单内容,它将按预期工作。当我尝试从VB运行它时,我得到的错误是Exam.Exam_Date是未知的,并检查我的拼写。我完全按照表中的拼写方式拼写它。
在Access的VB中不能使用INSERT INTO SELECT查询吗?
下面是我的代码:
Private Sub add_Click()
Dim
我的页面上有几个选择列表框,当没有选择任何内容时,我希望将值显示为Select a Value。因此,我将Null Display Value属性设置为Select a Value。这对于使用共享列表或SQL查询作为源的select列表很好,但对于使用弹出LOV作为源的列表则不适用。如何为弹出LOV设置空显示值?
我有两个多选列表框"Animal“和"State”。这两个列表框相互依赖。例如,如果我在状态列表框中选择" in“和"mi”,则动物列表框将只显示" in“和"mi”中的动物。
我的问题是,我将行源设置为下面的查询,该查询被分配给动物列表框中的"on click“事件。当我在动物列表框中单击时,它会运行查询,但不再允许我选择任何动物。
如何更改列表框以允许在动物列表框中选择动物?
Private Sub animal_Click()
Dim Q As QueryDef
Dim DB As D
我有一个分隔符字符串,如下所示:"2,3“,它是从我将传递给我的SProc参数的列表框值中获取的:
AddInParameter(dbCommand, "@Mode", DbType.String, 50, DBNull.Value)
If Not String.IsNullOrEmpty(.MemshpT) Then
dbCommand.Parameters("@Mode").Value = .MemshpT 'MemshipT will contain
我有一个名为animal的列表框,行源设置为以下代码,其中查询"animal“是一个直通查询。但是,列表框中不会填充任何动物。注意:如果我将查询"animal“作为独立的直通查询运行,它将正确运行,它不会填充列表框。当单击列表框时,几乎就好像查询没有执行一样。
Private Sub animallist_Enter()
Dim Q As QueryDef
Dim DB As Database
' Use for dynamic SQL statement'
Dim strSQL
有办法从DataRowView中获取整数值吗?我有一个列表框,其中数据源设置为绑定源。我希望能够做到这一点:
dim num as integer
num = lstBox.SelectedValue
但我收到了一个InvalidCastException:
从类型'DataRowView‘到键入'Integer’的转换无效。
我就是这样填写我的列表框的:
myDataAdapter("SELECT CustID FROM Customers", cn)
myDataAdapter.Fill(myDataSet, "Customers")
my
我的程序有3个字段,即标题,开始日期和结束日期的用户输入。我希望用结果填充我的名为"filteredResults“的列表框,该列表框包含的记录的磁贴与用户输入的磁贴相等,或者在日期范围内。
我想知道:
1)如何使用从查询中获得的记录集填充列表框?
2)如何比较查询中的日期?
非常感谢!
Private Sub FilterProj_Click()
Dim title As String, startDate As Date, endDate As Date
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentD
所以我有这个电子表格和几个列表框。在这些列表框中,我有一些实际上是过滤器的值/项。我希望获得每个列表框的每个项/筛选器,以修改代码中的SQL查询。因此,我被要求在列表框中循环,并设法通过循环电子表格的形状来实现它,但最终.现在,这些列表框在VBA中被视为形状,而不再是列表框。我正在寻找一种方法,要么在列表框中转换我的形状,要么从形状类型中找到一种方法来循环每个列表框的项目。这是我的代码的一部分,到目前为止,我循环遍历每个形状/列表框,如果在我的形状名称中有单词"CFRA“,那么我希望在我的列表框中选择的每一项中循环,以便我的函数返回它们。
Private Function getLis
我在MS SQL表格中有两列(ID和Name),我想用它们来填充列表框。我想要显示名称的值(作为别名?)然而,在列表框中,当用户选择项目时,我希望返回ID值,而不是Name值。下面的代码只是将名称列中的值添加到列表框中。
Me.listName.Items.Clear()
Dim strName As String = "select SetName from " & tb
Dim con As String = sConnectionString
Dim com As New SqlCommand(strServiceType, New SqlConne