diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-06-18 12:18:28 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-06-18 12:18:28 +0000 |
| commit | aa1ad31f15769c121922028335979f570cdc434e (patch) | |
| tree | ca32c2c0108d387a768e1c69007a9f7ea595f33f /wizards/source/formwizard/DBMeta.xba | |
| parent | 56dfa18fd302c8920140c19d82ae89b686e499b0 (diff) | |
#87606# Numericfields by FormattedFields replaced
Diffstat (limited to 'wizards/source/formwizard/DBMeta.xba')
| -rw-r--r-- | wizards/source/formwizard/DBMeta.xba | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/wizards/source/formwizard/DBMeta.xba b/wizards/source/formwizard/DBMeta.xba index b32f9dda85cc..72766c021745 100644 --- a/wizards/source/formwizard/DBMeta.xba +++ b/wizards/source/formwizard/DBMeta.xba @@ -18,7 +18,8 @@ Dim bGetMetaData as Boolean If Ubound(oDialogModel.lstDatabases.SelectedItems()) > -1 Then ToggleDatabasePage(False) DBIndex = oDialogModel.lstDatabases.SelectedItems(0) - If GetConnection(sDatabaseList(DBIndex)) Then + sDBName = sDatabaseList(DBIndex) + If GetConnection(sDBName) Then bGetMetaData = GetDBMetaData() End If If bGetMetaData Then @@ -49,7 +50,7 @@ Dim iMsg as Integer Else oInteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler") oDataSource = oDBContext.GetByName(sDBName) -' On Local Error Goto NOCONNECTION + On Local Error Goto NOCONNECTION Do bExitLoop = True oDBConnection = oDataSource.ConnectWithCompletion(oInteractionHandler) @@ -61,8 +62,8 @@ Dim iMsg as Integer End If On Local Error Goto 0 Loop Until bExitLoop + GetConnection() = bGetConnection End If - GetConnection() = bGetConnection End Function |