Type: Posts; User: luca90
Search took 0.05 seconds.
RS1.Open SQL, CONN, adOpenForwardOnly, adLockReadOnly
in my case i need only to loop recordset (i use it to fill a listview) and not, update, delete, insert ecc...
... the server
But i'm on c:\, in local HD and i use Access Databse
Set CONN = New ADODB.Connection
CONN.Provider = "Microsoft Jet 4.0 OLE DB Provider"
CONN.ConnectionString = "Data Source=C:\DATABASE\STAT.mdb"
Attached there is the the sheet with a structure of my Access table1.
I need with a SQL to summ (and with a Where clausole on the first 3 fields), the value from field4 to field8, but in...
Why the lenght of list of combobox is out the leght of combobox?
I see the max character of item in list is only 4!
During the fill of combobox i Trim all text.
the combobox is in a...
Now my code is:
If TFound = False Then
SQL = "ALTER TABLE " & TBLNAME & " ADD COLUMN " & COD & " LONG"
End If '
I loop a txt file with the tipical free file ecc....
during the loop of txt i fill a MyVar(As String property) with MyVar=Mid(linestring, 12,4)
I just have a Ado CONN opened
In my databse...
I just have a range B1:Z1 filled with value in cells.
i have MyVar=AA
i need to add in the last free cell of range only if AA dont exists in B1:Z1..
how to in vba?
I, but example with my data var?
i can have in MyVar (As String):
i need to get only the numeric value from string?
1) The letter are always on right of string
I need to loop all .xls files from c:\mydir\
and open "one to one", get data from column, close it, and open the next always from the same dir.
Or loop all closed xls file without open...
But i dont see the dim of var firstempty
i think col is Long...
I need to loop value in row 2 until cell in row from G1 is blank... in my case AA1 is blank
i need to use a Where clausole, in a Select query, where numbers years is <= 20 and >=90 based of birthday day
my filed name is NASCITA with date property.
My test sql:
I need to iterate all object in userform and set Enabled to false..
exactlly wath i need!!!!!!!!!!!!!!!!!
sorry for my dab english, but i think u undesrtand me.
I loop all items in a listview column.
each item have a different color font.
is possible to retrive the value of single color font of items?
i need to assign to click botton this code line, and execute it:
"C:\Program Files\Microsoft Office\Office14\MSAccess.exe" "\\rom\workarea$\FSR\Ge\DATABASE\T1.MDB" /compact
Instaed to use data in column sheet, possible to arrange code to use the data in a column Listview.
The reference title column and data are exactlly wath i have in column of my listview.
... can you show an example of the command line for running a query
simple update query, but with 2.000.000 on join to other table with approx 4.000.000 of records
... Also, why do you even...
but, after compacing the database, i need to run a query named Query_001, into the same database.
is possible to insert into the batch file a dos command line for that?
sorry for delay.
Yes are labels....
changed Dim lbl As Label in Dim lbl As object and work great!
Tks. for code.
>>>>Set lbl = Controls("C" & y) ERROR RUNTIME 13!!!"
No not have an array of label:-(
i use this for next:
for y=1 to 3
'here i need to increasing the index of label C...
Me.C"here insert the actual value of y).Caption
this line is in batch file and compact and repair an access database:
"C:\Program Files\Microsoft Office\Office14\MSAccess.exe" "\\rom\DATABASE\GIA.MDB" /compact
But is possible to check,...
...GROUP BY Split(VER.MER, '-')(1)
is a part of my SQL, in vb6
but have error!
I need group by with thw split of field VER.MER, with the 2Th part of the split function..
Wath you think about:
Dim I As Long, intItems, arrItems, strKey, objDictionary As Object, strItem
Set objDictionary =...
I just have an Array filled from recordset similar:
Set RS1 = New ADODB.Recordset
RS1.CursorLocation = adUseClient
RS1.Open SQL, CONN, adOpenStatic, adLockReadOnly, adCmdText
but but the year not is fixed.
you need to calculate based the year in MyVar
I can have:
I just have MyVar ="ott 2015" (ott iss the month ottober).
I need to fill a combo with the rest of months until dec 2015.
naturally MyVar is dinamicly it can aasume set, feb.... and year.
Dim itm As ListItem, K As Long
K = Empty
Me.VALORI.Caption = ""
For Each itm In ListView1.ListItems
If itm.SubItems(1) Like VALORE Then
During i fill the lv the code insert a 0 and 1 in hiden Column 18 with zero length..
now i need to assign in a button a code:
First click ordering items form 1 to 0, if i reclick order...
I need to assigng on a button click to order/sort listitems in listview1 by the clicked checkbox...
the checkbox is in column 0 of listview
i loop in all lines of txt with the tipical freefile=file ... dowhile not ecc....
then when i fuound in the left 4 of line with MyVar="0900", and admint MyVar="0900" is in line...
ok... admit i found MyVar="0900" in lines 456.989 how to loop the rest of line to the end of file from this line?
Sorry me to the all!
Really the line to start the loop not is 457 but 457.xxx...
This depend when MyVar i filled with a value where is in left 4 of line of text ...
in this case:
Click Here to Expand Forum to Full Width