Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Perform many SQL statements at once???
Message
 
 
To
All
General information
Forum:
Visual Basic
Category:
Database DAO/RDO/ODBC/ADO
Title:
Perform many SQL statements at once???
Miscellaneous
Thread ID:
00421768
Message ID:
00421768
Views:
52
Is it possible to perform multiple SQL statements at once.
I am using the ADO DataEnvironment with an ACCESS 97 database (if you can call it that)

I have code like the following:
         strSQL = "DROP TABLE tmpEmpTrained, tmpStaffCount, tmpCostLength, CorporateSummary"
         DataEnv.dbTSS.Execute strSQL
         strSQL = "CREATE VIEW tmpEmpTrained AS SELECT DISTINCT EmployeeID FROM Requests"
         DataEnv.dbTSS.Execute strSQL
         strSQL = strSQL + "CREATE VIEW tmpStaffCount AS SELECT StaffCount FROM Budget"
         DataEnv.dbTSS.Execute strSQL
         strSQL = "CREATE VIEW tmpCostLength AS SELECT Sum(ActualCost) AS SumCost, Sum(Length) AS SumLength FROM Requests INNER JOIN Courses ON Requests.CourseID = Courses.ID"
         DataEnv.dbTSS.Execute strSQL
         
         strSQL = "CREATE TABLE CorporateSummary (item0 varchar(50), item1 varchar(30), item2 varchar(30), item3 varchar(30), item4 varchar(30), item5 varchar(30), item6 varchar(30))"
         DataEnv.dbTSS.Execute strSQL
but would prefer to be able to do something like:
  strSQL = "DROP TABLE tmpEmpTrained, tmpStaffCount, tmpCostLength, CorporateSummary;"
  strSQL = strSQL + "CREATE VIEW tmpEmpTrained AS SELECT DISTINCT EmployeeID FROM Requests;"
  strSQL = strSQL + "CREATE VIEW tmpStaffCount AS SELECT StaffCount FROM Budget;"
  strSQL = strSQL + "CREATE VIEW tmpCostLength AS SELECT Sum(ActualCost) AS SumCost, Sum(Length) AS SumLength FROM Requests INNER JOIN Courses ON Requests.CourseID = Courses.ID;"
  strSQL = strSQL + "CREATE TABLE CorporateSummary (item0 varchar(50), item1 varchar(30), item2 varchar(30), item3 varchar(30), item4 varchar(30), item5 varchar(30), item6 varchar(30));"
  DataEnv.dbTSS.Execute strSQL
It doesn't appear to work though?
Is there a way I can perform this task that works other than performing DataEnv.dbTSS.Execute strSQL ad nauseum(sp?).
Next
Reply
Map
View

Click here to load this message in the networking platform