Search:

Hi all

I have one VB6 application working with ORACLE database through ADO. The method that reads data looks following:

Public Sub LoadData()
Dim rs As ADODB.RecordSet

Err.Clear
On Error...

Hi all

I send a concrete example where I have got a problem. Here is my source code to get data:


Private Sub test()
Dim cSQLString As String
Dim rs As Recordset

Err.Clear

Hello everybody

I've got a small VB6 application reading data(DAO) from one Oracle table through Oracle ODBC drivers.
This table MyTable contains one column "AdditionalInfo" of type LONG.
When...

I have got one obsolete VB6 that uses DAO to database operations.
I dispose also with an install package created by VB6 tool.

After installation of package the users are able to run application...

Thanks

But which components have I to install. I think that MS Access driver is neccessary or not? What is neccessary for Jet provider?

Hello

I need to use my VB6 application working with mdb file on one PC. Problem is that this PC doesn't dispose with installed MS Access.

What is neccessary to install? Just MS Access driver?...

Hello

I'm creating Word document via VB6 application and I have got any problem with 'find' function.

Here is my code:

With xTable.Range.Find
.ClearFormatting
.Text = "$$$CR$$$"...

I haven't declared Word objects but it is not important for us.

My problem is that I don't know how to stretch last column across the page. I want to set last column's width to remaining width on...

here is my VB6 code:


Set xTable = doc.Tables.Add(Range:=sel.Range, NumRows:=RowCount + 2, NumColumns:=4, DefaultTableBehavior:=wdWord8TableBehavior)

With xTable
.Columns(1).Width =...

Hello

Can someone please help me with VB6 source code to create four column tables with the properties:

first three columns will have got a fix column width = 2 cm,
last (4th) column will...

Here is my code:

Set xResult = New Collection
Set rs = New ADODB.RecordSet
rs.Open cSQL, gConnection, adOpenForwardOnly, adLockReadOnly, adCmdText
With rs
While Not .EOF
Set xItem...

It's good question.
I wish that your code is sufficient to gell all characters but I don't know why doesn't work for my provider. I will have to try it for Oracle 10.2.0, now I'm using version 9.
...

Hello abhijit

I've tried your code for both cursors(client, server) but with same results. All longer texts(len() > 100) are trucated by my provider. It seems that the GetChunk method works on...

Sorry

but I don't understant

I found that all texts longer than 100 characters are truncated to this mentioned length.
I've tried to use something as

rs.Fields("").GetChunk(500)
but...

Hello

It seems that I have got problem also with ADO.

I don't why the field with Long value returns only part of whole string cca(100 characters). That means that following code:...

thanks abhijit

i've remaked it and ado has not any problems with oracle longs. it seems that i will have to use it instead of dao.

Hello

I have got one question regarding the ADO data type mapping.

After opening recordset I found that the fields containing strings(Oracle VARCHAR2) have set datatype to adVarWChar.
But...

Can you post me example based on ADO technology. I would to try replace it.

thanks

I have one simply table containing column 'additionalinfo' with LONG type and I'm going to load data from this table by following way:



Private Sub cmdTest_Click()
Dim cSQL As String
Dim rs...

I mean that rows from number 105 contain other texts assigned to another rows for this column.

I haven't any problems with characters as you mentioned.

Hello

My VB6 application reads data from one oracle table via DAO objects. This table contains also one column with LONG type.

When I loaded data into recordset I had got wrong texts for this...

Hello

My VB6 application creates report into MS Word documents. When I create new blank document the names look like Document1, Document2 ....
But what I need to achieve is change this name...

sorry for my english but "jcis" is right

I would like to implement only one public sub working with forms and UCs too. When I used input type Object the parametern MyForm contained correct...

Again

I don't want to get the labels within a usercontrol from outside the usercontrol!!! In any case I don't want to set UC's labels from outside the usercontrol.

All I want is using of...

I wanted to use some general method for Form and UserControl something likes:

Public Sub LoadLabelTexts(MyForm As Object)
Dim i, j As Integer

If MyForm.Count Then
For j = 0 To...

Sorry maybe I don't understand.

I've create example method which will be set automated caption for all labels on the form:

Public Sub LoadLabelTexts(MyForm As Form)
Dim i, j As Integer

If...

Hello

I have method (VB6) TextsGetForm(MyForm as Form) which loads texts for controls on formular through the loop on Controls collection(labels, frames ...).

Now I need to adapt it also for my...

This way you preferre is not suitable because most of application's operations work with database and connecting/disconnecting every time takes some time and would slow the application.

Any ideas?

here is code to create the connection:

Err.Clear
On Error GoTo ErrorHandler
Set gConnection = New ADODB.Connection
gConnection.ConnectionString = "Provider=OraOLEDB.Oracle;" & _ ...

I'm using VB6 with ADO components(2.8 library).

I decided to switch from MSDASQL to OraOLEDB.Oracle because I got application error on some pc after closing application.

That means I replace...

I note that also OraOLEDB.Oracle provider with TNS-less connection is slowly than MSDASQL provider through DNS.

I need to read 20 SQL query. I tried to change cursor from adClient to adServer but...

Hello

Now I'm using MSDAORA provider instead of MSDASQL and it seems slowly than MSDASQL.

I executes cca 20 SQL simply query to remote Oracle database and it takes 5 times more time.

How can...

Hello

I found out that my connection uses default OLE Db provider MSDASQL.1.

My connection string was:
"DSN=MYDSN;PWD=heslo;UID=user"

Then I tried to used other provider as MSDAORA.1 with...

sorry concrete address si 0x7c910f29

Hello

I have a simply VB6 program which connects to the Oracle database via ADO (2.8). It works fine on PCs with the english and also german Windows XP.

But when I close the program on german...

I've forgotten. It should load the folders on network computer.

Hello

I need to read structure (all files and subdirectories) into my directory and file lists. These lists will be used to very simply polulating of the treeview component.

I've used...

Hello

One note:
Old version of application doesn't handle closing of connection to database.
Therefore I added this source code into Unload method:


Err.Clear
On Error GoTo ErrorHandler
...

Hello

I have got one VB6 application working on ORACLE database via DAO. In case that application runs longer time and I close it then I got following error:

The instruction at "0x7c921689"...

Hello

I need to retrieve the handle of treeview note. That means how can I retrieve TV_ITEM whe I have only hwnd of treeview and reference to node?

Thanks