标签: ms-access-2007

如何在c#中使用密码打开MS Access 2007数据库？

我试过这个: Conn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\BioDB.mdb ;Password=1966;");

但它不起作用.

我在Access 2007数据库中有一个表.所有字段都是文本类型.可以使用where子句完成以下操作吗？如果是这样的话？

• SELECT*来自Table1 WHERE(ColumnDate介于2010年3月26日至19日)
• SELECT*来自Table1 WHERE(ColumnAge介于25和40之间)

通常的<=运算符似乎不起作用.

谢谢,

我正在使用Access 2007并拥有这样的数据模型......

乘客 - 预订 - 目的地

因此,1名乘客可以进行多次预订,每次预订1个目的地.

我的问题...

我可以创建一个表单以允许输入乘客详细信息,但是我想添加一个下一个按钮来带我到表单输入预订的详细信息(即只是一个简单的目的地下拉列表).我添加了NEXT按钮,它有事件

RunCommand SaveRecord
OpenForm   Destination_form

但是,我无法确定如何将新表格传递给刚刚输入的乘客的主要钥匙(PassengerID).

我真的只想要一个表格,并允许输入乘客的详细信息和目的地的选择,然后在2个表格(乘客和预订)中创建条目,但我不能得到工作要么.

有人可以帮帮我吗？

谢谢Jeff Porter

假设我有两个表,一个用于事务,另一个表的主键是第一个表中的外键,这种关系只是将位置与事务相关联.

我有一个带有列表框的表单,其中显示了所有可能的位置,以便用户可以打开一些仅与给定位置相关的仪表板表单.所以我知道如何将数据从选择传递到仪表板,但我现在希望用户能够从第一个列表中选择多个位置.

所以,如果我使用SQL语句,WHERE子句就像

 .... WHERE LocationID = " & me.lstLocations.value & ";"

但是我如何将这种方法等同于选择多个选择呢？我确信有一些类型的循环逃脱了我.

谢谢贾斯汀

我发现这个视频显示了如何连接到访问数据库:

http://www.youtube.com/watch?v=ujJ4H9RpC7c

我的问题是:是否可以以编程方式创建ODBC数据源？

或者从命令行或类似的东西？

谢谢

我正在MS Access中编写调查(数据输入)表单.我需要在表单上的标签中动态显示问题表中的所有问题.这些问题标签中的每一个都将附有一个组合框,可以显示可能的答案.

如何动态地向表单添加标签？

Access已保存使用名为"myQuery"的查询构建器设计的查询.数据库通过ODBC连接连接到系统.宏全部启用.

Excel已建立ADODB连接以通过连接到数据库

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
With con
 .Provider = "Microsoft.ACE.OLEDB.12.0"
 .Open "MyDatabase.accdb"
End With

通常你会继续编写你的SQL,这完全没问题,然后就像做一样

Dim sqlQuery As String
sqlQuery = "SELECT * FROM myTable"
Set rs = New ADODB.Recordset
rs.Open sqlQuery, con, ...

但我想访问我在访问数据库中保存的查询.那么如何在刚刚连接的数据库中调用已保存的查询.

已经尝试过

1. con.Execute("EXEC myQuery")但是那个人告诉我它无法找到myQuery.
2. rs.打开"myQuery",con但是那个是无效的并且需要SELECT/etc语句

我试图在Access 2K7数据库中做一些更通用的东西.我有一个表单,我将一些信息传递给使用OpenArgs.我正在传递表单名称,子表单名称和字段名称,因此可以填充该字段.

我遇到了"重建"对该领域的引用的麻烦.我试过以下,但VBA不喜欢它:

Dim strForm, strField, strSubForm As String
Dim frm As Form

strForm = Left(Me.OpenArgs, InStr(Me.OpenArgs, "|") - 1)
Brk1 = Mid(Me.OpenArgs, InStr(Me.OpenArgs, "|") + 1)
strField = Left(Brk1, InStr(Brk1, "|") - 1)
strSubForm = Mid(Brk1, InStr(Brk1, "|") + 1)

X = "Forms!" & strForm
Y = X & "!" & strSubForm
Z = Y & "!" & strField
frm(Z) = Me.Calendar0.Value

这个练习的目的是将日历的值(Me.Calendar0.Value)传递给子表单上的字段(Forms!strForm!strSubForm!strField).我只是无法弄清楚如何以VBA接受它的方式编写它.我得到一个"对象变量或没有设置块变量"错误.

我试图将excel工作表调用到函数但是我收到错误 438 "OBJECT DOESN'T SUPPORT THIS PROPERTY OR METHOD"

下面的代码调用applyStyle1

Dim wkb7 As Excel.Workbook
Set wkb7 = Excel.Application.Workbooks.Open(strDir&"\NEXTDAY.xls")
wkb7.ActiveSheet.Cells.Select
Selection.Copy
Set wks7 = wkb.Sheets.Add

applyStyle1 (wks7)

功能:

Function applyStyle1(wksContainer As Excel.Worksheet)
     With wksContainer
              ......
     End With
End Function

当函数调用被函数中的代码替换时,此代码有效,但由于它被多次调用,我需要它在函数中而不是复制代码.感谢您的时间,如果您需要更详细的解释,请告诉我.

我有一组十进制数,我需要将它们舍入到最接近7的数字.

例如:

0.45 --> 0.47
4.70 --> 4.67
6.49 --> 6.47
8.32 --> 8.37

我可以使用Excel或Access(基本上是VBS).

我只能抓住2位小数,将其转换为整数(*100),然后应用舍入规则,然后预先挂起原始值的整数值.

例如:

0.45 --> 45 --> 47 --> 0.47
4.70 --> 70 --> 67 --> 4.67
6.49 --> 49 --> 47 --> 6.47
8.32 --> 32 --> 37 --> 8.37

我尝试过舍入公式:

Let N represent the nearest number to round to.
Let X represent the input number.
output = ROUND(X / N, 0) * N

然而,这并没有给出预期的结果.

例如:

0.45 --> ROUND(45 / 7, 0) * 7 --> …