Search:

added original query in the first post.
Tks in other case.

added original query in the first post.
Tks in other case.

I use this code in vb6 and DAO:


...
DoEvents
Set QRY = DB.QueryDefs("AGG_ALBERO1")
QRY.Parameters("[DATA_OPE1]").Value = Format(DATA_OPE, "DD/MM/YYYY")
...

tks!

But is really Portable app?

Have 2 table:
table_total and table_single.

all tables have field Account, Amount and Cod

i need to summ all value in Amount in table_single, based the match/join Account>Account and Cod>Cod...

I need to check if \\myserverdir\database.mdb is newest of c:\midir\database.mdb, how to???

in effect i update a recordset in \\myserverdir\database.mdb and before to copy and overwrite in...

Exists a a free PORTABLE tool to transfer sqlserver database to access database...???

tks.
But i work with vb6 classic and access database...

I justs have an array:

myArray('aaa',bbb','ccc'.eccc) note: Are approx 23.000 elemnts into the arry.

i use ado jet 4.0/vb6 classic and just have a conn active.

is possible to insert into a...

ok tks!!!!

but in wich part of code i can loop "line by line" the array.... similar:

Dim X As Long

For X = LBound(MyArray()) To UBound(MyArray())
temp = MyArray(X) 'Is the; current; Line...

I use this routine to read txt file line by line...

i loop approx 123 files each file are of 45/80 MB. (approx 358.000 line per file)

i use (pseudo code):

...
for each file in my dir
...

I friend...
the point 6 on the web suggest this command lne:

fastopy.exe C:\Windows "C:\Program Files" /to="D:\Backup Folder\"

is this correct to use in vb6 classic?

But the exe file is a...

How large is the file?
857.789 mB
How long does it take?
7 Mins
What speed is the network?
i dont know, how to?
How much traffic is on the network?
i dont know, how to?

tks in other case...

I have a .mdb file in c:\mydir\ i need to copy in \\server1\dir\ i used file copy and other command but the time of trasfering file is very very big!!!!
Have other solution???

note:
I need to...

Hi tg now all. Is clear...
But i need to loop 133 txt files to get part of string line and put into the recorset.
I need to open an close the conn for each
txt file readed or i can to reconnect...

if i have undesrtand:

rs.open....,3,3,cmdtable (is a good idea 3,3,???? in other case)

DISCONNECT CONN TO NULL

for x....

Rs.addnew

hi Tg.. example based:

get your recordset... disconnect it... add to it with the new data... then re-connect it and use an .UpdateBatch

Example of my code:
With rs
For x= 0 to nn
..addnew
.fields("a").value='gg'
.fields("b).value='ff'
.update
Eccc..
Next
End with

Sensible and reserved data are into the code, i can send in pvt?

not sure to understand .... i loop 123 ".txt" files in dir and use for all the same code:-(

perpahs i need to close connection and rset for each .txt file elaborate in to the loop and reopen...

yes!!!!

a part of that...

is possible to call directlly via vb6 code a query with the same connection disponible?

naturally via vb6 code and DAO object.

tks.

Spoo... tested your code, work fine...but strange behavior

example, for each 100 or 200 records interted into the table code go slow.. attemp 2 or 5 seconds and after run normally, WHY?????

I sPOO TKS!

But i need to close also the rs91 and set this nothing, or when i close the connection all object are destroied?

:mad:I have a old project with VB6 and DAO ( i have no time to modify this in ADO Jet:-(:sick:

To speed up rs.addnew (during import a value from a text file, approx 224.000 lines) i need:


for...

To be clear-...

when is strictlkly necessary to compact & repair acess db:
when update recordset or insert recordset or read recordset, or ....

???

i use vb6 and ado jet 4.0 in this project

I need to select distinct value from a Date Filed named DATA1.
The field DATA1 is indexed.
i have tested a query with Select Distinct or Group by, but the result in other case, are very slow!

I...

I work with ado and vb6 classic.
i need to create a Select distinct (or group by) from Table1 the filed data into Field1 and store data filtered in View1filed filed2, how to?

OK!!!


FIRST STEEP RESOLVED, TKS.!!!!!!!!

but to insert date is correct the format yyy-mm-dd and hh:mm:ss

if yes how to insert this two element in a vb6 string query?

with #" ...."#...

SQL = "INSERT INTO UTENZE ([APRI], [USER] , [A_ORA], [NOMINATIVO]) VALUES (CURDATE(),'" & _
VETTORE & "',CURTIME(),'" & UTENTE_CORRENTE & "')"
CONN.Execute SQL, , adCmdText +...

NO....
Can i send you in private?
The code contain reserved data:-)

To speed up to fill a istview I use:

listview.visible=false

..code to fill

listview.visible=true

but when the code go to listview.visible=true the listview lost the original position and...

With a big amount of recorset data warth is the best in order of performance, with Acces data base?

Set RS = New ADODB.Recordset
RS.CursorType = adOpenKeyset
RS.LockType =...

97747In my Pc home have Office 2007
In my Pc office have Office 2007

when i open a vba project where i have a Listview in userform, in my pc home all is correct an see regualar the Listview......

in dir c:\mydir\ have a variuos .txt file(only this format)

the single file name have this structure:

aaa0_01-05-2013
aaa1_02-05-2013
aaa1_02-06-2013
aaa1_01-05-2013
aaa2_01-05-2013

I have 2 tables CONT and CUMU, the two table have the same field named RAPP(txt property)

In CONT have a filed named DATA (as date short)

In CUMU have a field DAL (FROM in english) and a field...

nice!!! tkx.

i'm new with DAO...
but this tips really spoeed up the query exceution directlly the Query in Acces databse? or exists other way?

note:
I want to migrate the project to ADO but...

I need to trasform this ADO code for DAO, i spossible?
tks.



...
Set objCommand = New ADODB.Command
With objCommand
.ActiveConnection = CONN
.CommandText = "AGG_ALBERO1"

i a table named Tab1.
i need to chenge the txt property of field F1 in date short....
how to with vb6 classic and database access

naturally via vb6 code.

tks.

Possible to no permit the rezsizin of column in a listview in a userform?

I use the tipical ado connection and VB& to set an Access MDB.



Public Sub CHECK_CONNESSIONE()

ENVIOR = ""
ENVIOR = VBA.Environ("COMPUTERNAME")

If CONN Is Nothing Then