小编ind*_*ser的帖子

我有一个宏来获取子文件夹数据.但是我也想从主文件夹中获取一些东西.

我看了如何使用vba获取当前工作目录？但需要更改activeworkbook路径:

Application.ActiveWorkbook.Path might be "c:\parent\subfolder"

我想要

"c:\parent\"

使用Excel 365 VBA

编辑:我想我现在有解决方案,但需要做一些更有意义的检查......

DELETE TBLFIRE_TEMP3 FROM TBLFIRE_TEMP3
LEFT OUTER JOIN (
   SELECT MIN(FireNo) as FireNo, ActionRef, FRADate, FIREUPRN
   FROM TBLFIRE_TEMP3 
   GROUP BY ActionRef, FRADate, FIREUPRN
) as KeepRows ON
   TBLFIRE_TEMP3.FireNo = KeepRows.FireNo
WHERE
   KeepRows.FireNo IS NULL

- ###############上一条评论###############

我有一个表有重复(基于三列).我可以通过执行以下操作找到它们并查看它们然后只是想删除重复项(即所有计数(*)结果都是'1')

SELECT COUNT(*),ActionRef, FRADate, FIREUPRN
FROM TBLTempTable
GROUP BY ActionRef, FRADate, FIREUPRN

所以我可以看到这些群体发生的次数.我想要做的是删除重复项.我已经尝试了以下但它删除了每一行,甚至是单数:

DELETE a FROM TblTempTable a JOIN
(
  SELECT ActionRef, FRADate, FIREUPRN
    FROM TblTempTable 
   GROUP BY ActionRef, FRADate, FIREUPRN
) d 
   ON (a.ActionRef = b.ActionRef
  AND a.FRADate = b.FRADate
AND a.FIREUPRN = …

目标:

更改新创建的表中的多个列

我想在代码中修改我想要修改的列,但是在这个例子中我把它切成了一个,没有什么明显我能看到的.我有一个偶数个括号等等.没有超过200个字符长.

码:

DECLARE @tableALTER NVARCHAR(2500)

SET @tableALTER = ' 
(ALTER TABLE ' + @tableName + ' ALTER COLUMN [ID] VARCHAR(200))'
EXEC (@tableALTER) 

使用:

SQL Server Management Studio

错误:

关键字"ALTER"附近的语法不正确.
')'附近的语法不正确.

研究包括:

如何在不删除查询列的情况下更改列的数据类型？

我想从字符串中获取数字,我做了.

我想将此char转换为数据库的任何interger,但会出现以下错误:'/'应用程序中的服务器错误.

输入字符串的格式不正确.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. 

Exception Details: System.FormatException: Input string was not in a correct format.

码:

For Each File As FileInfo In New DirectoryInfo(("C:\Folder")).GetFiles("*.aspx", SearchOption.AllDirectories)
    vFileName = File.FullName
                    Dim myChars() As Char = vFileName.ToCharArray()
                    Dim iChar As Integer = Convert.ToInt32(myChars)
                    iChar = Mid(1, 1, iChar)