Local oSQL As "SQLDMO.SQLServer",; oDatabase As "SQLDMO.Database",lcCmd as String lcCmd = Thisform.edtSql.Value && Script SQL If !Empty(lcCmd) Try oSQL = Createobject('SQLDMO.SQLServer') oSQL.Connect(<servidor>, <usuario>, <senha>) oDatabase = oSQL.Databases(_Screen.banco) lcMsg = "" oDatabase.ExecuteWithResultsAndMessages(lcCmd,, @lcMsg) Catch To oError =RotinaDeErro(oError) Finally Endtry EndifMensage Error:
OLE IDispatch exception code 170 from Microsoft SQL-DMO (ODBC SQLState: 42000): [Microsoft][ODBC SQL Server Driver][SQL Server]Line 3: Incorrect syntax near 'GO'. [Microsoft][ODBC SQL Server Driver][SQL Server]Line 6: Incorrect syntax near 'GO'. [Microsoft][ODBC SQL Server Driver][SQL Server]Line 8: Incorrect syntax near 'GO'. [Microsoft][ODBC SQL Server Driver][SQL Server]'CREATE VIEW' must be the first statement in a query batch. [Microsoft][ODBC SQL Server Driver][SQL Server]Line 21: Incorrect syntax near 'GO'. [Microsoft][ODBC SQL Server Driver][SQL Server]Line 23: Incorrect syntax near 'GO'. [Microsoft][ODBC SQL Server Driver][SQL Server]Line 25: Incorrect syntax near 'GO'...