From 0488889272ac3357478aaee776d93906bdf4b1d1 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 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'wizards/source/formwizard/DBMeta.xba') 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 \ No newline at end of file -- cgit v1.2.3