自定义函数在sql中运用字段时为什么是空值?

when123456

如何让自定义函数在sql变动 (草稿) [复制链接] sql, 如何

通过自定义函数是想将科目方向变成1、-1，0，在余额时用科目性质*科目余额就知道是方向了。 Public Function KMsz(AAA) AAA = Trim(AAA) If AAA = 借 Then KMsz = 1 ElseIf AAA = 贷 Then KMsz = -1 ElseIf AAA = 平 Then KMsz = 0 End If End Function 通过此只能全部变成1，不能就成1,-1,0,在函数自定义时我考虑过将借变成"借"，不能通过。 Sub km() Dim Sql As String      Dim cnn As New adodb.Connection      Dim temp As New adodb.Recordset            Application.ScreenUpdating = False                cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;Imex=1';Data Source=" & ActiveWorkbook.FullName                 Sql = "select DISTINCT 编码,方向," & KMsz(方向) & " as 科目性质 from kmb" '通过此想将科目性质变成1,-1,0            temp.Open Sql, cnn, adOpenStatic                   Range("a5:o5000").ClearContents     [a5].CopyFromRecordset cnn.Execute(Sql)       cnn.Close: Set cnn = Nothing           Application.ScreenUpdating = True                              Set temp = Nothing       End Sub

自定义函数无法在sql使用.rar

2012-8-15 12:53 上传

下载次数: 0




14.68 KB, 下载次数: 0

广委海

我在努力中












怎么样治疗失眠多梦