求助：如何在SQL中自定义函数？

zrj898 · 发表于 2012-7-18 17:55:10

本帖最后由 zrj898 于 2012-7-18 18:51 编辑

如何自定义函数，就像在SQL语句中使用的tan()、trim（）等函数一样可以包含在SQL语句中的函数。而不是模块定义的那种函数。
有一个角度的数据格式是度分秒的，从一个表更新到另一个表，需要转换成弧度格式，那就要用到转换函数，函数是在模块中定义的，用一个更新查询是完成不了的。效率很低，请问有没有效率高的办法。
Public Sub ¼ì²é·½Î»¶ÁÈ¡()
Dim DbTemp As DAO.Database
Dim Rst01 As DAO.Recordset2
Dim Sql As String
Dim tempFW As Double
Dim tempID As Long
      On Error Resume Next
      Call ¶ÁÈ¡µ±Ç°²ÎÊý
      If XmLx = "¶þÎ¬" Then
         Sql = "UPDATE (((²âÏßÉè¼ÆÊý¾Ý AS a LEFT JOIN Éè¼ÆÎïÀíµãÁÐ±í AS d ON a.ÖØÐÂÉè¼ÆID = d.ID) LEFT JOIN ÏîÄ¿ AS e ON a.ÏîÄ¿ID = e.ID) "
         Sql = Sql & "LEFT JOIN [Ïß(Êø)-ÎïÀíµã¹ØÏµ±í] AS f ON d.¹ØÏµ±íID = f.ID) LEFT JOIN ²âÏßÉè¼Æ²ÎÊý AS g ON f.Éè¼Æ²ÎÊýID = g.ID "
         Sql = Sql & "SET a.¼ì²é·½Î»=g.²âÏß·½Î» "
         Sql = Sql & "WHERE e.µ±Ç°Ñ¡Ôñ<>False"
         DoCmd.RunSQL Sql
      Else
         Sql = "UPDATE ²âÏßÉè¼ÆÊý¾Ý AS a LEFT JOIN ÏîÄ¿ AS e ON a.ÏîÄ¿ID = e.ID SET a.¼ì²é·½Î» = " & str(PYFfw) & " WHERE e.µ±Ç°Ñ¡Ôñ<>False"
         DoCmd.RunSQL Sql
      End If
      Set DbTemp = CurrentDb
         Sql = "SELECT b.ID, b.¼ì²é·½Î» FROM ÏîÄ¿ AS a INNER JOIN ²âÏßÉè¼ÆÊý¾Ý AS b ON a.ID = b.ÏîÄ¿ID where a.µ±Ç°Ñ¡Ôñ"
      Set Rst01 = DbTemp.OpenRecordset(Sql)
      Rst01.MoveFirst
      Do While Not Rst01.EOF
         tempID = Rst01.Fields("ID").Value: tempFW = Rst01.Fields("¼ì²é·½Î»").Value
         tempFW = JtoH(tempFW)
         Sql = "update ²âÏßÉè¼ÆÊý¾Ý AS a SET a.¼ì²é·½Î» = " & str(tempFW) & " where a.ID=" & str(tempID)
         DoCmd.RunSQL Sql
         Rst01.MoveNext
      Loop
      Rst01.Close
      DbTemp.Close
End Sub

呵呵，没办法拷过来是乱码，大概意思应该。。。。

zrj898 · 发表于 2012-7-19 07:29:10

试了下，模块中自定义函数htoj()可以直接在sql语句中使用。

zrj898 · 发表于 2012-7-23 18:16:58

呵呵，以解决问题，把查询都更新查询都换成了成批查询,而不是读一条recordset再写一条，呵呵，效率提高太多啦！那个模块级的自定义函数是可以使用的，问题提的不太好，没经过验证就提出来了。

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 求助：如何在SQL中自定义函数？

群介绍
主题无相 (随机显示版	同地区群块其他地区)