小编log*_*gan的帖子

如何在VBA中将记录集读取为字符串

我有一些代码可以从数据库中读取记录。当我阅读时,recordset变量将表值修改为其自己的格式。例如:

在数据库中

时间值为12345(不是日期和时间),但是当记录集读取它时,它的出现例如:23-06-2012 10:15:23

我只是发现记录集本身在执行后以其自己的格式存储值。

Set rs = CmdSqlData.Execute()

那么有什么方法可以将记录集定义为String

这是代码。

Dim rs As ADODB.RecordSet
Set rs = CmdSqlData.Execute()
Do While (rs.EOF = FALSE And rs.BOF = FALSE)
  p = rs.GetRows(1)
  cell(1,1) = p(0,0)
Loop
Run Code Online (Sandbox Code Playgroud)

任何人都可以让我知道如何以String形式读取数据(因为它在数据库中),以便不会发生格式更改。

注意:由于其他要求,我无法转换Excel单元格格式,但我想将所有内容读取为表中的字符串

excel vba recordset excel-vba

4
推荐指数
1
解决办法
4421
查看次数

根据屏幕分辨率调整工作表缩放级别

我有一个Excel 2003宏来根据屏幕分辨率调整我的屏幕缩放.

Sub Macro1()
   Dim maxWidth As Long, myWidth As Long
   Dim myZoom As Single

   maxWidth = Application.UsableWidth * 0.96
   'I use r because upto r i have macro buttons
   myWidth = ThisWorkbook.ActiveSheet.Range("r1").Left
   myZoom = maxWidth / myWidth
   ActiveWindow.Zoom = myZoom * 100
End Sub
Run Code Online (Sandbox Code Playgroud)

当我在Excel 2003中尝试时,按钮大小及其标题不能正确缩放.而且Application.UsableWidth总是返回1026的宽度无论是屏幕分辨率1024*768或1366*768.有任何想法吗?

如果在任何系统屏幕分辨率下打开,我希望Excel工作表适合宽度

excel vba excel-2003 excel-vba screen-resolution

4
推荐指数
2
解决办法
2万
查看次数

HTML表格单元格背景图像对齐

我需要将表格单元格的背景图像对齐为

垂直方向顶部 - 右侧水平方向

但它显示为,

垂直中心; 在水平方向

请看这个页面:http://www.chemfluence.org.in/monetarist/index_copy.php

这是我的代码,

<td width="178" rowspan="3" valign="top" 
align="right" background="images/left.jpg" 
style="background-repeat:no-repeat;background-position:right;">
</td>
Run Code Online (Sandbox Code Playgroud)

如果我使用background-position:Top; 它是水平居中对齐,请告诉我哪些应该更正.

html css

4
推荐指数
2
解决办法
10万
查看次数

将命令输出的错误消息存储到shell变量中

我试图将复制命令的错误消息存储到变量中.但它没有发生

Unix命令

log=`cp log.txt`
cp: missing destination file operand after `log.txt'
Try `cp --help' for more information.

echo $log

<nothing displayed>
Run Code Online (Sandbox Code Playgroud)

我想将上面的错误消息存储到变量中,以便我可以随时回应它

unix bash shell

4
推荐指数
1
解决办法
1913
查看次数

使用 CDK 创建自定义 AWS IAM 策略

根据文档:https : //docs.aws.amazon.com/cdk/api/latest/docs/@aws-cdk_aws-iam.Policy.html

我可以创建自己的策略并附加到角色,但它不会创建新策略,而是作为内联策略附加到角色。我想使用 arn 创建自定义策略,以便我可以附加到我想要的其他角色

我尝试过的事情

new Policy(..)
new iam.PolicyStatement()
addStatements()
attachToRole()
Run Code Online (Sandbox Code Playgroud)

请让我知道如何创建自定义托管策略

amazon-web-services aws-cloudformation amazon-iam aws-cdk

4
推荐指数
1
解决办法
1887
查看次数

致命错误:从网站执行每日运行时,超过30秒的最大执行时间

我正在使用来自网站供应商的phpMyAdmin。

看来我无法编辑php.ini设置页面。所以在哪里设置ini_set('max_execution_time',300); ?在我的PHP编码页面中?或任何设置页面?

php phpmyadmin

3
推荐指数
1
解决办法
5402
查看次数

在Shell脚本变量中搜索字符串

我有一个shell脚本变量

$a = "Hello i am pass"
Run Code Online (Sandbox Code Playgroud)

现在我想pass在变量中搜索" " $a.

if ["$a" == "pass"]; then
echo "`Success`" 
else 
echo "`fail`"
fi
Run Code Online (Sandbox Code Playgroud)

请给我一个shell脚本,用于在上面的代码中搜索pass关键字.

unix shell

3
推荐指数
3
解决办法
7万
查看次数

如何使用VBA sendkeys打印或发送大括号()

我有以下代码,不发送大括号.

sendkeys "a=$(script.sh)",true
Run Code Online (Sandbox Code Playgroud)

但它发送为= $ script.sh

大括号不见了.

excel vba excel-vba

3
推荐指数
1
解决办法
1941
查看次数

awk 命令中不能使用“(”

我尝试在 Linux 机器中执行 awk 命令,但它抛出错误。

awk -F "VALUES(" '{print $2}'
Run Code Online (Sandbox Code Playgroud)

错误 :

awk: fatal: Unmatched ( or \(: /VALUES(/
Run Code Online (Sandbox Code Playgroud)

我也尝试过使用反斜杠,它也不起作用。

awk -F "VALUES\(" '{print $2}'

错误 :

awk: warning: escape sequence `\(' treated as plain `(' 
awk: fatal: Unmatched ( or \(: /VALUES(/
Run Code Online (Sandbox Code Playgroud)

请让我知道如何在 awk 搜索字符串中包含 (。

regex unix linux awk

3
推荐指数
1
解决办法
2456
查看次数

在WHERE子句和JOIN条件中使用过滤条件有什么区别

假设我有任何连接类型的跟随加入查询(INNER/LEFT/RIGHT/FULL)

SELECT E.id, D.name, E.sal from EMP E
INNER/LEFT/RIGHT/FULL JOIN DEP D
ON E.id = D.id
AND E.sal > 100
Run Code Online (Sandbox Code Playgroud)

另外,我有与WHERE条件类似的查询

SELECT E.id, D.name, E.sal from EMP E
INNER/LEFT/RIGHT/FULL JOIN DEP D
ON E.id = D.id
WHERE E.sal > 100
Run Code Online (Sandbox Code Playgroud)

以上查询的唯一区别是在JOIN和WHERE条件中使用E.sal> 100.

在哪种情况下,上述查询会有不同的结果 或者两者都一样吗?

sql

3
推荐指数
1
解决办法
639
查看次数