質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.48%

  • VB.NET

    940questions

    Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

vb.netでSqlserver2014にADO接続し、Excelデータをインポート

受付中

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 2,122

kei5

score 6

vb2008・sqlserver2014の環境でADO接続を行い、excel2013ファイルのあるシートをsqlserver上のテーブルにインポートしたいです。一応、下記のコードを編集していますが、分散クエリを利用しない方法(SQL文)をご教授いただきたいです。お忙しいところ申し訳ありませんがよろしくお願いいたします。

        Dim mCon As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim strSQL As String
        Dim cn As String
        Dim Memo As String

        cn = ""

        '+ * 接続文字列 *
        cn &= "Provider=SQLOLEDB;"
        cn &= "Data Source         = xx.xx.xx.xx;"
        cn &= "Initial Catalog     = TEST;"
        cn &= "User ID=TEST; Password=TEST;"
        cn &= "Trusted_Connection = False;"

        'ADODBオブジェクト作成
        mCon = New ADODB.Connection
        '作業領域をクライアント側に設定
        mCon.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        'SQLServerオープン
        mCon.Open(cn)
'SQL初期化
        strSQL = ""

**********このSQLの書き方がおかしいと思います。*********
strSQL = "SELECT * INTO TESTCD FROM " & _
                 "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
                 "'Data Source=C:\test\TEST.xls;" & _
                 "Extended Properties=Excel 8.0')...[TEST$]"
        ’**********このSQLの書き方がおかしいと思います。*********

mCon.Execute(strSQL)

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

0

INSERT INTO [tableA]
SELECT * FROM [tableB]
じゃないでしたっけ。

あと、ファイルの置き場はPGの実行PCではなく、DBサーバになりますのでご注意を。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/03/31 10:42

    回答有難うございます。ご教授いただいた方法でやってはみましたが、
    「SQL Server によって、コンポーネント 'Ad Hoc Distributed Queries' の STATEMENT 'OpenRowset/OpenDatasource' に対するアクセスがブロックされました。このサーバーのセキュリティ構成で、このコンポーネントが OFF に設定されているためです。システム管理者は sp_configure を使用して、'Ad Hoc Distributed Queries' の使用を有効にできます。'Ad Hoc Distributed Queries' を有効にする手順の詳細については、SQL Server オンライン ブックで、'Ad Hoc Distributed Queries' を検索してください」というエラーが出ています(すみません。以前から出ていました)。SQLServer側は既に稼動しているので、設定は変更しない状態で解決できる方法はございますでしょうか?

    キャンセル

0

スキーマが同じなら

INSERT INTO [SQLServerTable]
SELECT * FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0',
'Data Source=C:\test\TEST.xls;Extended Properties=EXCEL 8.0')...[TEST$] ;

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/03/31 10:42

    回答有難うございます。ご教授いただいた方法でやってはみましたが、
    「SQL Server によって、コンポーネント 'Ad Hoc Distributed Queries' の STATEMENT 'OpenRowset/OpenDatasource' に対するアクセスがブロックされました。このサーバーのセキュリティ構成で、このコンポーネントが OFF に設定されているためです。システム管理者は sp_configure を使用して、'Ad Hoc Distributed Queries' の使用を有効にできます。'Ad Hoc Distributed Queries' を有効にする手順の詳細については、SQL Server オンライン ブックで、'Ad Hoc Distributed Queries' を検索してください」というエラーが出ています(すみません。以前から出ていました)。SQLServer側は既に稼動しているので、設定は変更しない状態で解決できる方法はございますでしょうか?

    キャンセル

  • 2016/03/31 11:32

    [ad hoc distributed queries サーバー構成オプション](https://msdn.microsoft.com/ja-jp/library/ms187569.aspx)

    > SQL Server の既定では、OPENROWSET および OPENDATASOURCE を使用したアドホックな分散クエリは実行できません。このオプションを 1 に設定すると、SQL Server でアドホック アクセスを実行できます。このオプションを設定しなかった場合または 0 に設定した場合は、SQL Server でアドホック アクセスを実行できません。

    OPENDATASOURCE 関数はアドホック アクセスを使うようなので、設定が変更できないとなると難しいと思います

    どんなスキーマかわかりませんが稼働中のシステムに対してならバルクインサートでいいんじゃないですか?

    キャンセル

関連した質問

同じタグがついた質問を見る

  • VB.NET

    940questions

    Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。