Microsoft SQL Server 7.0からMySQLへデータを移行する方法（転送） - データベースフェーズ_PHPチュートリアル

おそらく誰もが、入力には Word、計算や計画には Excel、スライドのプレゼンテーションには PowerPoint を使用するのが好きだと思います...しかし、これは Office シリーズ製品の機能のごく一部しか使用していません。調査によると、大多数のユーザーは Office 製品の機能の 20% しか使用しておらず、Visual Basic for Application に注目している人はほとんどいません。実際、VBA の機能に慣れていれば、半分の労力で仕事の成果を 2 倍にすることができます。特に会計、財務、その他の専攻の場合は、適切なマクロ セットを作成することで問題をほぼ完全に解決できます。最近ではAutoCADにもVBA機能が追加されており、トレンドと言わざるを得ません！
VBA の機能は、ウイルス作成者にとって問題を引き起こすだけではありません。VBA を使用してウイルスを作成できるという事実も、その強力さと使いやすさを示しています。 ADO オブジェクトを使用すると、データベース操作を非常に便利に実行できます。以下はデータ交換の簡単な例です:
ADO オブジェクトは MySQL を直接サポートしていないため、MyODBC を最初にインストールする必要があります。MyODBC も無料の製品であり、MyODBC をインストールした後、次のことができます。 ODBC データ ソース管理でデータ ソース名を構成し、接続する MySQL データベースを指定します。コードは次のとおりです:
Sub connectMySQL()
'MyODBC 経由で MySQL データベースに接続し、Microsoft SQL Server 7 からデータを転送します
' ' to mysql
Dim sConnect As String, sSql As String, i As Long
Dim cnMSSQL As New ADODB .Connection
Dim cnMySQL As New ADODB.Connection
'オブジェクト接続を宣言して作成します
' Dim rs As New ADODB.Recordset 'オブジェクトレコードセットを宣言して作成します
Dim cm As New ADODB.Command 'オブジェクト接続を宣言して作成しますobject command
'
sConnect = "dsn=mysql1" 'MySQLのデータソース名を指定
cnMySQL.Open sConnect 'mysqlに接続

sConnect="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa ;pwd=123456;初期カタログ=softdown;データソース=ntserver"
'ms SQLサーバー7に接続します
cnMSSQL.Open sConnect
'sSql = "テーブルsoftinfoを作成します(softNum smallint,softname varchar(70),softdesc blob," &_