Fernando,

Iniciei no Clipper e logo passei pra FoxPro. Minha esperiência em Clipper é muito pequena. Foi só o início mesmo. Já trabalhei com Delphi, talvez por isso se lembrou do Pascal ao ver meu código.

Mas falando do problema que apresentei, cheguei à conclusão que o ideal é utilizar parâmetros(ADODB.Parameter) - com eles não ocorre o problema e também, parece, que não permitem a Injeção de SQL.

>Geraldo,
>
>Infelizmente não posso te ajudar neste assunto, mas gostaria de te parabenizar pela "caligrafia" utilizada neste teu trecho de programa. Por acaso vens do Pascal?
>
>Fernando
>
>>Pessoal,
>>
>>Como faço pra configurar uma conexão ADODB.Connection pra trabalhar com a data formatada no formato DMY. Sei que posso executar a instrução "Set dateformat DMY", que faz o SQLServer trabalhar no formato DMY, mas essa instrução está trabalhando pra, somente, uma execução. Na segunda já não funciona mais como demonstrado abaixo.
>>

>>Local oConn as ADODB.Connection, lcString as String
>>***************************************************
>>oConn = CreateObject("ADODB.Connection")
>>Text to lcString textmerge noshow pretext 1
>>Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=password;Initial Catalog=scd4;Data Source=Server
>>EndText
>>***************************************************
>>oConn.ConnectionString = lcString
>>oConn.Open()
>>oConn.Execute("Set dateformat dmy") && Formata a data da conexão pra DMY
>>***************************************************
>>Clear
>>Set Step On
>>lcInstruc = "Select top 3 * from Distr where Dis_DT < '18/08/2004'"
>>rs = oConn.Execute(lcInstruc) && Funciona
>>?rs.Fields("Dis_DT").Value    && Comprova que o Execute anterior, realmente, funcionou
>>***************************************************
>>lcSql  = "Select Ped_Cod from PedCert where Ped_Usu_Imp = 0"
>>loRS = oConn.Execute(lcSQL) && Executo outro Select qualquer - também funciona
>>?loRS.Fields(0).Value && Comprova que o Execute anterior, realmente, funcionou
>>***************************************************
>>rs = oConn.Execute(lcInstruc) && Agora aquele primeiro Execute não funciona mais dando erro de formato de data
>>