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 | 0488889272ac3357478aaee776d93906bdf4b1d1 (patch) | |
| tree | 6433491a167313302e62786c269f06c40e354094 /wizards/source/formwizard | |
| parent | 50d6a3fe36b72df38c53ce224c8fd4aa6849ad9c (diff) | |
#88814# Connection disposed before establishing new one
Diffstat (limited to 'wizards/source/formwizard')
| -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 cea702286..e83240f90 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 4412bae22..51415d7ee 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) |