<div>
I'm not sure about the return value, but try this:<br />
<br />
SQL= &quot;DBCC DBREINDEX ('pubs.dbo.authors', UPKCL_auidind, 0) WITH TABLERESULTS &quot;<br />
rs.Open SQL, conn, adOpenForwardOnly, adLockReadOnly<br />
<br />

</div>


I'm not sure about the return value, but try this:

SQL= "DBCC DBREINDEX ('pubs.dbo.authors', UPKCL_auidind, 0) WITH TABLERESULTS "
rs.Open SQL, conn, adOpenForwardOnly, adLockReadOnly



<div>
adding WITH TABLERESULTS &nbsp;to the query does not return anything when<br />
rs.Open SQL, conn, adOpenForwardOnly, adLockReadOnly<br />
is run<br />

</div>


adding WITH TABLERESULTS  to the query does not return anything when
rs.Open SQL, conn, adOpenForwardOnly, adLockReadOnly
is run


<div>
<div class="content wysiwyg-content">
When you run <br />
DBCC DBREINDEX ('pubs.dbo.authors', UPKCL_auidind, 0)<br />
In Enterprise Manager you get the following results<br />
<br />
DBCC execution completed. If DBCC printed error messages, contact your system administrator.<br />
<br />
<br />
QUESTION:<br />
How do you run a query in VB to return the above results<br />
<br />
SQL= &quot;DBCC DBREINDEX ('pubs.dbo.authors', UPKCL_auidind, 0)&quot;<br />
<br />
conn.Execute SQL, lRet &nbsp;<br />
' Returns a -1<br />
<br />
rs.Open SQL, conn, adOpenForwardOnly, adLockReadOnly<br />
' Does not return anything<br />
<br />
<br />
<br />
<br />

</div>
</div>


When you run 
DBCC DBREINDEX ('pubs.dbo.authors', UPKCL_auidind, 0)
In Enterprise Manager you get the following results

DBCC execution completed. If DBCC printed error messages, contact your system administrator.


QUESTION:
How do you run a query in VB to return the above results

SQL= "DBCC DBREINDEX ('pubs.dbo.authors', UPKCL_auidind, 0)"

conn.Execute SQL, lRet  
' Returns a -1

rs.Open SQL, conn, adOpenForwardOnly, adLockReadOnly
' Does not return anything






DBCC DBREINDEX  and VB6

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.