VB.NET嵌入式SQL转换

Ispirer MnMTK可以成为您的一站式迁移解决方案，它转换VB.NET嵌入式SQL。Ispirer MnMTK嵌入式SQL迁移工具让您在快速提高自动迁移的世界。您对Ispirer MnMTK可以容易转换嵌入式SQL语句和嵌入式SQL查询。Ispirer MnMTK转换软件不断提高交合我们的未来的客户唯一的机会减少成本和时间使用我们的定制的嵌入式SQL转换解决方案。

转换特征：

Ispirer MnMTK工具自动检测动态SQL查询，分析它们和转换到选择方向。除此之外，Ispirer MnMTK工具转换数据类型和输入到选择API如需要。

以下例如展示转换从VB.NET 类对Sybase Adaptive Server Enterprise动态SQL到类对MySQL动态SQL。

源代码为VB.NET类包括Sybase ASE动态SQL：

Imports System.Data.SqlClient
 
Public Class InsertClassifieds
    Function ApproveClassified()
        Dim sql, value As String
        Dim cmd As SqlCommand
        Dim con As SqlConnection
        Dim dr  As SqlDataReader
 
        sql = "update tbl1 set col1='Y' , 
col2=getdate() where col3 in (" & value & ")"
        con = New SqlConnection
(ConfigurationSettings.AppSettings("ConnectionString"))
        con.Open()
        cmd = New SqlCommand(sql, con)
        dr = cmd.ExecuteReader
        cmd.Dispose()
        dr.Close()
        con.Dispose()
        con.Close()
    End Function
End Class

转换类包括MySQL动态SQL查询和MySQL API：

Imports MySql.Data.MySqlClient
 
Public Class InsertClassifieds
    Function ApproveClassified()
        Dim sql, value As String
        Dim cmd As MySqlCommand
        Dim con As MySqlConnection
        Dim dr  As MySqlDataReader
 
        sql = "update tbl1 set col1 = 'Y',
col2 = CURRENT_TIMESTAMP where col3 in(" & value & ")"
        con = New MySqlConnection
(ConfigurationSettings.AppSettings("ConnectionString"))
        con.Open()
        cmd = New MySqlCommand(sql, con)
        dr = cmd.ExecuteReader
        cmd.Dispose()
        dr.Close()
        con.Dispose()
        con.Close()
    End Function
End Class