Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


25088 / 76732 ←次へ | 前へ→

【56988】Re:アクセスとのやり取り
質問  Excelアクセス  - 08/7/16(水) 15:54 -

引用なし
パスワード
   ▼ハチ さん:
>▼Excelアクセス さん:
>>アクセスのDBへ保存と読み込みをする場合に何か設定することはあるでしょうか?
>>同じ、エクセル2003を使用して、あるパソコンでは動作してあるパソコンでは動作しないとという現象に悩まされています。パソコンは同一機種でエクセルも2003を使用しています。アクセスとリンクするのは初めてですので、お分かりの方いらっしゃいましたらお教えて下さい。
>>お手数おかけしますが、お願いいたします。
>
>『どうやって』アクセスとデータをやりとりしているのか? を、
>書かないと、わかりませんよ。

申し訳ありませんです。

構文は以下の通りです。
Private Sub CommandButton1_Click()
Dim count_DATA As Integer
Dim IRow As Long

'シートクリア
Worksheets("DATA").Activate
Worksheets("DATA").Range(Cells(2, 1), Cells(500, 49)).Value = ""

'アクセスから情報取り込み
Dim myCon As ADODB.Connection
Dim myRS As ADODB.Recordset
 
Set myCon = New ADODB.Connection
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=\データ.mdb"

 Set myRS = New ADODB.Recordset
 
 On Error Resume Next 'DB空の処理
  
 myRS.Open "データベース", myCon, adOpenDynamic, adLockOptimistic
 ⇒(adOpenDynamicがコンパイルエラーになります。)
 myRS.Update
 
 myRS.MoveFirst
 Do Until myRS.EOF = True
  
   count_DATA = 2
   Do Until Worksheets("DATA").Cells(count_DATA, "A").Value = ""
    count_DATA = count_DATA + 1
   Loop
   
   Worksheets("DATA").Cells(count_DATA, "A").Value = myRS![番号]

以上になります。お願いいたします。

0 hits

【56984】アクセスとのやり取り Excelアクセス 08/7/16(水) 14:20 質問
【56985】Re:アクセスとのやり取り ハチ 08/7/16(水) 15:09 発言
【56988】Re:アクセスとのやり取り Excelアクセス 08/7/16(水) 15:54 質問
【56991】Re:アクセスとのやり取り ハチ 08/7/16(水) 17:08 発言
【56992】Re:アクセスとのやり取り neptune 08/7/16(水) 17:25 回答
【56993】Re:アクセスとのやり取り neptune 08/7/16(水) 17:28 発言
【56999】Re:アクセスとのやり取り kanabun 08/7/17(木) 0:29 発言
【57000】Re:アクセスとのやり取り kanabun 08/7/17(木) 0:31 発言
【57001】Re:アクセスとのやり取り kanabun 08/7/17(木) 0:34 発言
【57004】Re:アクセスとのやり取り Excelアクセス 08/7/17(木) 10:26 お礼
【57006】Re:アクセスとのやり取り Excelアクセス 08/7/17(木) 11:17 質問
【57012】Re:アクセスとのやり取り ハチ 08/7/17(木) 13:46 回答
【57015】Re:アクセスとのやり取り neptune 08/7/17(木) 14:08 発言
【57018】Re:アクセスとのやり取り Excelアクセス 08/7/17(木) 15:23 お礼

25088 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free