diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-07-12 07:13:52 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-07-12 07:13:52 +0000 |
| commit | 56f146dcfe594a6407993dbb8906bc4a22d5872c (patch) | |
| tree | 97240c8c5f2f9f5f6cb9d9701b8739c8a6477abf /wizards | |
| parent | 32bdf927765b0c429202c06a0048b57c58805530 (diff) | |
#88814# Connection disposed before establishing new one
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/formwizard/DBMeta.xba | 5 | ||||
| -rw-r--r-- | wizards/source/formwizard/FormWizard.xba | 2 |
2 files changed, 3 insertions, 4 deletions
diff --git a/wizards/source/formwizard/DBMeta.xba b/wizards/source/formwizard/DBMeta.xba index cea70228609f..e83240f90ef1 100644 --- a/wizards/source/formwizard/DBMeta.xba +++ b/wizards/source/formwizard/DBMeta.xba @@ -92,7 +92,6 @@ End Function Function GetDBMetaData() If oDBContext.HasElements Then - printdbgInfo oDBConnection Tablenames() = oDBConnection.Tables.ElementNames() Querynames() = oDBConnection.Queries.ElementNames() GetDBMetaData = True @@ -225,13 +224,13 @@ Dim i as Integer Dim a as Integer MaxTableIndex = Ubound(TableNames() MaxQueryIndex = Ubound(QueryNames() -Dim LocCommandTypes(MaxTableIndex + MaxQueryIndex + 1) +Dim LocCommandTypes(MaxTableIndex + MaxQueryIndex + 1) as Integer For i = 0 To MaxTableIndex LocCommandTypes(i) = com.sun.star.sdb.CommandType.TABLE Next i a = i + 1 For i = 0 To MaxQueryIndex - LocCommandTypes(a) = com.sun.star.sdb.CommandType.Query + LocCommandTypes(a) = com.sun.star.sdb.CommandType.QUERY Next i CreateCommandTypeList() = LocCommandTypes() End Function</script:module>
\ No newline at end of file diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba index 4412bae22bc2..51415d7ee3a2 100644 --- a/wizards/source/formwizard/FormWizard.xba +++ b/wizards/source/formwizard/FormWizard.xba @@ -135,7 +135,7 @@ Sub FillUpFieldsListbox(bGetCommandType as Boolean) Dim n as Integer Dim SelIndex as Integer n = Ubound(oDialogModel.lstTables.SelectedItems()) - If n <> -1 Then + If n > -1 Then SelIndex = oDialogModel.lstTables.SelectedItems(0) If bGetCommandType Then CurCommandType = iCommandTypes(SelIndex) |