改了一下代码，查询符串在查询分析器里能正常查询，怎么在这里就请示错误了呢？
此主题相关图片如下：微信截图_20220929223357.png
'操作证下载
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim gf As String="C:\myfiles\企业微信1.0\Project\Attachments\web\"
Select Case e.Path
Case "ZjDownLoad.htm"
wb.Title = "只能下载本人的操作证"
Dim nam As String
Dim cmd As New SQLCo
cmd.C '记得设置数据源名称
cmd.Com = "sel ect [关联号],[文件名],[附件],[CRC值] fr om [Sys_附件] where [关联号] = (sel ect CredentialsID fr om [RL_员工证件] where [员工姓名] = '" & e.Cookies("uname") & "' And [证件名称] = '操作证')"
Dim dt As DataTable = cmd.Execu
If dt.DataRows.Count > 0 Then
Dim dr As DataRow = dt.DataRows(0)
Dim pts() As String = dr.SQLGetValue("CRC值").Split("|")
If FileSys.DirectoryExists(gf & "tempfiles")=False Then '如果目录Catch不存在,则创建
FileSys.CreateDirectory(gf & "tempfiles")
End If
Dim fl As String = gf & "tempfiles\" & dr("文件名") & "." & pts(0)
If FileSys.FileExists(fl) AndAlso CRCCheckFile(fl) = pts(1) Then '如果本地存在同名文件且CRC校验值相同
'则直接使用本地文件
Else '否则从数据库提取文件
If dr.SQLLoadFile("附件",fl) = False Then '如果提取文件失败
With wb.AddMsgPage("","msgpage","出错啦!!","下载失败,主联系管理员!")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
Else
'生成下载链接
Dim sb As New StringBuilder
sb.AppendLine("点附件名称直接下载! <br/><br/>")
sb.AppendLine("证件: →<a href='./tempfiles/" & dr("文件名") & "' download='" & dr("文件名") & "'>" & dr("文件名") & "</a>")
e.WriteString(sb.ToString)
End If
End If
End If
e.WriteString(wb.Build)
End Select
加好友 
发短信
Post By：2022/9/29 18:09:00 [只看该作者]
