AI 助理
备案控制台
开发者社区 数据库 文章 正文

数据库迁移mssql to pgsql之函数转换

2024-03-01 70
版权
版权声明：
本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《 阿里云开发者社区用户服务协议》和 《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写 侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
简介： 数据库迁移mssql to pgsql之函数转换

将MS SQL数据库中的存储过程转换为PG SQL的函数，我编了一段代码，将大部分区别转换了一下，之后再手工整理，还是能快一些。

当然也可以使用一些工具来处理这一问题。

下面是一段VB.NET代码，仅供参考。

Private Sub MakeFunc(ByVal FNname As String, ByVal Gc As Integer)
'转换过程
Dim BjStr As String = ""    '代码行
Try
    Dim dtdsql As String = ""
    Dim dqtext As String = ""
    Dim nexttext As String = ""
    Dim nextnext As String = ""
    Dim utext As String = ""
    Dim intotext As String = ""
    Dim fulltext As String = ""
    Dim dqas As Integer = 0
    BjStr += "--" & FNname & vbCrLf
    Dim dtd As New DataTable
    dtdsql = "exec sys.sp_helptext '" & FNname & "'"
    dtd = hyDB.DtRead(dtdsql).Tables(0)
    For L As Integer = 0 To dtd.Rows.Count - 1
        fulltext += dtd.Rows(L).Item("text")
    Next
    fulltext = ""
    fulltext = Nothing
    Dim dtp As New DataTable    '获取参数
    dtp = hyDB.DtRead("EXEC DBO.GETPT '" & FNname & "'").Tables(0)
    Dim pt(15, 1) As String
    For C As Integer = 0 To 15
        pt(C, 0) = ""
    Next
    If Not IsNothing(dtp) Then
        If dtp.Rows.Count > 0 Then
            If Gc = 0 Then
                For C As Integer = 0 To dtp.Rows.Count - 1
                    If dtp.Rows(C).Item("ParamType") = "OUTPUT" Then
                        dtp.Rows(C).Delete()
                    End If
                Next
            End If
            dtp.AcceptChanges()
            For C As Integer = 0 To dtp.Rows.Count - 1
                pt(C, 0) = dtp.Rows(C).Item("ParamName")
                pt(C, 1) = "$" & (C + 1).ToString.Trim
            Next
        End If
    End If
    For L As Integer = 0 To dtd.Rows.Count - 1
        dqtext = UCase(dtd.Rows(L).Item("text"))
        If L < dtd.Rows.Count - 1 Then
            nexttext = dtd.Rows(L + 1).Item("text")
        Else
            nexttext = ""
        End If
        If L < dtd.Rows.Count - 2 Then
            nextnext = dtd.Rows(L + 2).Item("text")
        Else
            nextnext = ""
        End If
        dqtext = Replace(dqtext, "  ", " ")
        dqtext = Replace(dqtext, "  ", " ")
        dqtext = Replace(dqtext, "  ", " ")
        dqtext = Replace(dqtext, "  ", " ")
        dqtext = Replace(dqtext, "[", "")
        dqtext = Replace(dqtext, "]", "")
        utext = dqtext
        If InStr(utext, "BEGIN CATCH") > 0 Then
            Exit For
        End If
        If UCase(Strings.Left(utext, 2)) = "GO" Then
            Continue For
        End If
        If Trim(dqtext) = vbCrLf Then
            Continue For
        End If
        If InStr(utext, "NOCOUNT") > 0 Then
            Continue For
        End If
        If InStr(utext, "BEGIN TRY") > 0 Then
            Continue For
        End If
        If InStr(utext, "TRANS") > 0 Then
            Continue For
        End If
        If InStr(utext, "COMMIT") > 0 Then
            Continue For
        End If
        If InStr(utext, "END TRY") > 0 Then
            Continue For
        End If
        If InStr(utext, "DEALLOCATE") > 0 Then
            Continue For
        End If
        If InStr(utext, "FETCH ") > 0 Then
            Continue For
        End If
        If InStr(dqtext, "ErrorLogID ") > 0 Then
            Continue For
        End If
        If InStr(utext, "BEGIN") > 0 And InStr(utext, "CASE") <= 0 Then
            Continue For
        End If
        If InStr(utext, "CREATE") > 0 Then
            dqtext = Replace(dqtext, "[", "")
            dqtext = Replace(dqtext, "]", "")
            dqtext = Replace(dqtext, "PROCEDURE", "FUNCTION")
        End If
        If InStr(utext, "AS") > 0 And dqas = 0 Then
            dqas = L
            dqtext = " RETURNS VARCHAR" & vbCrLf & dqtext
            dqtext = Replace(dqtext, "AS", " AS $$ ") & vbCrLf & vbCrLf
            dqtext += "-- ===========================================================================" & vbCrLf
            dqtext += "-- Author: " & vbCrLf
            dqtext += "-- Create date: " & Format(Now, "yyyy-MM-dd") & vbCrLf
            dqtext += "-- Description:  " & vbCrLf
            dqtext += "-- ===========================================================================" & vbCrLf
            dqtext += "DECLARE " & vbCrLf
            'dqtext += vbTab & "ssmsg text;ssdet text;sstname text;sshint text;ssctt text; --错误处理 " & vbCrLf
            dqtext += vbTab & "--RD RECORD;" & vbCrLf & vbCrLf
            dqtext += "BEGIN" & vbCrLf
            For C As Integer = 0 To 15
                If pt(C, 0) <> "" Then
                    BjStr = Replace(BjStr, "@", "SS")
                End If
            Next
            BjStr += dqtext
            Continue For
        End If
        If InStr(utext, "INTO") > 0 And InStr(utext, "SELECT") <= 0 And InStr(utext, "INSERT") <= 0 And
                InStr(utext, "@") > 0 And L > dqas And dqas > 0 Then
            intotext = Replace(utext, "INTO", "")
            intotext = Replace(intotext, " ", "")
            intotext = Replace(intotext, vbTab, "")
            intotext = Replace(intotext, ";", "")
            intotext = Replace(intotext, vbCrLf, "")
        End If
        If InStr(utext, "SELECT") <= 0 And InStr(utext, "INSERT") <= 0 And InStr(utext, "INTO") > 0 Then
            dqtext = Replace(dqtext, "INTO", "--INTO")
        End If
        If InStr(utext, "SELECT") > 0 And InStr(utext, "=") > 0 And InStr(utext, "@") > 0 And InStr(utext, "FROM") <= 0 Then
            dqtext = Replace(dqtext, "SELECT", "")
        End If
        '查询赋值
        If InStr(utext, "SELECT") > 0 Then
            Dim Si As Integer = 0
            Dim Fi As Integer = 0
            Si = InStr(dqtext, "SELECT")
            Fi = InStr(dqtext, "FROM")
            If Fi > 0 And InStr(utext, "=") > 0 And Fi > InStr(utext, "=") And InStr(utext, "EXISTS") <= 0 And
                InStr(utext, "@") > 0 And Fi > InStr(utext, "@") Then
                Dim fzstr As String
                fzstr = Mid(dqtext, Si + 6, Fi - Si - 6).Trim
                Dim fz() As String = Split(fzstr, ",")
                Dim fzcd As Integer = fz.Length
                Dim ly As String = ""
                Dim bl As String = ""
                For I As Integer = 0 To fzcd - 1
                    Dim dqz As String
                    dqz = fz(I)
                    If InStr(dqz, "=") > 0 Then
                        Dim xz() As String = Split(dqz, "=")
                        If xz.Length = 2 Then
                            ly += xz(1) & ","
                            bl += xz(0) & ","
                        End If
                    End If
                Next
                If ly.Length > 2 Then
                    ly = Strings.Left(ly, ly.Length - 1)
                End If
                If bl.Length > 2 Then
                    bl = Strings.Left(bl, bl.Length - 1)
                End If
                Dim fzth As String
                fzth = " " & ly & " INTO " & bl & " "
                dqtext = Replace(dqtext, fzstr, fzth)
            End If
        End If
        If InStr(utext, "END") > 0 And InStr(utext, "IF") <= 0 And InStr(utext, "CASE") <= 0 Then
            dqtext = ""
            If InStr(nexttext, "ELSE") <= 0 Then
                Dim kg As Integer = 0
                Dim jstext As String = utext
                While Strings.Left(jstext, 3) <> "END"
                    jstext = Strings.Replace(jstext, vbTab, "", 1, 1)
                    kg += 1
                    If kg > 7 Then
                        Exit While
                    End If
                End While
                If nexttext <> "" And InStr(nexttext, "CLOSE") > 0 Then
                    If kg > 2 Then
                        dqtext += Strings.StrDup(kg - 1, vbTab) & "END LOOP;" & vbCrLf
                    Else
                        dqtext += vbTab & "END LOOP;" & vbCrLf
                    End If
                Else
                    If kg > 2 Then
                        dqtext += Strings.StrDup(kg - 1, vbTab) & "END IF;" & vbCrLf
                    Else
                        dqtext += vbTab & "END IF;" & vbCrLf
                    End If
                End If
            End If
        End If
        If InStr(utext, "CHAR(13)+CHAR(10)") > 0 Then
            dqtext = Replace(dqtext, "CHAR(13)+CHAR(10)", "CHR(13)+CHR(10)")
        End If
        If InStr(utext, "UPDATE") <= 0 And InStr(utext, "IF") > 0 And InStr(utext, "IIF(") < 0 And InStr(utext, "SET") > 0 Then
            dqtext = Replace(dqtext, "SET", " THEN ")
        End If
        If InStr(utext, "IF ") <= 0 And InStr(utext, "IIF(") <= 0 And InStr(utext, "UPDATE") <= 0 And InStr(utext, "SET") > 0 Then
            dqtext = Replace(dqtext, "SET ", "")
        End If
        If InStr(utext, "IF") > 0 And InStr(utext, "END") <= 0 And InStr(utext, "IIF(") <= 0 Then
            dqtext = Replace(dqtext, vbCrLf, " THEN" & vbCrLf)
        End If
        If nexttext <> "" And InStr(utext, "IF") > 0 And InStr(utext, "IIF(") <= 0 
            And InStr(nexttext, "BEGIN") <= 0 And InStr(nexttext, ";") > 0 Then
            dtd.Rows(L + 1).Item("text") += Strings.StrDup(Tabs(utext), vbTab) & "END IF;" & vbCrLf
        End If
        If InStr(utext, "IIF(") > 0 Then
            dqtext = Replace(dqtext, "IIF(", "X9_IIF(")
        End If
        If InStr(utext, "DECLARE") > 0 Then
            If InStr(utext, "@") > 0 Then
                dqtext = Replace(dqtext, ",", ";")
            End If
            dqtext = Replace(dqtext, "DECLARE ", "")
            dqtext = Replace(dqtext, "DECLARE", "")
        End If
        If InStr(utext, "=") > 0 Then
            If (InStr(utext, "SELECT") > 0 Or InStr(utext, "SET") > 0) Then
                If InStr(utext, "WHERE") <= 0 And InStr(utext, " AND ") <= 0 And
                    InStr(utext, " OR ") <= 0 And InStr(utext, "UPDATE") <= 0 And InStr(utext, "FROM") <= 0 And
                    InStr(utext, "IF ") <= 0 And (InStr(nexttext, "FROM") <= 0 Or InStr(nexttext, "FETCH") > 0) Then
                    dqtext = Replace(dqtext, "=", ":=")
                End If
            End If
        End If
        If InStr(utext, "FORMAT(") > 0 Then
            dqtext = Replace(dqtext, "FORMAT", "TO_CHAR(")
        End If
        If InStr(utext, "CONVERT(") > 0 Then
            dqtext = Replace(dqtext, "CONVERT(", "CAST(")
        End If
        If InStr(utext, "CURSOR") > 0 And InStr(utext, "LOCAL") > 0 Then
            dqtext = Replace(dqtext, "LOCAL", "")
        End If
        If InStr(utext, "FORMAT(") > 0 Then
            dqtext = Replace(dqtext, "FORMAT", "TO_CHAR(")
        End If
        If InStr(utext, "CHARINDEX(") > 0 Then
            dqtext = Replace(dqtext, "CHARINDEX(", "position(")
        End If
        If InStr(utext, "DELETE") > 0 Then
            dqtext = Replace(dqtext, "DELETE", "DELETE FROM")
        End If
        If InStr(utext, "(MAX)") > 0 Then
            dqtext = Replace(dqtext, "(MAX)", "")
        End If
        If InStr(utext, "LEN(") > 0 Then
            dqtext = Replace(dqtext, "LEN(", "LENGTH(")
        End If
        If InStr(utext, "CONVERT(") > 0 Then
            dqtext = Replace(dqtext, "CONVERT(", "CAST(")
        End If
        Dim lstext = Replace(utext, " ", "")
        If InStr(lstext, "'+") > 0 Or InStr(lstext, "+'") > 0 Then
            dqtext = Replace(dqtext, "' +", "'+")
            dqtext = Replace(dqtext, "+ '", "+'")
            dqtext = Replace(dqtext, "'+", "'||")
            dqtext = Replace(dqtext, "+'", "||'")
        End If
        If InStr(utext, "WHILE ") > 0 Then
            Dim kg As Integer = 0
            kg = Tabs(utext)
            dqtext = ""
            dqtext += Strings.StrDup(kg, vbTab) & "LOOP" & vbCrLf
            dqtext += Strings.StrDup(kg + 2, vbTab) & "FETCH CS_DJM INTO RD;" & vbCrLf
            dqtext += Strings.StrDup(kg + 2, vbTab) & "EXIT WHEN NOT FOUND;" & vbCrLf
        End If
        dqtext = Replace(dqtext, "--", "-- ")
        dqtext = Replace(dqtext, "DECIMAL", "NUMERIC")
        dqtext = Replace(dqtext, "(16;2)", "(16,2)")
        dqtext = Replace(dqtext, "(16;4)", "(16,4)")
        dqtext = Replace(dqtext, "(18;2)", "(16,2)")
        dqtext = Replace(dqtext, "DBO.", "")
        dqtext = Replace(dqtext, "NVARCHAR", "VARCHAR")
        dqtext = Replace(dqtext, "GETDATE()", "CURRENT_DATE")
        BjStr = BjStr & dqtext
    Next
    For C As Integer = 0 To 15
        If pt(C, 0) <> "" Then
            BjStr = Replace(BjStr, pt(C, 0), pt(C, 1))
        End If
    Next
    If intotext <> "" Then
        Dim Ybbl() As String = Split(intotext, ",")
        For Y As Integer = 0 To Ybbl.Length - 1
            Dim dqbl As String = Ybbl(Y).Trim
            Dim thbl As String = ""
            If InStr(dqbl, "@") > 0 Then
                thbl = Strings.Replace(dqbl, "@", "RD.")
                BjStr = Replace(BjStr, dqbl, thbl)
            End If
        Next
    End If
    BjStr = Replace(BjStr, vbTab & vbTab, vbTab)
    BjStr = Replace(BjStr, "@", "SS")
    BjStr = BjStr.ToLower
    'BjStr += "EXCEPTION WHEN OTHERS THEN" & vbCrLf
    'BjStr += vbTab & "GET STACKED DIAGNOSTICS ssmsg = MESSAGE_TEXT,ssdet = PG_EXCEPTION_DETAIL," & vbCrLf
    'BjStr += vbTab & vbTab & "sstname = TABLE_NAME, sshint = PG_EXCEPTION_HINT, ssctt = PG_EXCEPTION_CONTEXT;" & vbCrLf
    'BjStr += vbTab & "CALL x9_jlproc(ssmsg, ssdet, sstname, sshint, ssctt); " & vbCrLf
    BjStr += "END;" & vbCrLf
    BjStr = BjStr & "$$ LANGUAGE plpgsql;" & vbCrLf
    MM1.Text += BjStr & vbCrLf
Catch ex As Exception
    MM1.Text = ""
    MessageBox.Show(ex.Message)
End Try
End Sub


文章标签：
数据库
SQL
关系型数据库
存储
关键词：
数据库迁移
数据库函数
数据库mssql
数据库pgsql
数据库pgsql函数
明月看潮生
目录
相关文章
aliyun7689123603-22772
|
2月前
|
关系型数据库 MySQL 数据库
mysql数据量很大的数据库迁移最优的方案 原创
8月更文挑战第2天
aliyun7689123603-22772
547 7
阿里云开发者
|
2月前
|
弹性计算 关系型数据库 数据库
手把手带你从自建 MySQL 迁移到云数据库，一步就能脱胎换骨
阿里云瑶池数据库来开课啦！自建数据库迁移至云数据库 RDS原来只要一步操作就能搞定！点击阅读原文完成实验就可获得一本日历哦～
阿里云开发者
77 0
格格的阿里云
|
2月前
|
关系型数据库 MySQL 数据库
RDS MySQL灾备服务协同解决方案构建问题之数据库备份数据的云上云下迁移如何解决
RDS MySQL灾备服务协同解决方案构建问题之数据库备份数据的云上云下迁移如何解决
格格的阿里云
72 0
1100237741946300
|
11天前
|
SQL 数据库 数据库管理
数据库SQL函数应用技巧与方法
在数据库管理中，SQL函数是处理和分析数据的强大工具
1100237741946300
20 5
程序员小海绵
|
1月前
|
存储 SQL 关系型数据库
一篇文章搞懂MySQL的分库分表，从拆分场景、目标评估、拆分方案、不停机迁移、一致性补偿等方面详细阐述MySQL数据库的分库分表方案
MySQL如何进行分库分表、数据迁移？从相关概念、使用场景、拆分方式、分表字段选择、数据一致性校验等角度阐述MySQL数据库的分库分表方案。
程序员小海绵
243 14
一篇文章搞懂MySQL的分库分表，从拆分场景、目标评估、拆分方案、不停机迁移、一致性补偿等方面详细阐述MySQL数据库的分库分表方案
1919324350086154
|
10天前
|
SQL 监控 测试技术
全面解析SQL数据库迁移：步骤、挑战与最佳实践a8u.0335pw.com
随着信息技术的快速发展，数据库迁移已成为企业和组织在IT领域经常面临的一项任务。数据库迁移涉及到数据的转移、转换和适应新环境的过程，特别是在使用SQL数据库时。本文将详细介绍SQL数据库迁移的过程，探讨其面临的挑战，并分享一些最佳实践。一、数据库迁移概述数据库迁移是指将数据库从一个环境迁移到另一个环
1919324350086154
38 0
土木林森
|
1月前
|
SQL Java 数据库连接
数据库迁移不再难：Flyway 与 Liquibase 大比拼，哪个才是你的真命天子？
【9月更文挑战第3天】数据库迁移在软件开发中至关重要，尤其在使用 ORM 框架如 Hibernate 时。为确保部署时能顺利应用最新的数据库变更，开发者常使用自动化工具。Flyway 和 Liquibase 是当前流行的两种选择，均能有效管理数据库版本控制。Flyway 采用 SQL 脚本表示变更，简单易用；Liquibase 支持多种脚本格式，功能更强大，适合复杂项目。本文将对比这两种工具的特点，并通过示例展示各自的优缺点，帮助开发者根据项目需求做出合适的选择。
土木林森
258 1
小王老师呀
|
1月前
|
SQL 存储 数据库
MSSQL遍历数据库根据列值查询数据
【9月更文挑战第12天】在 SQL Server 中，可以通过游标或临时表遍历数据库并根据列值查询数据。示例展示了如何创建临时表存储数据库名，并通过循环遍历这些名称来执行特定查询。需替换 `YourTableName`、`YourColumnName` 和 `YourValue` 为实际值。此方法要求有足够权限访问各数据库。若无跨库权限，需分别执行查询。
小王老师呀
51 0
wljslmz
|
2月前
|
Linux 数据库 数据安全/隐私保护
在Linux环境中利用T-SQL与Docker实现MSSQL数据库复制
【8月更文挑战第20天】
wljslmz
53 2
白如意i
|
2月前
|
JSON NoSQL Ubuntu
在Ubuntu 14.04上如何备份、恢复和迁移MongoDB数据库
在Ubuntu 14.04上如何备份、恢复和迁移MongoDB数据库
白如意i
75 1

热门文章

最新文章

  • 1
    现场直击：中国人的数据库分支AliSQL开放源代码下载 功能新增秒杀场景优化、TokuDB
  • 2
    阿里JAVA手册之MySQL数据库 （建表规约、索引规约、SQL语句、ORM映射）
  • 3
    数据库中的Schema和Database的区别
  • 4
    C#连接Oracle数据库
  • 5
    MySQL设置数据库为只读
  • 6
    数据库必知词汇：主键约束(PRIMARY KEY)
  • 7
    分布式关系型数据库服务 DRDS 提供全新规格实例
  • 8
    mysql数据库-备份
  • 9
    2010年SQLite学习笔记之二
  • 10
    H2数据库函数及数据类型概述
  • 1
    C#SQL Server数据库基本操作（增、删、改、查）
    142
  • 2
    数据库数据恢复—Sql Server数据库文件丢失的数据恢复案例
    57
  • 3
    数据库、OS内核安全等精彩继续！龙蜥大讲堂 5 月直播预告来袭
    618
  • 4
    不要将数据库中的“分库分表”理论盲目应用到 Elasticsearch
    43
  • 5
    数据库同步 Elasticsearch 后数据不一致，怎么办？
    162
  • 6
    【数据库】第二章 关系模型介绍
    52
  • 7
    【数据库】数据库语言
    65
  • 8
    【数据库】数据库基本知识
    35
  • 9
    MySQL数据库锁定机制
    38
  • 10
    docker部署postgresql数据库和整合springboot连接数据源
    144

    • 相关课程

    更多
  • 数据库的前世今生
  • 数据库核心概念
  • 从传统数据库到云数据库演进
  • 数据库常见问题排查
  • 数据库及SQL/MySQL基础
  • 高校精品课-西安交通大学 -数据库理论与技术

    • 相关电子书

    更多
  • DTCC 2022大会集锦《云原生一站式数据库技术与实践》
  • 阿里云瑶池数据库精要2022版
  • 2022 DTCC-阿里云一站式数据库上云最佳实践

    • 相关实验场景

    更多
  • 数据库实验室挑战任务-高级任务
  • 数据库实验室挑战任务-中级任务
  • 数据库实验室挑战任务-初级任务
  • 阿里云数据库产品实验室
  • MongoDB数据库入门
  • 使用DAS实现数据库自动扩容和回缩
    • 下一篇
    AI助理直击要害，从繁复中提炼精华——使用CDN加速访问OSS存储的图片