Dim rstCycle As New ADODB.Recordset rstCycle.CursorLocation = adUseClient rstCycle.CursorType = adOpenStatic rstCycle.LockType = adLockOptimistic rstCycle.Open strSql, cnnSql If rstCycle.RecordCount > 0 Then rstCycle.Save strOutFile, adPersistXML End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)