Microsoft SQL Server 7.0からMySQLへデータを移行する方法（移行）

mysql|サーバー|データ

おそらく誰もが、入力には Word、計算や計画には Excel、スライドのプレゼンテーションには PowerPoint を使用するのが好きだと思います...しかし、これは Office シリーズ製品の機能のごく一部を使用しているだけです。調査によると、大多数のユーザーは Office 製品の機能の 20% しか使用しておらず、Visual Basic for Application に注目している人はほとんどいません。実際、VBA の機能に慣れると、特に会計、財務、その他の専攻の場合は、適切なマクロ セットを作成することで問題をほぼ完全に解決できます。最近ではAutoCADにもVBA機能が追加されており、トレンドと言わざるを得ません！
VBA の機能は、ウイルス作成者にとって問題を引き起こすだけではありません。VBA を使用してウイルスを作成できるという事実も、その強力さと使いやすさを示しています。 ADO オブジェクトを使用すると、データベース操作を非常に便利に実行できます。以下はデータ交換の簡単な例です:
ADO オブジェクトは MySQL を直接サポートしていないため、MyODBC を最初にインストールする必要があります。MyODBC も無料の製品であり、MyODBC をインストールした後、次のことができます。 ODBC データ ソース管理でデータ ソース名を構成し、接続する MySQL データベースを指定します。コードは次のとおりです:

Sub connectMySQL()
'MyODBC 経由で MySQL データベースに接続し、Microsoft SQL Server 7 からデータを mysql に転送します
' Dim sConnect As String, sSql As String, i As Long
Dim cnMSSQL As New ADODB.Connection
Dim cnMySQL As New ADODB.Connection
sConnect = "dsn=mysql1" 'MySQL のデータソース名を指定します
cnMySQL.Open sConnect 'mysql に接続します
sConnect="Provider=SQLOLEDB.1;Persistセキュリティ情報=False;ユーザーID=sa;pwd=123456;初期カタログ=softdown;データソース=ntserver"
'ms SQLサーバー7に接続します
cnMSSQL.Open sConnect

'sSql = "テーブルsoftinfoを作成します(softNum smallint, Softname varchar(70),softdesc blob," & _
"softpath varchar (30),softleng varchar(10),softclass varchar(10),softsugest tinyint(1)," & _
"softdown smallint(4))" '新しい MySQL データ テーブル ステートメントを作成します
sSql = "select * from Softinfo order by Softnum"
rs.Open sSql, cnMSSQL, 1, 1

While Not rs.EOF
sSql = "softinfo 値に挿入 (" & Trim(rs(0).Value) & ",'" & Trim(rs(1).Value) & _
"','" & Trim(rs(2).Value) & "','" & Trim(rs(3).Value) & "','" & Trim(rs(4).Value) & _
"','" & Trim(rs(5).Value) & "'," & Trim (rs(6).Value) & "," & Trim(rs(7 .
Wend

rs.Close
Set rs = Nothing

cnMySQL.Close
Set cnMySQL = Nothing

cnMSSQL.Close
Set cnMSSQL =何もありません

End Sub

さて、誰もが VBA についてある程度知っていると思います。同様に、ワークシートで MySQL のデータを参照したい場合も同様です。マクロが完了したら、ユーザーが行う必要があるのは同様に簡単です。マウスを 1 回クリックするだけでレポートを生成できます。Excel を二次開発に使用することは、自社で開発したレポート システムよりも効率的です。これは、Microsoft がこの巨人の肩に乗っているためです。




Reposted by Oso