string ls_sql
ls_sql =" sp_addlogin 'sa_test','sa_test','master'"//添加服务器用户
sqlca.autocommit = true
execute IMMEDIATE :ls_sql;
if sqlca.sqlcode<>0 then
messagebox(string(sqlca.sqlcode),sqlca.sqlerrtext)
end if
ls_sql = "EXEC sp_addsrvrolemember 'sa_test', 'sysadmin'"//添加到dba里
execute IMMEDIATE :ls_sql;
if sqlca.sqlcode<>0 then
messagebox(string(sqlca.sqlcode),sqlca.sqlerrtext)
end if
sqlca.autocommit = false