Type: Posts; User: luca90
Search took 0.05 seconds.
Sure the table exist!
first experiment with Postgresql, error here:
RS.Open "Select COD from CODICI", CN, adOpenDynamic, adLockReadOnly, adCmdText
I need to create via VB6 classic an Access DSN based a database in \\mylan\dir1\mymdb.mdb, but check before to create the new DSN if just exists the same access database from the same dir......
I use the tipical free file eof .... to read line by line a txt file.
During the loop a get in a mid postion of string a date form each lines and store the date value it in mYDate var.
exactlly the same prob, cursor lock on Line Input #File, TextOfLine...
after 8 mins on lock cursor line have this error:
error run time 14
"space of string is out"
perpah the lines in txt...
If this is VBA for Excel...
Private Sub Command3_Click()
Dim File As Integer
Dim TextOfLine As String
Dim Path As String
Dim sngStartTime As Single
Dim sngTotalTime As Single
sngStartTime = Timer
Set QRY = DB.QueryDefs("ESTRAI")
QRY.Parameters("[INIZIO]").Value = CDate(Me.DAL.Text)
QRY.Parameters("[FINE]").Value = CDate(Me.AL.Text)
With this code i pass a...
Do your Files have the same line-lenght throughout (the lenght may differ from file-to-file,
but it needs to remain constant throughout a given file)?
yes 132 fixed lenght line
Do you search...
to post a part of my txt i need to change big part of tath,
i can send in private a little part of txt.
i can have " 45t "
but all string are indetify from a mid , left, or right function, in any part of line.
but in almost all cases with mid function
sorry me, but now tath is all.
But i dont see where you setting the position of string to sercah...in my case mid, 14,4
for future use i can an other string in other position...
the string to serach can have a...
I have this value in a combobox:
123 - aaaaaaa
1 - pppp
1254 - zzzzz
of course it is more professional to allgn the item in combobox
to have an idea see the attached txt
hi friend! tks for code. It work fine.
But if you read in my original post, the lines in txt are approx 145.xxx, in other situation the txt file can have one or more milions of lines!!!!
I need to...
prob! i can send in private the original txt (it contain reserved and sensible data) and i cannot post here.?
I have a txt file in c:\mydir\
i need to count lines only if in mid position 14, 4 is present the word "abcd"...
I need to loop all lines with the tipical
FileName = "C:\mydir\232.TXT"...
I have the QUERY3 on a Access Databse on lan serverdir.
Actually i use this code to execute directlly the query:
I test this piece of code to read in array a Txt file:
Public Sub Parsedxf()
Dim buff() As Byte
Dim hF As Integer
Dim I As Long, N As Long
but based my db access is stored on lan dir peprphs i need to set also a particular "curortype" for the conn and for recorset?
I use Access data base in Server/Lan dir. ADO and VB6 classic
The records in the table are approx 250.000
OK for point 1
But see my dubt in point 2, and suggest me, please. I use ADO and vb6 classic and the records in table T area approx 250.000:-(
1) The field DATA_CONT have a date property, i need to chenge your sql in this case?
2) And i need to set a particular cursor on recordset/connection, because the database access is...
This is my actually sql:
SELECT T.CARTA, T.DATA_CONT FROM T GROUP BY T.CARTA, T.DATA_CONT
i need to extract the group by only if the count of T.DATA_CONT is >=3
Attached is a sheet (is the structure of a access table)
based the fields MINDATA and MAXDATA, i need to make a block of 10 days from dates, the result is in the column E and F of the same sheet....
In a second column of Listview i can have:
And a myvar="1335" i need to count how many values in the column of listview are <> myvar..
In this case are only 2 (the...
In a filed DATA1 have 12/01/45
i need to appdate the filed NRSYEAR with the difference from current year...
in my case NRSYEAR =69
How to with a sql query to use in vb6 and...
This link check a sanitary code...
Use this fantasy code in Codcie Fiscale:
press button: ESTRAI DATI
this format format of date get also 01/01/1997, 23/01/1999...eccc
yes, the filed DATE1 is date
This is a part of my sql:
... ON TAB.NOMINATIVO LIKE '*' & TAB1.NOMINATIVO & '*'
is this correct?
In effect i need to return a value if the match from the two field:
I have a linked table from a teradata server database in accees database.
i need to get from teradata table all records where in teradata filed table DATE1>01/01/2000
how to format the date...
SQL = "DELETE a, b, c, DATAC" & _
" From ANAGRAFICA" & _
" WHERE ANA.DATAC>=#1/1/2000#"
Dim oCmd As...
I use ADO and Vb6 classic.
In a table have 4 fileds.
the last is a Date1 field.(date format)
the records are approx 4.500.xxx(yes milions:()
i need a good sql to speed up deletetation of...
So, your ListView control has a total of 15 columns, of which 10 are visible and 5 are hidden. Is that right?
which column(s) do you want to be locked?
Only the visible columns (are 10)
after the last visible column a just have other 5 columns with size(0) and are hide(are only a service column) not important to show tath.
i have 12 column in lv1 and i i filled the array in this mode:
Subclass ListView1.hWnd, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11
is this correct?
all column are lockhed but the...
THE CLASS WORK PERFECT ALSO IN VBA FOR deXCEL!!!!!!!!!!!!!!!!!
But i dont like the signal on the cursor...
possible to change with the standard cursor?
possible to use this code in a vba userform and listview in VBA for Excel?
Programming question... i need an example code in vb6 classic.
Click Here to Expand Forum to Full Width
Survey posted by VBForums.