Type: Posts; User: luca90
Search took 0.06 seconds.
... 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:
I use the tipcal free file and do while eof ecc.... to read a lines line by line ina txt file.
is possible to start the reading from line 457 to the end of file, and not from the top of txt file?
hI Milk ...
Sorry if i post on old question.
Admit my line is the number 457, how to loop the rest of txt file to the end, from this line?
Tested the code, is a lightning and work perfect!
but i need search directly only in column 3 the value"California"... and not in all item of listview.
can you change my command button code, for that?
Why code in Command2, dont find "California" in column 3?????
Private Sub Command2_Click()
Dim oItem As ListItem
Set oItem = Me.ListView1.FindItem("California", lvwSubItem, 3)
OK, I know the truncate statment.
I dont use tath because i dont need to delete alls records in table!
I need to delete a lot of records with a "Where" clausole.
Tks for suggestion.
In my case, actually i use Access and ADO conn, but the Mode=Share Exclusive, i can use also in ADO conn with SQlServer connection, or not?
..."should use a transaction", example for Access and ADO?
Dim strConnectionString As String
Dim objConn As ADODB.Connection
Dim objCommand As ADODB.Command
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=e:\My...
Private Sub Main()
Const BUFSIZE As Long = 100000
Dim T0 As Single
Dim LfAnsi As String
Dim F As Integer
Dim FileBytes As Long
Dim BytesLeft As Long
Public Const NM_CUSTOMDRAW = (-12&)
Public Const WM_NOTIFY As Long = &H4E&
Public Const CDDS_PREPAINT As Long = &H1&
Public Const CDRF_NOTIFYITEMDRAW As Long = &H20&
tks for explain.
really my prob is to insert a icon .gif in a listitems cell of listview but without imagelist component.
And the ico is in a c:\mydir\ico.gif...
Possible to change the background color, no text color(i know the way), in a single cell of listview, for example in row6 cell 9?
the listview is in a userform of excel project.
I use vb6 and ado.
have a Access database.
FIELD_INDEX_ID FIELD_TOT FIELDTEST
I have listview with a checkbox in all rows items.
i need to know which checkbox was clicked or unclicked, and return a index number of row.
I need to use a IF condition to check format date?
I have the var S="NOV 2014" I need to check if S variable is a date in this format "MMM YYYY", possible ?
S as string dimensioned
This VB project use access database, but i need to use a cloumn range of sheet in workbook, possible to modify?
In other case if you have another way, is welcome.
I need to format a my number in:
Myvar=1 in MyNewvar=1,00
Myvar=1,5 in MyNewvar=1,50
In all case of Myvar use always two decimal after the decimal point, even if the number...
Click Here to Expand Forum to Full Width
Survey posted by VBForums.