大伙给看看吧,停着急的

Question

adoconnection2.Close;
         memo1.Lines.Add('尝试使用 OraOLEDB.Oracle.1 连接数据库。  ');
         adoconnection2.ConnectionString:=
             'Provider=OraOLEDB.Oracle.1;'+
             'Persist Security Info=True;'+
             'User ID='+ user+
             ';Password='+ pwd+
             ';Data Source='+SERVER+';"';
         try
           adoconnection2.Open;
           memo1.Lines.Add('使用 OraOLEDB.Oracle.1 连接数据库成功。');
           memo1.Lines.Add(' '  );
         except
           on E: Exception do
           begin
           memo1.Lines.Add( '使用 OraOLEDB.Oracle.1 连接数据库失败。');
           memo1.Lines.Add( '原因 '+E.Message );
           memo1.Lines.Add(  '' );
           beep;
           end;
         end;
 
       ADOQuery2.SQL.Text:= '  alter procedure '+
                                  trim(memo1.Lines[i]) +
                                  ' compile;';
             memo1.Lines.Add(ADOQuery2.SQL.Text);
             try
             ADOQuery2.ExecSQL;
             except
                            on E: Exception do
                            begin
                              memo1.Lines.Add( '错误！'+E.Message );
                              beep;
                              memo1.Lines.Add( 'SQL='+ adoquery2.SQL.Text);
                              adoquery2.Close;
                            end;
             end;
             end;==============================================
错误！OLE error 80040E14
SQL=  alter procedure apply_material_to_item_proc compile;

Answer 1

adoconnection2.Close;
         memo1.Lines.Add('尝试使用 OraOLEDB.Oracle.1 连接数据库。  ');
         adoconnection2.ConnectionString:=
             'Provider=OraOLEDB.Oracle.1;'+
             'Persist Security Info=True;'+
             'User ID='+ user+
             ';Password='+ pwd+
             ';Data Source='+SERVER+';"';
         try
           adoconnection2.Open;
           memo1.Lines.Add('使用 OraOLEDB.Oracle.1 连接数据库成功。');
           memo1.Lines.Add(' '  );
         except
           on E: Exception do
           begin
           memo1.Lines.Add( '使用 OraOLEDB.Oracle.1 连接数据库失败。');
           memo1.Lines.Add( '原因 '+E.Message );
           memo1.Lines.Add(  '' );
           beep;
           end;
         end;
 
       ADOQuery2.SQL.Text:= '  alter procedure '+
                         'procedure apply_material_to_item_proc '+
                                  ' compile;';
             memo1.Lines.Add(ADOQuery2.SQL.Text);
             try
             ADOQuery2.ExecSQL;
             except
                            on E: Exception do
                            begin
                              memo1.Lines.Add( '错误！'+E.Message );
                              beep;
                              memo1.Lines.Add( 'SQL='+ adoquery2.SQL.Text);
                              adoquery2.Close;
                            end;
             end;
             end;==============================================
错误！OLE error 80040E14
SQL=  alter procedure apply_material_to_item_proc compile;

Answer 2

alter procedure procedure apply_material_to_item_proc compile;
什么意思？没有分号吧