在PB下开发，我们经常遇到要把数据库的数据导出来变成Excel的问题。网络上有利用第三方组件去完成这个任务的例子。我这里介绍用DataStore检索数据，然后导出Excel。

关键点：

  • 1.SyntaxFromSQL
  • 2.DataStore.Create from the format SQL
  • 3.DataStore.SetTransObject
  • 4.DataStore.Retrieve
  • 5.DataStore.SaveAs

源代码：

 
  
  1. string ERRORS, sql_syntax 
  2.  
  3. string presentation_str, dwsyntax_str 
  4.  
  5. sql_syntax = "select id, fname, lname, address, phone from customer" 
  6.  
  7. presentation_str = "style(type=grid)" 
  8.  
  9. dwsyntax_str = SQLCA.SyntaxFromSQL(sql_syntax, presentation_str, ERRORS) 
  10.  
  11. IF Len(ERRORS) > 0 THEN 
  12.    MessageBox("Caution", "SyntaxFromSQL caused these errors: " + ERRORS) 
  13.    GOTO Exit_PT 
  14. END IF 
  15.  
  16. DataStore dob 
  17. dob = create DataStore 
  18. dob.create(dwsyntax_str, ERRORS) 
  19.  
  20. IF Len(ERRORS) > 0 THEN 
  21.    MessageBox("Caution", "Create cause these errors: " + ERRORS) 
  22.    GOTO Exit_PT 
  23. END IF 
  24.  
  25. IF dob.SetTransObject(SQLCA) <> 1 THEN 
  26.    MessageBox("Caution", "Fail at SetTransObject") 
  27.     GOTO Exit_PT 
  28. END IF 
  29.  
  30. IF dob.Retrieve() = -1 THEN 
  31.    MessageBox("Caution", "Fail at Retrieve") 
  32.     GOTO Exit_PT 
  33. END IF 
  34.  
  35. IF dob.SaveAs("C:\test.XLS", Excel!, true) <> 1 THEN 
  36.    MessageBox("Caution", "Fail at SaveAs") 
  37.     GOTO Exit_PT 
  38. ELSE 
  39.     MessageBox("Caution", "SUCCEED") 
  40. END IF 
  41.  
  42. Exit_PT:  
  43. IF IsValid(dob) THEN 
  44.     Destroy dob 
  45. END IF 
 
  
导出的Excel：