| |
▼ハチ さん：
>▼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![番号]
以上になります。お願いいたします。
|
|
Excelｱｸｾｽ
- 08/7/16(水) 15:54 -
