VB Forum / Database Access / December 2004

for your info - I'm a newbe.
Code is at the bottom.
Access dbase (each form ca. 10 KB) if my explanations are not enough
(probably they aren't).

my self avinash
i m developing one application in vb 6 and sql server 7
i have one table name - Salesvoucher which has fields like
voucherno,voucherdate,debitto,creditto,amount.

I am creating a DataReport using the Data Report Designer (VB6) and using
the following SHAPE command to create a hierarchical recordset of
Client/FoodService records:
       mstrSQL = "SHAPE {SELECT * FROM Client} AS Client " & _

I can not find a way to delete a form shown in my Project window. The form
has no code and no members but when I click on it in the project window I
get the following error message-
Error accessing file. Network connection may have been lost.

This should be a <duh> but I can't find the answer.
For example:
SELECT Company_Defaults.CompanyID, Company.CompanyID
FROM Company_Defaults Left Join Company on Company_Defaults.CompanyID =

I’ve been working on a program that uses SQL Server and I’ve noticed
that the same SQL query run in Query Analyzer is often 10 times faster
than the same query in VB. Besides, “that’s just VB”, is there a good
reason for this or could I be doing something wrong to make it that

How would I populate a subform within an unbound MS Access (2003) form? The
main form populates fine with an ADO connection. But I need to pass a
parameter to the subform and then populate that as well. Any suggestions or
source of information?

I'm in the process of writing an update function within a VB6 application.
I have a stored procedure that I'm calling that simply accept parameters and
performs an INSERT into a table.
My application basically has to loop thru a listview control and insert,

say, I have 2 textboxes (txt1, txt2) in form1.  when the user enters a value
in txt1 and click the command button, a value should be returned to txt2.
Here's what I put in the procedure:
Set sdoRs = sdoConn.Execute("select mslink as msl from slope where slope_num

Hello
The code snippet below has an error when I compile. The problem occurs on
the line that looks like this....  What am I doing wrong and what should it
be? Thanks

I have a VB6 application that uses ADO to communicate with SQL Server 2000.
The application works fine, however I seem to have issues with trapping
connection errors with ADO.
I have a basic Error Handler in all my functions and display both VB and ADO

Here is a brief description of my problem:
I have two databases on two different servers. The boxes cannot
communicate with each other. The system I am developing can connect to
each database (one must be disconnected before I can connect to the

I am using ADO with VB6 and SQL2000 to retreive data from tables with text
type columns. Sometimes works, sometimes not. Syntax as follow
Dim RS As ADODB.Recordset
Set RS = CursorGet("sp_RetrieveData", Var1, Var2)

Is there any fastest way to Insert Data from 67 Access Databases of about
10,000 records each (Total 670,000 records)  to One Table in Oracle ?
Curently I am using VB-6 and reading each record of each database using ADO
AddNew/Update Method to Insert into Oracle,but it takes much ...

I have written a Help file to go with my application, but I have written it
in HTML format with an extension of.chm
I cannot seem to run it from within my app, I am using something like this
Call ShowHelp("C:\Program Files\NewProg\Help\NewProg.chm")