a、b、x、Pの4つのフィールドを持つsimple_tableがあります
他のフィールドを入力パラメーターとして使用する関数の出力に基づいて、フィールド p を更新しようとしています。この場合、関数は Excel 関数です。私は SQL サーバーを使用していましたが、いくつかの統計関数にアクセスする必要があります。というわけで、昨日初めてアクセスを開放しました。イーク。私は最後の日を vba の学習に費やし、レコードセットに関するさまざまなチュートリアルに従いました。
私が苦労しているのは、他のフィールドに基づいて P フィールドを更新する方法です。ループで?
どうもありがとう。
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
'Test it works
MsgBox objExcel.Application.BetaDist(0.4, 2, 5)
'OK, that works :)
'set up the ADO stuff
Dim cnn1 As ADODB.Connection
Dim MyRecordSet As New ADODB.Recordset
Set cnn1 = CurrentProject.Connection
MyRecordSet.ActiveConnection = cnn1
'Load data into MyRecordSet
MySQLcmd = "SELECT * FROM simple_table"
MyRecordSet.Open MySQLcmd
'HELP WITH THE NEXT BIT PLEASE!
'Some kind of loop to go through the recordset to set the field P
' equal to the result of the excel function betadist(x,a,b)
'I imagine looping through something like the following semi pseudo code ???
myRecordSet.Fields(“P”).Value = objExcel.Application.BetaDist(myRecordSet.Fields(“x”).Value, myRecordSet.Fields(“a”).Value, myRecordSet.Fields(“b”).Value)
'end of the loop
objExcel.Quit
Set objExcel = Nothing
MyRecordSet.Close
cnn1.Close
Set MyRecordSet = Nothing
Set cnn1 = Nothing