VBAをＶＢで焼き直ししたい

質問

access2003 VBAで下記のように、クエリー（qqq00)を作成し、
そのクエリー元に再処理をし、テーブル（ｔｂ0）にupdateしています。
このＶＢＡを、ＶＢ2010に焼き直しをしたいのですが、
分かりませんので教えて頂けませんか。

（access2003のプログラム）

sql00 = " SELECT xren.*" _
& " FROM xren ; "

sql01 = " SELECT Avg(qqq00.kei04) AS avkei04," _
& " FROM qqq00 ; "

Set qrdef_0 = db.CreateQueryDef("qqq00", sql00)

Set tb = db.OpenRecordset("qqq00")

Do

nsu = nsu + 1

tb0.AddNew

tb0!ren_no = tb!ren_no
tb0!avkei04 = tb!avkei04

tb0.Update

tb.MoveNext

Loop Until tb.EOF

DoCmd.DeleteObject acQuery, "qqq00"
qrdef_0.Close: Set qrdef_0 = Nothing

（VB2010のプログラム）

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\ｘｘｘｘｘs.mdb")
    Dim SQLCm As OleDbCommand = Cn.CreateCommand
    Dim Adapter As New OleDbDataAdapter(SQLCm)
    Dim Table As New DataTable
    SQLCm.CommandText = "SELECT * xren"
    Adapter.Fill(Table)

ここからが分かりません。
　　　　　(1)クエリー（qqq00）名のつけ方
　　　　　(2)qqq00の実行方法
　　　　　(3)テーブル（ｔｂ0）へのupdate方法

    Table.Dispose()
    Adapter.Dispose()
    SQLCm.Dispose()
    Cn.Dispose()
End Sub

回答No.1

ky2605 · ベストアンサー

AccessやExcelのVBAと、VB2010はいろいろ違って大変ですね…
私も移植でいろいろ苦労しています。

さて、クエリを作成して発行する以外の方法は、絶対ダメですか？
クエリは、結局はSQLですから、データを選択してくるSELECTのＳＱＬの結果を元に、UPDATEのＳＱＬを制作して、接続しているデータベースに発行してはどうでしょうか？

--------------------
Dim sql_01 As String
Dim sql_02 As String
Dim com As OleDb.OleDbCommand
Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database\ｘｘｘｘｘs.mdb")

Cn.Open()

sql_01 = "SELECT * FROM xren;"
Dim command As System.Data.OleDb.OleDbCommand = Cn.CreateCommand
command.CommandText = sql_01
Dim reader As System.Data.OleDb.OleDbDataReader = command.ExecuteReader()

If reader.HasRows = True Then
While reader.Read()

sql_02 = "UPDATE [tb0] SET [avkei04] = "
sql_02 = sql_02 & reader(1)
sql_02 = sql_02 & " WHERE [ren_no] ="
sql_02 = sql_02 & reader(0)
sql_02 = ";"
com = New OleDb.OleDbCommand(sql_02, Cn)
com.ExecuteNonQuery()
com.Dispose()

End While
Else
' レコードが取得できなかった時の処理
MessageBox.Show("レコードがありません")
End If
--------------------

SELECT * FROM xren; でいくつフィールドが返ってくるのか判らないので、とりあえず、IDともう一つしか返ってこない前提です。

reader(0)　reader(1)　は、SQLのフィールド番号になります。

ハズしているかもしれませんが、いかがでしょうか？