forum.clarionlife.net

Код: Выделить всё

GLO:Conn&=sqlConnect('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='&clip(loc:DBName)&';Jet OLEDB:Database Password=111111;',Err#)

Код: Выделить всё

 sqlExecute(GLO:Conn,'INSERT INTO Firm ('&|
 '[Name],'&|
 '[Index],'&|
 '[Country],'&|
 '[Town],'&|
 '[Region],'&|
 '[Street],'&|
 '[House],'&|
 '[Korp],'&|

......................

 '[Deleted]'&|
 ') VALUES ('&|
 ''''&clip(QP:Name)&''','&|
 ''''&clip(QP:Index)&''','&|
 ''''&clip(QP:idCountry)&''','&|
 ''''&clip(QP:idTown)&''','&|
 ''''&clip(QP:idRegion)&''','&|
 ''''&clip(QP:idStreet)&''','&|
 ''''&clip(QP:House)&''','&|
 ''''&clip(QP:Korp)&''','&|

..........................

 ''''&(0)&''''&|
 ');')

Код: Выделить всё

sqlExecute           PROCEDURE  (pConn,sqlQuery,<queryQ>,<FlagPosition>) ! Declare Procedure
pRecordSet            &CRecordSet
pCommand              &CCommand
pFields               &CFields
pField                &CField

cstrCommandText       CSTRING(5120)
bEof                  SHORT
dwCount               LONG
bstrName              BSTRING

gVar                  LIKE(gVariant)
aVar                  VARIANT,OVER(gVar)

posCounter            LONG
CurrentQueueField     ANY
CurrentQueueFieldName STRING(64)

  CODE
 if ~omitted(3)
    free(queryQ)
 end

 if (GLO:xPCListConn&=NULL) then return.

 pRecordSet &= new(CRecordSet)
 Err#=pRecordSet.Init()
 Err#=pRecordSet.PutCursorLocation(adUseClient)
 pFields &= new(CFields)
 pField &= new(CField)

 pCommand &= new(CCommand)
 if ~(pCommand &=NULL)
    Err#=pCommand.Init()
    Err#=pCommand.PutRefActiveConnection(pConn)
    Err#=pCommand.PutCommandType(adCmdText)
    cstrCommandText=clip(sqlQuery)
    Err#=pCommand.PutCommandText(cstrCommandText)
    pRecordSet&=pCommand._Execute(,Err#)
    if ~Err# ! если все без ошибок
       if ~omitted(3)
         if NOT pRecordSet.GetEof(bEof) then
           if bEof<>-1 then
             do ProcessFields
             loop
                if pRecordSet.MoveNext() then break.
                if pRecordSet.GetEof(bEof) then break.
                if bEof=-1 then break.
                do ProcessFields
             end
           end
         end
       end
    end
 end

 !!!AnDS -- этого кода в примере не было, думал поможет память освободить -- не помогло :-(
 dispose(pField)
 dispose(pFields)
 pRecordSet.Destruct()
 !!!AnDS

ProcessFields routine
 pFields &= pRecordSet.GetFields(Err#)
 Err# = pFields.GetCount(dwCount)

 loop i#=0 to dwCount-1
    pField &= pFields.GetField(i#, Err#)
    Err#=pField.GetName(bstrName)
    Err#=pField.GetValue(gVar)
    case FlagPosition
       of sql:ByName
          posCounter=0
          loop
             posCounter+=1
             CurrentQueueFieldName=WHO(queryQ,posCounter)
             if clip(CurrentQueueFieldName)='' then break.
             if UPPER(clip(CurrentQueueFieldName))=UPPER(clip(bstrName))
                CurrentQueueField&=WHAT(queryQ,posCounter)
                if ~(CurrentQueueField&=NULL)
                   CurrentQueueField=aVar
                end
             end
          end
       of sql:ByPos
          CurrentQueueField&=WHAT(queryQ,i#+1)
          if ~(CurrentQueueField&=NULL)
             CurrentQueueField=aVar
          end
    end
 end
 if (dwCount) then add(queryQ). ! пропустим если пусто

Код: Выделить всё

myfile{prop:sql}='SELECT a,b,c FROM ' & myfile{prop:name} & ' WHERE d=' & x

Код: Выделить всё

LOOP
  NEXT(myfile)
  IF ERRORCODE() THEN BREAK END
END

Код: Выделить всё

myfile FILE,DRIVER('ODBC'),NAME
...
END