Изменения

<code> rem('Копируем данные из «родной» "родной" базы данных в базу MSSQL.'); new('TSelfADO', 'MyDB'); new('TADO', 'MSSQL'); MSSQL.Connect('Provider=SQLOLEDB.1;Password=myPassword;Persist Security Info=True;User ID=myUsername;Initial Catalog=myDataBase;Data Source=myServerAddress'); MyDB.Open('select code, name, passport from kurier where code>'+Int(MSSQL.Query('select max(code) from kurier'))+' order by code'); While(MyDB.EOF=0, MSSQL.Query('insert kurier (code, name, passport) VALUES ('+MyDB.Code+', '+QuotedStr(MyDB.Name)+', '+QuotedStr(MyDB.Passport)+')'); MyDB.Next; )</code>;