
May 14th, 2003, 05:53 PM
|
|
Junior Member
|
|
Join Date: Apr 2003
Location: Chico, CA
Posts: 14
Time spent in forums: < 1 sec
Reputation Power: 0
|
|
|
more info
here's some code I'm trying to use:
*********************************************
With cmdDyn
.ActiveConnection = connDyn
.CommandType = adCmdText
.CommandText = " SHAPE APPEND(" _
& " NEW adInteger as unit, " _
& " NEW adBSTR as clerk_id, " _
& " NEW adInteger as unit, " _
& " NEW adDouble as prod_time, " _
& " NEW adInteger as claims_worked, " _
& " NEW adDouble as clms_hr, " _
& " NEW adInteger as corrected, " _
& " NEW adInteger as reviewed, " _
& " NEW adInteger as flds_hr) as command1" _
& " COMPUTE command1 by 'unit'"
End With
Set rsDyn = CreateObject("adodb.recordset")
rsDyn.Open cmdDyn
********************************************
I've tried with and without the APPEND in the shape command,
but I get a syntax error on the rsDyn.Open line either way.
Is it not obvious what I'm trying to do?
|