>>> execstr = "EXEC 'create table c:\taffble1 (xfield1 c(20))'"
>>> oConn.Execute(execstr)
>>>
>>>Which I don't understand either.>execstr = "EXEC 'insert into users (name,username,password,authlevel,organization,email) values " >execstr = execstr & "([Name],[UserName],0,[Organization],[email])'" & crlf >execstr = execstr & "'return user_id'" > >lcUser = oConn.Execute(execstr) >>
#include AdoConstants.h Local cn As 'AdoDb.Connection', rs As 'AdoDb.Recordset', cmd As 'AdoDb.Command',; p0 As 'AdoDb.Parameter',p2 As 'AdoDb.Parameter',p3 As 'AdoDb.Parameter' cn = Createobject('AdoDb.Connection') cn.ConnectionString = "Provider=VFPOLEDB;Data Source=c:\temp\aitest.dbc" cn.Open() cmd = Createobject('AdoDb.Command') cmd.ActiveConnection = cn TEXT TO cCommand noshow LPARAMETERS p1,p2 INSERT INTO myAITest (f2,f3) values (m.p1,m.p2) RETURN myAITest.f1 ENDTEXT cmd.CommandType=4 cmd.CommandText='ExecScript(?,?,?)' p0 = cmd.CreateParameter("commandBody", adVarChar, adParamInput,1000) p1 = cmd.CreateParameter("f2", adVarChar, adParamInput,20) p2 = cmd.CreateParameter("f3", adDate, adParamInput) cmd.Parameters.Append(p0) cmd.Parameters.Append(p1) cmd.Parameters.Append(p2) p0.Value = m.cCommand p1.Value = "InsertTest" p2.Value = Date() rs = cmd.Execute() ? rs.Fields(0).Value rs.Close() cn.Close()Cetin