In some operations that process MSDE. Some SQL scripts are required. Some is the script from SQL generated in SQL Server 2000. No Enterprise Manager in MSDE, the operation is done in the program. So use the following functions to perform SQL scripts. // Perform a SQL angle book file, the file can only be ansi encoded. // If the file is unicode encoded, it will be garbled. var s: string; sqltext: string; sqlfile: TextFile; begin if OpenDialog1.Execute then begin AssignFile (sqlfile, OpenDialog1.FileName); FileMode: = 0; Reset (sqlfile); try ADOConnection1.BeginTrans; while not eof (sqlfile) Do Begin Readln; SQLText: = S; While (NOT EOF (SQLFILE)) AND (Uppercase) <> Go ') Do Begin Readln (SQLFile, S); IF (Uppercase Trim (s)) <> 'go') Then Sqltext: = SQLText '' S; end; adoquery1.close; adoQuery1.sql.clear; adoQuery1.sql.add (sqltext); adoQuery1.execsql; end; closefile sqlfile); ADOConnection1.CommitTrans; application.MessageBox ( 'SQL angle completed the present!', 'prompt', MB_OK MB_ICONINFORMATION); except raise exception.Create ( 'SQL angle present failed!'); ADOConnection1.RollbackTrans; end; End; end; where: Adoconnection1, AdoQuery1, OpenDialog1 are all controls placed in the window. It can be set to a local variable, created and destroyed in this function. 20:03:52
