From 56f146dcfe594a6407993dbb8906bc4a22d5872c Mon Sep 17 00:00:00 2001 From: Behrend Cornelius Date: Thu, 12 Jul 2001 07:13:52 +0000 Subject: #88814# Connection disposed before establishing new one --- wizards/source/formwizard/DBMeta.xba | 5 ++--- wizards/source/formwizard/FormWizard.xba | 2 +- 2 files changed, 3 insertions(+), 4 deletions(-) (limited to 'wizards') 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 \ 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) -- cgit v1.2.3