ADOでエクセルからSQL Serverへデータを移行するには

エクセルｖｂａのＡＤＯを使って、
SQL Serverの「test」という名のデータベースの「Table_1」に
新規レコードを追加する事はできますか？

エクセルからアクセスには
Sub test()
Dim データベース名 As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & データベース名
rs.Open "Ｔテーブル１", cn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs.Fields("フィールド１") = データ
rs.Update

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing
End Sub

で移行しています。

これをエクセルからSQL Serverへ移行させるにはどうすればいいのでしょうか？
よろしくお願いします。

No.1 ベストアンサー 回答者： jamshid6 回答日時： 2009/02/21 14:00

本質的には接続文字列を変更するだけの話です。

ただし、どこにあるどういうSQL Serverに接続したいかにより変わります。
cn.Open "Provider=SQLOLEDB;Data Source=(サーバ名);Initial Catalog=test;Integrated Security=SSPI"

サーバ名は「どこにあるどういう名前でインストールしたSQL Serverか」により決まります。同じPC内にあるなら、省略するか「localhost」(SQL Server Express以外のデフォルト)か「localhost\SQLEXPRESS」(SQL Server Expressのデフォルト)のいずれかで通るでしょう。
また、上記はWindows認証を選択してインストールした場合で、混合認証の場合はIntegrated Securityの代わりにUser IDとPasswordの指定が必要です。

この回答へのお礼

試してみます！ご回答ありがとうございます。

お礼日時：2009/02/22 00:05