SELECT * FROM SomeTable WHERE Fld1 = ? AND Fld2 = ?>
>TEXT TO lcSQL NOSHOW PRETEXT 15 TEXTMERGE > SELECT * FROM SomeTable WHERE Fld1 = ?MyVar >ENDTEXT > >oConn = CREATEOBJECT("ADODB.Connection") >oConn.ConnectionString = ...... >oConn.Open() >oComm = CREATEOBJECT("ADODB.Command") >oComm.ActiveConnection = oConn >oPar1 = CREATEOBJECT("ADODB.Parameter") >oPar1.Direction = 1 >oPar1.Type = 3 && adInteger >oPar1.Value = 1 >oComm.Parameters.Append(oPar1) >oComm.CommandText = m.lcSQL >oRs = oComm.Execute() >>
>TEXT TO lcSQL NOSHOW PRETEXT 15 TEXTMERGE > SELECT * FROM SomeTable WHERE Fld1 = ?MyVar1 AND Fld2 = ?MyVar2 >ENDTEXT > >oConn = CREATEOBJECT("ADODB.Connection") >oConn.ConnectionString = ...... >oConn.Open() >oComm = CREATEOBJECT("ADODB.Command") >oComm.ActiveConnection = oConn >oPar1 = CREATEOBJECT("ADODB.Parameter") >oPar2 = CREATEOBJECT("ADODB.Parameter") >oPar1.Direction = 1 >oPar1.Type = 3 && adInteger >oPar1.Value = 1 > >oPar2.Direction = 1 >oPar2.Type = 3 && adInteger >oPar2.Value = 222 >oComm.Parameters.Append(oPar1) >oComm.Parameters.Append(oPar2) >oComm.CommandText = m.lcSQL >oRs = oComm.Execute() &&& BOOM with "Unrecognized command .... >>