Crystal版本 - Crystal Reports 2008 Business Objects - XI
我编写了一个查询来填充子报表,并希望根据用户的输入将参数提取到该查询.我的问题是,我需要在'Where'子句的第一行接受参数的正确语法是什么?
这是我在Crystal Reports中使用的查询:
Select
Projecttname,
ReleaseDate,
TaskName
From DB_Table
Where
(Project_Name like {?Pm-?Proj_Name})) and
(ReleaseDate) >= currentdate
Run Code Online (Sandbox Code Playgroud) 我使用此链接中提供的以下建议: 专家交流
我正在尝试获取服务器(主机名)列表并将主机名和IP地址保存在.csv文件中.
使用以下Powershell代码,我会在结果窗格中看到每个服务器的主机名,但IP地址相同.
$servers = get-content "C:\TEMP\servers.txt"
$serversAndIps = "C:\TEMP\List_of_servers_with_ips.csv"
$results =@()
foreach ($server in $servers) {
$results =@()
$result = "" | Select ServerName , ipaddress
$result.ipaddress = [System.Net.Dns]::GetHostAddresses($server)
foreach($a in $addresses) {
"{0},{1}" -f $server, $a.IPAddressToString
}
$result.servername = $server
$results += $result
}
$results | export-csv -NoTypeInformation $serversandips
Run Code Online (Sandbox Code Playgroud)
当我打开.csv文件时,我得到了这个:
"ServerName","ipaddress"
"Server_name_1","System.Net.IPAddress[]"
Run Code Online (Sandbox Code Playgroud)
如果我运行此PowerShell脚本,我可以在结果窗格中获取主机名和正确的IP地址.我只需要知道如何将结果传输到.csv文件.
$servers = get-content "C:\TEMP\servers.txt"
foreach ($server in $servers) {
$addresses = [System.Net.Dns]::GetHostAddresses($server)
foreach($a in $addresses) {
"{0},{1}" -f $server, $a.IPAddressToString
}
}
Run Code Online (Sandbox Code Playgroud)
有什么建议?
我希望在 t-SQL (MS SQL SMS) 中运行一个查询,该查询将在 X 秒后停止。说 30 秒。我的目标是在 6 分钟后停止查询。我知道查询不正确,但想给你一个想法。
Select * from DB_Table
where (gatedate()+datepart(seconds,'00:00:30')) < getdate()
Run Code Online (Sandbox Code Playgroud) 我正在连接到Oracle数据库并且连接正常,但是我对某些列收到以下错误:
Description: Column "RESOURCE_NAME" cannot convert between unicode
and non-unicode string data types.
Run Code Online (Sandbox Code Playgroud)
RESOURCE_NAME的价值:
VARCHAR2(200 BYTE) VARCHAR(200 BYTE)我可以通过Oracle SQL Developer连接到Oracle DB而没有任何问题.另外,我有SSIS包设置Run64BitRuntime = False.
有没有人知道是否有加载项或者除了键盘快捷键之外还有哪些地方可以保存常用的SQL查询?我想将这样的查询保存到"收藏夹"位置,以便我可以在需要时引用它.我想改变'Where'标准c.name LIKE '%%'.这就是键盘快捷键不起作用的原因.
PS:我的数据库没有SA或管理员权限.
SELECT
t.name AS table_name,
SCHEMA_NAME(schema_id) AS schema_name,
c.name AS column_name
FROM
sys.tables AS t
INNER JOIN sys.columns c ON t.OBJECT_ID = c.OBJECT_ID
WHERE
c.name LIKE '%%'
ORDER BY schema_name, table_name;
Run Code Online (Sandbox Code Playgroud) 我正在运行 Microsoft 评估和规划工具包 (9.0.135.0) 并清点我的数据库,但我找不到结果的“数据库”。如果我在 C: 驱动器上搜索“数据库”名称,则不会得到任何结果。
有谁知道“数据库”在哪里?
我试图从一个表中提取一个ID号和名称,该表检查另一个表中是否存在相同的ID号.我收到错误:
子查询返回的值超过1.
以下是我的查询.
Select Table1.ID,
Table1.Name
From Table1
Where Table1.ID not in ((select (Table2.ID)
from Table2 )
COLLATE SQL_Latin1_General_CP1_CS_AS)
Run Code Online (Sandbox Code Playgroud) 我尝试了以下代码的多种变体,但我仍然得到相同的结果.我想让最后一行"问题描述:......"出现在一个新行上.
我试过vbCrLf,vbCr和&Environment.NewLine&_这些都没有用.
有没有人有任何建议?
只需注意:其他电子邮件格式正确.此外,如果我在"问题标题"行的末尾添加2个vbCr(s),那么它看起来很正常.
特别是这一点似乎是我身边的一根刺.
结果:

代码:
Dim mail As New MailMessage()
Dim strbody As String
strbody = Nothing
'set the addresses
mail.From = New MailAddress("email.address@server.com")
mail.[To].Add(Email_Add)
'set the content
mail.Subject = Issue_Num & " Issue has been created."
strbody = "Your issue has been created." & vbCr & vbCr
strbody += "The Issue Team has received the following issue: " & vbCrLf
strbody += "Issue ID: " & Issue_Num & vbCrLf
strbody += "Issue Title: " & Email_Summary & …Run Code Online (Sandbox Code Playgroud) 我正在尝试获取两个不同表的资源列的不同计数,然后显示每个项目 ID 的比较。现在,此查询为我提供了两个表的相同计数值。
select
t1.PRJCT_ID,
count(t1.RSRC_ID) as TBL1_RSRC_CNT,
t2.PRJCT_ID,
count(t2.RSRC_ID) as TBL2_RSRC_CNT
from
DATA_TABLE_1 t1
LEFT OUTER JOIN
DATA_TABLE_2 t2 on t1.PRJCT_ID = t2.PRJCT_ID
GROUP BY
t1.PRJCT_ID, t2.PRJCT_ID
order by 1
Run Code Online (Sandbox Code Playgroud) 我想在 InfoPath 2007 中向消息框添加是/否功能(您确定要退出吗?)。如果用户单击“是”,InfoPath 表单将关闭,如果不是,则用户将返回到形式。从我所读到的,这不会发生在 InfoPath 中。因此,我添加了一个具有是/否按钮的新窗口窗体。
对于“否”按钮,我有 (me.close) 关闭窗口窗体,用户留下 InfoPath 窗体。当用户单击“是”意味着他们想要关闭 Windows 窗体和 InfoPath 窗体时,我需要帮助。以下是我到目前为止的代码。提前谢谢了。
Imports Microsoft.Office.InfoPath
Imports System
Imports System.Xml
Imports System.Xml.XPath
Imports System.Diagnostics
Public Class Confirm_Close
Private Sub btnNo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNo.Click
Me.Close()
End Sub
Private Sub btnYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYes.Click
Try
<need help here>
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class
Run Code Online (Sandbox Code Playgroud) 我有一个VBA模块,可以根据MS Access临时表创建2个Excel电子表格.
每次创建第二个Excel电子表格时,都会出现一个Excel兼容性检查器弹出窗口.我希望每次循环运行时在这个弹出窗口中自动"点击""继续".我该怎么做呢?
请参阅'Add step to click (Continue) button on pop-up window以下代码中的部分:

Function ADMIN_Resource()
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Set cn = CurrentProject.Connection
Dim rowcount As Long
Dim tblcount As Integer
Dim i As Integer
DoCmd.SetWarnings False
'*****************************************************************************************************************************************************************
' Data pull from source ACCESS DB
'*****************************************************************************************************************************************************************
'On Error GoTo ErrorHandler
'Pull in all data from ACTUAL_ADMIN_TABLE into Main Temp Table
SQL = "SELECT Project_ID, Resource_ID, Allocation_Year, Jan, Feb, Mar, Apr, May, " & …Run Code Online (Sandbox Code Playgroud) sql ×4
sql-server ×4
t-sql ×3
vb.net ×2
access-vba ×1
csv ×1
excel ×1
excel-vba ×1
infopath ×1
inventory ×1
ms-access ×1
oracle ×1
powershell ×1
smtpclient ×1
ssis ×1
ssms ×1
unicode ×1
vba ×1