Excel VBAでSQLSERVERに接続、登録できますか

質問

Excel VBAでSQLSERVERに接続し
SELECTしたりINSERTしたり
できますか？

できる方法（プログラム）
を教えてください

よろしくお願いします。

回答No.1

noname#22222 · ベストアンサー

回答が付くには、もう少し、絞り込んだがいいです。
ですから、サワリだけ・・・。

ADO、DAOのどちらでも可能です。
次は、Excel2003からSQL Server2000にアクセスするDAOのサンプルコードです。

Private Sub CommandButton1_Click()
　　Dim strConnect　　 As String
　　Dim strQuerySQL　As String
　　Dim wrkODBC　　　As DAO.Workspace
　　Dim cntServer　　　As DAO.Connection
　　Dim rstIDManager As DAO.Recordset

　　'
　　' 接続要求文、クエリ文
　　'
　　strConnect = "ODBC;DSN=LocalServer;DATABASE=Sales2006SQL;UID=;PWD=;"
　　strQuerySQL = "SELECT * FROM id管理表"
　　'
　　' レコードセットオープン
　　'
　　Set wrkODBC = CreateWorkspace("ODBC_WS", "", "", dbUseODBC)
　　wrkODBC.DefaultCursorDriver = dbUseODBCCursor
　　Set cntServer = wrkODBC.OpenConnection("", dbDriverComplete, , strConnect)
　　Set rstIDManager = cntServer.OpenRecordset(strQuerySQL)
　　With rstIDManager
　　　　Do While Not .EOF
　　　　　　Debug.Print .Fields(0)
　　　　　　.MoveNext
　　　　Loop
　　End With
　　'
　　' レコードセットクローズ
　　'
　　rstIDManager.Close
　　cntServer.Close
　　wrkODBC.Close
End Sub

[イミディエイトウィンドウ]

employee
perform_id

と、確かに、id管理表の列を取得しています。