VBAをVBで焼き直ししたい
access2003 VBAで下記のように、クエリー(qqq00)を作成し、
そのクエリー元に再処理をし、テーブル(tb0)にupdateしています。
このVBAを、VB2010に焼き直しをしたいのですが、
分かりませんので教えて頂けませんか。
(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\xxxxxs.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)テーブル(tb0)へのupdate方法
Table.Dispose()
Adapter.Dispose()
SQLCm.Dispose()
Cn.Dispose()
End Sub
お礼
あるっぽいですね。しかし英語orz ありがとうございました。