小编Ran*_*dal的帖子

在SQL Case语句中正确使用嵌套的Case语句

下午好,

我目前通过一些PostgreSQL代码工作和翻译过来到SQL(最如果它是非常简单的),但我碰到的情况下,声明是在它的数组,并不能找出正确的语法,因为我从来没有见过一个之前以这种方式使用的case语句.

我已经快速举例说明了我正在尝试做什么,但它仍然会抛出语法错误:

Select field3, field 4, 
Case 
    When field in (1, 3, 7) then 1
    When field in (2, 4, 6) then 2
    When field in (5, 9) then 3
    When field is null or ' ' then 4
Else
Case
    When field2 = x then 1
    When field2 = y then 2
Else End
End as fieldname
Run Code Online (Sandbox Code Playgroud)

这是原始代码,所以你可以看到我正在编辑的内容.案例陈述是(据我之前提到的,我从未使用过这种方式的案例),使用2个字段来获得所需的结果.请注意我最初没有写这个,只是将它从postgresql移植到t-sql.

CASE 
    WHEN rank IN (1,7,9) THEN  '1'
    WHEN rank IN (2,5,10) THEN '2' 
    WHEN rank IN (3,6) THEN '3'
    WHEN …
Run Code Online (Sandbox Code Playgroud)

sql sql-server sql-server-2008

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

使用VBA将Excel工作表导入Access

我正在尝试使用一些简单的VBA代码将Excel电子表格导入Access.我遇到的问题是Excel文件中有2个工作表,我需要导入第2个工作表.是否可以在VBA代码中指定所需的工作表?

Private Sub Command0_Click()

Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogFilePicker)

With dlg
.Title = "Select the Excel file to import"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Excel Files", "*.xls", 1
.Filters.Add "All Files", "*.*", 2

If .Show = -1 Then
StrFileName = .SelectedItems(1)
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "COR Daily", StrFileName, True
Else
Exit Sub
End If
End With

End Sub
Run Code Online (Sandbox Code Playgroud)

我应该将StrFileName设置为'StrFileName'&'.Worksheetname'?这是适当的命名方案吗?

就像是:

StrFileName = StrFileName & ".WorkSheetName"
Run Code Online (Sandbox Code Playgroud)

ms-access vba ms-access-2007 access-vba

6
推荐指数
1
解决办法
11万
查看次数