我正在尝试使用此方法在EJB3应用程序中接收邮件.简而言之,这意味着使用以下注释创建MDB:
@MessageDriven(activationConfig = { @ActivationConfigProperty(propertyName = "mailServer", propertyValue = "imap.company.com"),
@ActivationConfigProperty(propertyName = "mailFolder", propertyValue = "INBOX"),
@ActivationConfigProperty(propertyName = "storeProtocol", propertyValue = "imap"),
@ActivationConfigProperty(propertyName = "debug", propertyValue = "false"),
@ActivationConfigProperty(propertyName = "userName", propertyValue = "username"),
@ActivationConfigProperty(propertyName = "password", propertyValue = "pass") })
@ResourceAdapter("mail-ra.rar")
@Name("mailMessageBean")
public class MailMessageBean implements MailListener {
public void onMessage(final Message msg) {
...snip...
}
}
我有这个工作,但情况不太理想:主机名,用户名和密码是硬编码的.如果没有使用ant和build.properties在编译之前替换这些值,我不知道如何外化它们.
使用MBean是理想的,但我不知道如何从MBean获取值到MDB配置.
我该怎么做？
我想在POST调用中的列表中发送一些字符串.例如:
www.example.com/?post_data = A list of strings
python代码将数据作为单个字符串(而不是字符串列表)接收.如何将其作为字符串列表发布？
我希望有人可以帮助我 - 我在基于EJB/JMS的应用程序中使用JBoss 5.1和MQ Series 7.我的应用程序中有几个消息驱动的bean,每个bean都在MQ Series消息队列上进行监听.当在处理消息期间遇到错误时,我需要能够配置"重试延迟",以便mq系列在尝试重新传递消息之前等待一段时间.我已经广泛地梳理了MQ系列文档,并且还没有找到在MQ系列中实现这一目标的方法.我知道JBoss默认的JMS提供程序有办法实现这一点,但我目前仅限于使用MQ Series.由于我无法设置重试延迟 - 当我的消息失败时,我的应用程序会陷入紧急循环,传递消息并不断回滚.任何人都可以帮助我理解MQ系列中是否有一些配置选项允许我在重新发送失败的消息之前等待X毫秒？
使用其中一个新排序顺序创建的数据库即使安装了Service Pack 2(SP2)也无法在Access 2007中打开.
我正在使用Access 2007,可以按如下方式复制此行为.
1)创建新的访问数据库accdb文件.
2)打开数据库并创建新的vba模块.
3)创建第一个子程序sub1:
Sub sub1()
Msgbox Err.Description
End Sub
4)创建第二个子程序sub2:
Sub sub2(Description as String)
Msgbox Description
End Sub
此时一切正常.
5)但是如果我去改变sub2以便'Description'读取'description',即将'D'改为'd',如下所示:
Sub sub2(description as String)
Msgbox description
End Sub
这也有连锁效应,也改变了sub1!所以sub1现在读取:
Sub sub1()
Msgbox Err.description
End Sub
为什么'Err.Description'改为'Err.description'？
这种行为似乎对代码的实际功能没有影响,所以没有问题.我遇到的一个大问题是我将我的vba模块导出为文本文件并将它们置于SVN控制之下.最近,由于这个原因,已经将大量无意义的"更改"提交到存储库.
关于如何阻止这种情况发生的任何想法？
我不是Access专家,我有一个(我希望!)简单的问题......
我有一个包含许多记录的表格.在一些文本框中,我只显示基础表中的值 - 因此它们绑定到相应的字段.
但是一些文本框应该包含计算值.有些计算很复杂,涉及表中的许多字段.我把计算写成VBA函数.我可以输入类似"控制源"的内容:
=MyFunction([Field1], [Field2], [Field3] ...)
但我不想在函数调用中列出几十个字段.相反,我想将整个表单(或当前记录)作为参数发送,并让函数引用它需要的字段.我可以这样做:
=MyFunction([Forms]![MyForm])
但我不喜欢在通话中命名表格.有没有办法将"当前形式"作为函数参数发送？在VBA中,您只需使用"Me"关键字,例如"Me![Field1]".但似乎表达中并未接受"我".
还有其他方法可以在表达式中引用当前表单吗？
(这是一个美化问题,我知道.但是使用"[Form]![MyForm]"并不是很好的编程.稍后你将控件复制到另一个表单并忘记更改表达式中的名称...)
感谢你的帮助!:-)
/安德斯
还有人在这里还在编程VBA吗？
我正试图让这段代码工作
Private Sub button3_click()
'hide main buttons
button1.Visible = False
button2.Visible = False
button3.Visible = False
'show submenu buttons
button4.Visible = True;
button5.Visible = True;
End Sub
我要做的基本上是我有一个主窗体,有5个主按钮控件.其中2个在启动时隐藏.因此,当我单击按钮3时,我想隐藏前3个主按钮,并"取消隐藏"其他两个按钮.尝试执行此事件时,出现错误
" 运行时错误2165 - 您无法隐藏具有焦点的控件 ".
以前有人遇到过这方面的编程吗？我确信这是可行的.我只是不明白这里出了什么问题......
我以为我可以从我的伴侣对象访问伴侣类的每个方法.但我不能？
class EFCriteriaType(tag:String) extends CriteriaType
{
// implemented method of CriteriaType
def getTag = this.tag
}
object EFCriteriaType
{
var TEXT: CriteriaType = new EFCriteriaType("text")
override def toString = getTag
}
编译器错误:找不到:值getTag
我做错了什么？
我需要能够创建一个newarray并将其分配给another2darray(atsomeelement)
例
array1(0) = 1
array1(1) = 2
现在
array2(0) = array1
因此
array2(0)(0) = 1
array2(0)(1) = 2
现在我想创建一个新数组并为其分配array2的1d.
newarray = array2(0)
因此
newarray(0) = 1
newarray(1) = 1
我无法在VBA代码中执行此操作.
下面的代码段,如果您注释掉我尝试分配的最后一个部分,则array2(1)有效arraynew.
Function test()
Dim array1(0 To 20) As String
Dim array2(0 To 5) As Variant
Dim count As Integer
For count = 0 To UBound(array1)
array1(count) = count
Next count
'now that array1 is filled i want to insert it into array2(1)
array2(1) = array1 …