こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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

エクセルvbaのADOを使って、
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 "Tテーブル1", cn, adOpenKeyset, adLockOptimistic

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

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing
End Sub

で移行しています。

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

投稿日時 - 2009-02-21 00:50:53

QNo.4735452

困ってます

質問者が選んだベストアンサー

本質的には接続文字列を変更するだけの話です。
ただし、どこにあるどういう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-21 14:00:59

お礼

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

投稿日時 - 2009-02-22 00:05:38

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問