小编Lyn*_*hie的帖子

嗨我下面有一些代码,我希望在执行SQL语句时返回结果标识号.

set objCnn = Server.CreateObject("ADODB.connection")

CurrMachine = "my-test-box"

ObjCnn.Open("Provider=SQLOLEDB;Persist Security Info=False;User ID=Test;password=Test123;Language=British;Initial Catalog=TestDB;Data Source=" & CurrMachine)

strSQL = "INSERT INTO dbo.xyz" & _ " (field) " & _ " VALUES  (" & date & ")" & _ " SELECT @@Identity "

objCnn.Execute strSQL

我添加了SELECT @@ Identity,当我在SQL中执行此操作时将返回唯一的ID号.如果我响应.write strSQL我得到SQL字符串而不是结果文本.

干杯!

编辑

理查德

    set objCnn = Server.CreateObject("ADODB.connection")

    CurrMachine = "my-test-srv"

    ObjCnn.Open("Provider=SQLOLEDB;Persist Security Info=False;User ID=Test;password=Test123;Language=British;Initial Catalog=Test;Data Source=" & CurrMachine)

        strSQL = "INSERT INTO xyz" & _
                " ([date])" & _
                 " VALUES  ( " …

昨天将旧的 .NET Framework 项目转换为 .NET Core 3.1。该应用程序在我自己的机器上运行良好并且调试正确。

我已将以下内容放入我的 .vbproj/.csproj 中

<PublishSingleFile>true</PublishSingleFile>
<RuntimeIdentifier>win81-x64</RuntimeIdentifier>

但是，当我将 .EXE 移动到远程计算机并尝试在该远程计算机上运行所述 EXE 时，我被告知该 DLL（针对相关项目）不存在。

我将 .dll 移至 exe 所在的同一目录（不理想），但出现以下错误

A fatal error was encountered. The library 'hostpolicy.dll' required to execute the application was not found in 'C:\Program Files\dotnet'.

我曾经使用 Costura.Fody 创建单个文件 exe，在 .NET Framework 中没有任何问题，我的印象是上面的方法会对 .NET Core 包执行相同的操作。

有人可以指出我正确的方向吗？

我怎样才能转换

2016-01-20T14:27:36.270239Z

到 SQL 日期时间？

我努力了

CAST('2016-01-20T14:27:36.270239Z' AS datetime)

但收到转换错误。

干杯

我正在使用 SSH.NET SFTP 功能将文件上传到 SFTP。我已将其写入函数中，但是我遇到的问题是在上传完成后，我尝试移动原始文件，但文件正在被另一个进程使用。

我知道这是上传过程，没有释放文件，因为我已经注释掉了上传功能，一切都按预期进行。

任何关于我的代码的关于我的问题的指示将不胜感激。

Private Function UploadFile(ByVal file As String, ByVal branch As String, ByVal policyref As String) As Boolean

    Dim connInfo As New ConnectionInfo("abc:22", "guestuser", New PasswordAuthenticationMethod("guestuser", "password"))

    Using client As New SftpClient(connInfo)

        client.Connect()
        If client.IsConnected Then
            Console.WriteLine("Connected to sFTP")
        End If

        Dim fileStream As New FileStream(file, FileMode.Create)

        client.UploadFile(fileStream, "/Test/" & Path.GetFileName(file))

        If client.Exists("/Test/" & Path.GetFileName(file)) Then
            Console.WriteLine("File Uploaded - " & Path.GetFileName(file))
            UpdateFTPLog(branch, policyref)
            Return True
        End If

        client.Disconnect()
        client.Dispose()

    End Using

    Return False
End …

我有一个 For Each 语句，它检查多个目录并调用一个检查文件夹一致性（文件夹名称等）的函数。

如果发现错误，该函数返回 true，如果布尔值返回 True 以继续 For Each 语句中的下一个“行”，那么最好的解决方案是什么？

最好使用On Error GoTo <Label>，然后在“下一步”进行“恢复”呼叫？

我正在尝试从大量未使用的代码中减少一个程序，我正在成功地执行这些代码，并希望以不损害每个进程的紧凑方式执行此操作。

我已经重做了这个问题，因为有几个建议很难理解我的意思，因此稍微减少了这个问题。

<?xml version="1.0"?>
<root>
    <succesfulResponses>
        <position>0</position>
        <response>
            <dln>BBUTU204250VS9VT</dln>
            <licence>
                <entitlements>
                    <code>A</code>
                    <validFrom/>
                    <validTo/>
                    <priorTo>false</priorTo>
                    <type>F</type>
                </entitlements>
                <entitlements>
                    <code>B</code>
                    <validFrom/>
                    <validTo/>
                    <priorTo>false</priorTo>
                    <type>F</type>
                </entitlements>
            </licence>
        </response>
    </succesfulResponses>
    <succesfulResponses>
        <position>1</position>
        <response>
            <dln>BTXRS755313Y99AT</dln>
            <licence>           
                <entitlements>
                    <code>A</code>
                    <validFrom>2003-02-28</validFrom>
                    <validTo>2043-05-30</validTo>
                    <priorTo>false</priorTo>
                    <type>P</type>
                </entitlements>
                <entitlements>
                    <code>AM</code>
                    <validFrom>2014-05-14</validFrom>
                    <validTo>2043-05-30</validTo>
                    <priorTo>false</priorTo>
                    <type>P</type>
                </entitlements>
            </licence>
            <httpStatusCode>200</httpStatusCode>
        </response>
    </succesfulResponses>
</root>

这是我返回的XML，我向服务提交了多个ID，它返回了该XML。

如果我发送2个ID，则为每个ID返回2个“ successfulResponses”元素，您可以在“响应”下面的子节点“ dln”中看到这些ID，您会发现它们是不同的。

“位置”就是我首先在“请求”中提交的ID。“响应”还具有一个称为“许可证”的元素和多个“授权”元素。

我希望将这些“权利”插入以这种方式格式化的数据表中

    Results.EntitlementsTbl.Columns.Add(New DataColumn("Code", GetType(String)))
    Results.EntitlementsTbl.Columns.Add(New DataColumn("Valid From", GetType(String)))
    Results.EntitlementsTbl.Columns.Add(New DataColumn("Valid To", GetType(String)))
    Results.EntitlementsTbl.Columns.Add(New DataColumn("Prior To", GetType(String)))
    Results.EntitlementsTbl.Columns.Add(New DataColumn("Type", GetType(String)))
    Results.EntitlementsTbl.Columns.Add(New DataColumn("Driver", GetType(String)))

每列都与每个“权利”元素下方的节点相关。每当我有一个“权利”元素时，我都希望在数据表中添加一个新行。

还有一个附加的“驱动程序”列，需要在“位置”中填充数字。

所以我的输出到我的表我想有以下内容： …

我已经编写了一个函数,只是为了解决Pro-Rata Clawback的问题.

但是每次运行时我都会得到一个Divide By Zero Error,我简单地将功能打破了.

DECLARE @ProRataAmount DECIMAL(8,2), @DaysRemaining INT,@NetValue DECIMAL(8,2), @TimeOnRisk INTEGER

SET @NetValue = 29.00
SET @TimeOnRisk = 8

SET @DaysRemaining = (365 - @TimeOnRisk)

PRINT @DaysRemaining
PRINT @NetValue

SELECT @NetValue / (@DaysRemaining/365)

那里没有值除以零,那么为什么它会返回错误？

干杯.

我不得不从许多年前业务中的某个人那里找到老化的短信系统.

它是使用ASP classic构建的,并将一个字符串发送到一个API,然后将其发送出去,所有这些既不在这里也不在那里.我遇到的问题是没有JS经验,我是SQL开发人员,几年前做过一些ASP Classic(VBScript).

这段JScript从几个表单框中获取信息,然后将它们放在一个字符串中,然后将其传递给处理页面上的变量以进行文本输出.字段'QValue,Indemnity和Excess'都是数字.封面是文本,它正在用'NaN'替换封面文本,现在我明白这是'非数字',这正是它的原因,而不是数字,但我想要文本字符串.

以下是有问题的代码片段:

<script type="text/javascript">
function changeMessageText()
{

var messagetxt = document.getElementById('message').value

var QValue = document.getElementById('QValue').value
var Cover = document.getElementById('Cover').value
var Excess = document.getElementById('Excess').value
var Indem = document.getElementById('Indemnity').value

var messagetxt=messagetxt.replace("[QValue]", + QValue)
var messagetxt=messagetxt.replace("[Cover]", + Cover2)
var messagetxt=messagetxt.replace("[Excess]", + Excess)
var messagetxt=messagetxt.replace("[Indem]", + Indem)

document.getElementById('messageText').innerHTML = messagetxt;

}
</script>

干杯.

如何在不同用户之间划分每4行数据.

即

Number

1
2
3
4
5
6
7
8

然后运行一个查询,以便我得到以下格式:

Number | User 
1      | joe
2      | jim
3      | gill
4      | jack
5      | joe
6      | jim
7      | gill
8      | jack

等等

UPDATE

我的代码最终成为(T-SQL/SQL 2008)

SELECT CASE 
    WHEN ROW_NUMBER() OVER(ORDER BY number) % 4 = 1 THEN 'joe'
    WHEN ROW_NUMBER() OVER(ORDER BY number) % 4 = 2 THEN 'jim'
    WHEN ROW_NUMBER() OVER(ORDER BY number) % 4 = 3 THEN 'gill'
    WHEN ROW_NUMBER() …

如果我改变了这个CASE语句的逻辑,我正在运行一些旧代码:

                CASE WHEN ClaimNo.ClaimNo IS NULL THEN '0'
                     WHEN ClaimNo.ClaimNo = 1 THEN '1'
                     WHEN ClaimNo.ClaimNo = 2 THEN '2'
                     WHEN ClaimNo.ClaimNo = 3 THEN '3'
                     WHEN ClaimNo.ClaimNo = 4 THEN '4'
                     ELSE '5+'
                END AS ClaimNo ,

如果我改为:

                CASE WHEN ClaimNo.ClaimNo >= 5 THEN '5+'
                ELSE COALESCE(ClaimNo.ClaimNo,0) END 'ClaimNo' ,

该声明在技术上会更快吗？它作为一个语句显然要短得多,并且似乎不会运行尽可能多的语句来获得相同的结果.