smoketestoo_native/data/scripts/Test_DB.xba

   1 <?xml version="1.0" encoding="UTF-8"?>
   2 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
   3 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Test_DB" script:language="StarBasic">REM  *****  Database Test  *****
   4
   5 const cMessageDatabaseService = &quot;Database Service&quot;
   6 const cMessageDatabaseOpen = &quot;Open Database&quot;
   7 const cMessageDatabaseInsert = &quot;Insert record into Database&quot;
   8 const cMessageDatabaseDelete = &quot;Delete record from Database&quot;
   9 const cMessageDatabaseSeek = &quot;Read other record from Database&quot;
  10 const cMessageDatabaseClose = &quot;Close Database&quot;
  11
  12 Sub TestDB (FilterType as Integer)
  13
  14 Dim oDBConnection as Object, oDataSource as Object, oDBContext as Object
  15 Dim sDBName as String, sTable as String, sCurrentMessage as String
  16 Dim nRowCount as Integer, nCurrentAction as Integer
  17 Dim bResult as Boolean
  18 Const sTestString = &quot;Automatical Test&quot;
  19
  20
  21         On Local Error GoTo DBERROR
  22
  23         nCurrentAction = cLogfileFailed
  24         FileChannel% = OpenLogDat (GetLogFileName(FilterType))
  25
  26         nCurrentAction = cDBService
  27         sCurrentMessage = cMessageDatabaseService + &quot; &quot; + cUnoDatabaseContext
  28
  29         oDBContext = CreateUnoService(cUnoDatabaseContext)
  30         sDBName=oDBContext.ElementNames(0) &apos;Names of Databases
  31
  32         nCurrentAction = cDBOpen
  33         sCurrentMessage = cMessageDatabaseOpen
  34
  35         oDataSource = oDBContext.GetByName(sDBName)
  36         sTable=oDataSource.Tables.ElementNames(0)
  37         oDBConnection = oDBContext.GetByName(sDBName).GetConnection(&quot;&quot;,&quot;&quot;)
  38
  39         LogState (not IsNull (oDBConnection), &quot;Database &quot;+ cMessageDatabaseOpen, FileChannel)
  40         LogState (not IsNull (oDBConnection), &quot;Database &quot;+ cMessageDatabaseOpen, MainFileChannel)
  41         SetStatus (FilterType, cDBOpen, not IsNull (oDBConnection))
  42         if (IsNull(oDBConnection)) then
  43                 Close #FileChannel%
  44                 Exit Sub
  45         End If
  46
  47         &apos; Database is open now
  48
  49         nCurrentAction = cDBService
  50         sCurrentMessage = cMessageDatabaseService + &quot; &quot; + cUnoRowSet
  51         oRowSet = createUnoService(cUnoRowSet)
  52
  53         if (IsNull(oRowSet)) then
  54                 LogState (not IsNull (oRowSet), &quot;Database &quot;+ cMessageDatabaseService + &quot; &quot; + cUnoRowSet, FileChannel)
  55                 LogState (not IsNull (oRowSet), &quot;Database &quot;+ cMessageDatabaseService + &quot; &quot; + cUnoRowSet, MainFileChannel)
  56                 SetStatus (FilterType, cDBService, not IsNull (oRowSet))
  57                 Exit Sub
  58         else
  59                 LogState (not IsNull (oRowSet), &quot;Database &quot;+ cMessageDatabaseService, FileChannel)
  60                 LogState (not IsNull (oRowSet), &quot;Database &quot;+ cMessageDatabaseService, MainFileChannel)
  61                 SetStatus (FilterType, cDBService, not IsNull (oRowSet))
  62         End If
  63
  64         nCurrentAction = cDBInsert
  65         sCurrentMessage = cMessageDatabaseInsert
  66
  67         oRowSet.ActiveConnection = oDBConnection
  68
  69     oRowSet.CommandType = com.sun.star.sdb.CommandType.COMMAND
  70     oRowSet.Command = &quot;SELECT * FROM &quot; + sTable
  71         oRowSet.execute()
  72
  73         oRowSet.moveToInsertRow
  74         oRowSet.updateString(5, sTestString)
  75
  76         oRowSet.insertRow()
  77         nRowCount=oRowSet.RowCount
  78
  79         oRowSet.moveToCurrentRow()
  80
  81         bResult = (oRowSet.getString(5) = sTestString)
  82         LogState (bResult, &quot;Database &quot;+ cMessageDatabaseInsert, FileChannel)
  83         LogState (bResult, &quot;Database &quot;+ cMessageDatabaseInsert, MainFileChannel)
  84         SetStatus (FilterType, cDBInsert, bResult)
  85
  86         &apos;delete only if insert passed
  87
  88         if (bResult) Then
  89                 nCurrentAction = cDBDelete
  90                 sCurrentMessage = cMessageDatabaseDelete
  91                 oRowSet.deleteRow()
  92                 bResult = (nRowCount - oRowSet.RowCount = 0)
  93                 if ( bResult ) Then
  94                         oRowSet.next()
  95                         bResult = (nRowCount - oRowSet.RowCount = 1)
  96                 End If
  97                 LogState (bResult, &quot;Database &quot;+ cMessageDatabaseDelete, FileChannel)
  98                 LogState (bResult, &quot;Database &quot;+ cMessageDatabaseDelete, MainFileChannel)
  99                 SetStatus (FilterType, cDBDelete, bResult)
 100         End If
 101
 102         &apos; read other record
 103
 104         nCurrentAction = cDBSeek
 105         sCurrentMessage = cMessageDatabaseSeek
 106         oRowSet.first()
 107         bResult = not (oRowSet.getString(5) = sTestString)
 108         LogState (bResult, &quot;Database &quot;+ cMessageDatabaseSeek, FileChannel)
 109         LogState (bResult, &quot;Database &quot;+ cMessageDatabaseSeek, MainFileChannel)
 110         SetStatus (FilterType, cDBSeek, bResult)
 111
 112         nCurrentAction = cDBClose
 113         sCurrentMessage = cMessageDatabaseClose
 114         oDBConnection.Dispose()
 115         LogState (True, &quot;Database &quot;+ cMessageDatabaseClose, FileChannel)
 116         LogState (True, &quot;Database &quot;+ cMessageDatabaseClose, MainFileChannel)
 117         SetStatus (FilterType, cDBClose, True)
 118
 119         Print #FileChannel, &quot;---&quot;
 120         Close #FileChannel%
 121         Exit Sub &apos; Without error
 122
 123         DBERROR:
 124         If      (nCurrentAction = cLogfileFailed) then
 125                 SetStatus (FilterType, cDBOpen, False)
 126                 Exit Sub
 127         else
 128                 LogState (False, &quot;Database &quot;+ sCurrentMessage, FileChannel)
 129                 LogState (False, &quot;Database &quot;+ sCurrentMessage, MainFileChannel)
 130                 SetStatus (FilterType, nCurrentAction, False)
 131                 Close #FileChannel%
 132         End If
 133         Exit Sub &apos; With error
 134 End Sub
 135 </script:module>