Visual Basic :: How To Load The Data Quickly Into Listview?

How To Load The Data Quickly Into Listview?
I am using a Listview to show the data.
But I have thousands of records in my table.
To load all the records at a time it is taking long time.
Is there any technique to load listview very fast.
I have a idea that loading a few data at first time
and when the user scroll the listview it should
load another few records.To handle this also there
is no scoll event to listview.

please help me

thanks in advance
srinu

How To Load Data From Access To Vb6 Quickly
i am loading data form access to vb6 but its taking lots of time to load, since there is huge amount of data(around 30000) records. I am using the following code to do so.

Code:
Sub ItemsFill()
sql = "Select ItemDesc from ItemMasterAll order by ItemDesc"
IRs.Open sql, CON, adOpenForwardOnly, adLockReadOnly
Do Until IRs.EOF
CItemDesc.AddItem IRs!Itemdesc
IRs.MoveNext
Loop
IRs.Close
End Sub

How to make it perform faster

Load With Windows (quickly)
OK

ive made a security program that starts with windows using the win.ini

the only problem is is that it takes about 10 seconds to load up after windows, is there a way which makes it load before everything else or just quicker??

Many thanks

Neil

How To Load Data From Excel In A Vb Listview?????
currently i am doing a project using visual basic editor... as i am more familiar with the normal visual basic program. so now i encountered one problem, i find it very complicated to load data from a worksheets in excel into the visual basic program... can anyone help me on this??? thanks a lot....

How To Load Data From LISTVIEW To Another Form?
hi,
  i have 2 forms; one with listview the other with 7 textboxes. i want the data from the listview to load the data in 2nd form everytime i click the selected data in listview.
  here's my code, tell me what is my mistakes.

Private Sub lstAlbum_DblClick()
Dim intX As Integer

mbooladd = False

     frmAlbum.txtAlbumID = frmListView.lstAlbum.SelectedItem.Text

  For intX = 1 To 6
    frmAlbum.cboAlbumType = lstAlbum.SelectedItem.SubItems(intX)
    frmAlbum.txtAlbumCode = lstAlbum.SelectedItem.SubItems(intX)
    frmAlbum.txtAlbumTitle = lstAlbum.SelectedItem.SubItems(intX)
    frmAlbum.Text1 = lstAlbum.SelectedItem.SubItems(intX)
    frmAlbum.txtArtistCode = lstAlbum.SelectedItem.SubItems(intX)
    frmAlbum.txtArtistName = lstAlbum.SelectedItem.SubItems(intX)
  Next intX

Load frmAlbum
frmAlbum.Show '2nd form

End Sub

Edited by - edd_hills on 12/18/2004 4:16:49 AM

Error Delete Load Data From The Listview
Hi guys:

I have a listview with 3 colummns "Qty", "Description", "Price" when i save the item to my data base is ok, but when I load the to the listview and when I want to delete items I get this error: "Run-Time error 9 Subscript out range"

This is the code i used to delete item from the listview

Code:
Private Sub cmdDelete_Click()
Dim curUnitPrice As Currency
Dim lngIndex As Long
Dim itmX As MSComctlLib.ListItem
Dim lngQty As Long

Dim strArrayA() As String
Dim strArrayB() As String

With ListView1
If Not (.SelectedItem Is Nothing) Then
strArrayA = Split(.SelectedItem.Key, "&", , vbTextCompare)

lngIndex = Mid(strArrayA(0), 2) "Here I Get The Error"
lngQty = Val(.SelectedItem.Text)
If S_Status = True Then
If CheckModify(lngQty, .SelectedItem.SubItems(1)) = False Then
MsgBox "You Can't delete this Item", vbCritical
Exit Sub
End If

End If

If lngQty > 1 Then
lngQty = lngQty - 1

strArrayB = Split(lblmenu(lngIndex).Tag, "@", , vbTextCompare)

curUnitPrice = Val(strArrayB(1))

.SelectedItem.Text = lngQty
.SelectedItem.SubItems(fncIndexCol("Precio")) = Format(lngQty * curUnitPrice, "Currency")
Else
lblmenu(lngIndex).ForeColor = vbBlack
.ListItems.Remove .SelectedItem.Index

End If
End If

I'll Appreciate you help

Elvis Cabral

Help: How To Read Excel And Load Data To Listview?
Hello I've been searching the forums about how to read an excel file and load the data into a listview. What I got from the forum is how to load data from a listview into excel.

What I have in mind is to select an excel file using a common dialog control and loads the data into a listview.

The excel file is actually preformatted already. It has fixed fields and only has 1 sheet.

Is it possible to just get the data from the excel file without opening excel?

These are the fields in the excel file:

1.TransNo
2.CustNo
3.Payment
4.Date

If you can point me to a link I would be very happy. Any help/suggestion will be highly appreciated.

How To Load Data From ListView Search Result?
i already done the search function for listview for any particular data. Then i tried to take that data to another form so that the details will come up at the neew form. (For example, i search for staff ID "001", then i checked the checkbox, after that i wanna press OK button so that the details information about "001" will be fill up into 'staff details information page').
The database that been used was SQL Server. I really dont have any idea how to do and i tried search at the internet but failed. Can U guys help me out? Thanks Guys..!!!

Add A Lot Of Items To Listview *quickly*
I am running a loop through about 500,000+ items and add the items to an array. I would like to add the items to a ListView at the same time, but the problem is it takes WAY too long. It also takes exponentially longer because I have a label that displays the percentage that is done and because of that I need to put a "DoEvents" statement. The DoEvents statement slows it down a LOTT.

Is there any way around this.. to make the entire process much quicker?

Sorting Listview Quickly
How do I make a listview sort quickly?
When I click the ColumnHeader or the Option Button, it takes a long time to sort.
Any ideas?

Filling A Listview Quickly From An Array
I want to select some of the data items from an array and populate a
ListView control. As there may be several thousand items selected, a loop
written in VB is too slow. This application needs to be instant. Is there an
API (or other way) of getting the data into the ListView quickly?

I only need to display maybe 20 items in the ListView at any one time, but
need to scroll them as required.

Please can anyone help?

Richard Langner

Adding Data To Textbox Quickly
ok i was wondering what is the fastest way to add extremely large amounts of data to the data aready in a textbox. I used to know this way with byte arrays but i can't remember

Need Help Quickly Please!! (putting Data In Excell Sheet)
Code:
'Put data in excell sheet
Dim A As String, B As String, C As String, D As String
ColA = LTrim(RTrim("a")) & LTrim(RTrim(Str(i)))

For i =1 to 50
Sheet.Application.range(A).Value = "66"
Next i

To put something in a spreadsheet you do Sheet.Application.range(ColA).Value = "66"

"ColA" is which square it goes into (ie A5 or B3).
So i set colA to eqal a(i), so thats column a and i up or down. And I have to fill 50 cells in each column (A1 to A50)

Ok now the problem is when I do

Code:
Sheet.Application.range(A).Value = "66"

the i in
Code:
ColA = LTrim(RTrim("a")) & LTrim(RTrim(Str(i)))
doesnt change so it always goes into A1.

If anyone knows how to read data off a random acess file and put it into an excell sheet PLEASE tell me how.
Also if you dont get what im trying to ask tell me.

Fill Variable With 1 MB Random Data Quickly
Greetings!

I have seen many file wipers which can delete large files (5 MB and greater) in less than 10 seconds. Most of them overwrite the data with random characters.
I just tried to create such a program in Visual Basic, but it takes ages to fill 1 MB with random data.

Do you know how to create a variable containing random data quickly?

Here is the code I am using (which is terribly) slow:

Code:
Dim i As Integer
Dim lFileSize As Long
Dim lParts As Long
Dim lRemainingBytes As Long
Dim saBitPattern() As String
Dim sBitPattern As String
Dim sFileName As String

On Error Resume Next
With cdlMain
.CancelError = True
.DialogTitle = "Open File"
.Filter = "All Files (*.*)|*.*"
.Flags = cdlOFNHideReadOnly Or cdlOFNFileMustExist
.ShowOpen
If Err.Number = 0 Then
sFileName = .FileName
lFileSize = FileLen(sFileName)
lParts = lFileSize / 1048576
lRemainingBytes = lFileSize - (1048576 * lParts)
For i = 1 To lParts
sBitPattern = ""
Do Until Len(sBitPattern) = 1048576
DoEvents
sBitPattern = sBitPattern & Chr(Int(Rnd * 255))
Loop
saBitPattern(i) = sBitPattern
Next i
sBitPattern = ""
Do Until Len(sBitPattern) = lRemainingBytes
DoEvents
sBitPattern = sBitPattern & Chr(Int(Rnd * 255))
Loop
Open sFileName For Binary As #1
For i = 1 To lParts
Put #1, , saBitPattern(i)
Next i
Put #1, , sBitPattern
Close #1
Kill sFileName
Else
Exit Sub
End If
End With

Filling A MSFlexGrid With Large Amount Of Data Quickly...
The objective of my flexgrid is to give a view of a Cross query with 2 dimension giving to each cell a color format depending of the value in it...

I'm currently using a flexgrid to do the job and filling the grid manually from a ADO recordset. First I create all my rows header, my cols header and then I put each data in the right cell with its right color format...But, I have slow performance with large amount of data, for example, when I have 9000 columns or so, it takes too much time to fill it...

I've tried to bound the grid via a Data object containing a recordsource for a Cross query sql code but Access gives a 421 error saying there is too much columns (9000)...

Well, if anybody knows a quick shortcut to fill the grid or another grid control free better than Flexgrid...tell me please!!

(My data have to come from Access tables...)

Thanks...

Load Listview
I find a way to Save to a txt :

VB Code:
Dim lobjItem As ListItemDim lobjSubItem As ListSubItemDim lstrOutput As StringOpen "c:data5somethingtodoDatalistv.txt" For Output As #1For Each lobjItem In ListView1.ListItems lstrOutput = lobjItem.Text For Each lobjSubItem In lobjItem.ListSubItems lstrOutput = lstrOutput & ", " & lobjSubItem.Text Next lobjSubItem Write #1, lstrOutput & vbCrLfNext lobjItemClose #1 'But I do not know how to load it :(

How To Set Listview Check Box At Load
On my form I have a list view with check boxes for each row.

When a user wishes to "close" an item in the list view they tick the box and then click the update button this inserts a date closed of todays date on the database.

The user may wish to view all items whether open or closed by running a search. If there are closed items in the listview I want to be able to set the checkbox to checked when the items are loaded into the list view. I cannot do this as I am getting the following error:

compile error
assignment to constant not permitted

my code is as follows:

Code:
Do Until lngRowCounter = ucalvLSAPBringUps.ListCount + 1
If ucalvLSAPBringUps.CellValue(8, lngRowCounter) <> "" Then
ucalvLSAPBringUps.Checked(lngRowCounter) = True
End If
lngRowCounter = lngRowCounter + 1
Loop
when the error message appears it highlights the checked(lngrowcounter) part.

Hope someone can help.

Faster ListView Load
Everytime I change/add/remove items in a listview, and the listview has lots of items, it will take a while to reload them sometimes. Is there a quicker/easier way to refresh a listview?

How Can I Load A Listview Faster??
How can I populate a listview faster? It visibly flickers when adding items. I tried turning the sort property off before adding items, but that did not seem to help. thanks, beth

How To Load An Image On A Data Report Where The Source Is From A String Data Field?
In my table, I included a field name pictfile of string data type. It represents the path of the image file of a particular record. It is quite easy to load it on the form but no idea how to load it on a report since the image object on the data report has no data connection to a table.

Please help me to connect the string data path of to the image object of the data report!!!

Load Text File To Listview
I just figured out how to save my listview to a text file and I cant seem to figure out a way to load it back. My text file is saved like this
Quote:

Letter,Number,yaya
Text1,Text2,Combo1
Text1,Text2,Combo1
Text1,Text2,Combo1

First line being the headers the rest being the items and subitems.

Could anyone post some code or a link to a tutorial about loading text files to listviews.

Load Icon Directly Into Listview?
2 Questions:

First:
Is it possible to load an icon into a listview without first using an imagelist?

Second:
What is the most easy way to create something like a 'wizard'? Do I need a different form for each 'page' of a wizard of is there an easier way?

Thanx

How Can You Load/save Items In A Listview?
to a text file?

Also Wondering How To Load/save To Listview...
How do i get a listview to load and save items to a file?

How To Save/Load A ListView To .ini Or .txt In VB? *RESOLVED*
How To Save/Load A ListView to .ini or .txt in VB?

I've made a Chat Program for LAN use, multiple comps are present here, now in a new version of this i wanted to add a listview with 4 culloms;
-IP Address
-ChatterName
-Admin Name
-Company Name

This is an easy way to have the needed Ip's with Info nearby for when i want to connect to one of them.
Only problem is how to Save/Load a Listview. Is this possible in VB?

I know i can use a diffrent way without a listview and that is to Save/Load every account-info from/to a listbox,
but then i need this to Save/Load this accounts apart of eachother and it's not the way i had in mind.

Any help or other ideas are would be most wecolme.

=============================================
aka Red2048.

Edited by - T48 - [RedPlanet] on 10/2/2003 11:35:27 PM

Load Listview From A Selection In A Grid
HI AGAIN,
I HAVE THE SAME QUESTION A POSTED AWHILE AGO. MY QUESTION WAS SOMETHING LIKE THIS, I WANT TO LOAD A LISTVIEW OR LIST WHEN I DOUBLE CLICK ON A GRID; MSFLEXGRID, DBGRID, MSHFLEXGRID. I DON'T KNOW WHICH ONE WOULD BE THE BEST WAY, SIMPLE BUT I WOULD LIKE THE ENTIRE ROW BEING SELECTED TO DISPLAY IN THE LISTVIEW. CAN ANY ONE DIRECT ME TO SOME SAMPLE ON HOW TO ACCOMPLISH THIS OR IF THERE IS ANOTHER WAY TO DISPLAY YOU SELECTION FROM ONE LOCATION TO ANOTHER. I APPRECIATE ANY HELP, COMMENTS, IDEAS, SUGGESTIONS, FEEDBACK OR ANYTHING THAT CAN LEAD ME TO A PRACTICAL SOLUTION

THANK YOU VERY MUCH IN ADVANCED

M.E.

ListView Auto Form Load Sort.
Hello, i have a listview on Report mode with gridlines. I have 4 columns and its set so when i click on one of the columns names it will to from least to most (in numbers) Now i wanna know how i can add to form load, for it to automaticly start up with the 2nd column working from least to most ( it has all numbers in the second column)

This works if i manually click on the Column name in runtime, but id like it to automaticly do it on form load without me clicking it, is that possible? thanks.

Thanks.

Pre Select ListView Item On Form Load...
Is it possible to pre-select a list view item when my form loads. The list contains 5 items and I would like the first one to be selected (highlighted in blue).

Thanks...

Load Database Recordset In Listview Controll
Hi everybody,

Can anyone help me how can I load recordset in report view of
list view control??

Thanks,
Nirav

Load Records In The Listview Error. Pls Help..(SOLVED)
Hi guys.

Can i ask help. I got error when i run this code

Code:Private Sub FillListview()

Dim lstItem As ListItem
Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset
rs.Open "Select * From MELOAD", cnn

While Not rs.EOF

    With lvwEload
        Set lstItem = .ListItems.Add(rs("FMEMNR"), "NUMBER") 'This gives the error
        lstItem.SubItems(1) = "" & rs("FNAME")
        lstItem.SubItems(2) = "" & rs("FMOBILE")
        lstItem.SubItems(3) = "" & rs("FAMOUNT")
        lstItem.SubItems(4) = "" & rs("FPIN2")
        lstItem.SubItems(5) = "" & rs("FSTATUS")
        lstItem.SubItems(6) = "" & rs("FDATE")
        lstItem.SubItems(7) = "" & rs("FMESSAGE1")
        lstItem.SubItems(8) = "" & rs("FREMARKS1")
    End With

    rs.MoveNext

Wend

rs.Close
Set rs = Nothing

End Sub

Tnx in advance


Regards,
James_1100™

Edited by - Jam_10 on 4/6/2005 1:34:17 AM

Load Information From List6 To A Listview Caleld Report
Hey guys I have a scanner that looks for items, now if it finds them it will put the item it found in list6 listbox.

Now I have an access database called DatabaseMain12, and its has a table called table1 and a password called password1.

the database has the following columns in the table

VirusList
Nameofitem
TypeofFile
Severity
Description

Now what I want to do is get it so as each item is added to list6, the database is opened to get the infomation about each item (see database columns above)

Now once it gets the information, puts it into the report listview columns.

so viruslist would go in the first column in the report listview, nameofitem would go in the first sub column, typeoffile goes in the next sub column and etc.

Can anyone show me how to do thaT?

Thanks!

How To Load Listview Items In Browser On Double Click?
Hi all could any one show me how i can load a selected listview item and it loades in a browser by double clicking .Thanks

The Fastest Way To Load An Enter Delimited File Into A Listview
I am interested in other peoples expirience on this matter.

What are your ideas and codes on this? I need to load an enter delimited text file (about 0.5 MB) into a ListView (lvReport style).

This is the code I use now. I am wondering if anyone knows a faster method.

Thanks.

VB Code:
Sub LoadListView(strPath As String, strFileName As String, SettingsList As ListView) On Error Resume Next Dim strBuffer As String 'Loads the ENTER delimited files to designated lists strBuffer = "" SettingsList.ListItems.Clear Open App.Path & strPath & strFileName For Input As #1 Do Until EOF(1) strBuffer = Input(LOF(1), 1) DoEvents Loop Close #1 DoEvents Do Until Len(strBuffer) = 0 Or strBuffer = vbCr If InStr(strBuffer, vbCr) = 0 Then SettingsList.ListItems.Add , , strBuffer strBuffer = "" Exit Do End If SettingsList.ListItems.Add , , Left(strBuffer, InStr(strBuffer, vbCr) - 1) strBuffer = Right(strBuffer, Len(strBuffer) - InStr(strBuffer, vbCr) - 1) DoEvents Loop End Sub

If This Is The Code To Load A Listview From A File, How Can I Save It Back?
VB Code:
On Error Resume NextStatic z As IntegerDim temp2() As Stringz = 1Open App.Path & "db.txt" For Input As #1Do Until EOF(1) Line Input #1, temp temp2() = Split(temp, ",") LV.ListItems.Add , , temp2(0) For i = 0 To 5 LV.ListItems(z).SubItems(i + 1) = temp2(i + 1) Next z = z + 1LoopClose #1
Anyone know? each column is on a new line, and each row is seperated by a ","...

How Do I Load A Tab-delimited File Into A ListView Ultra-quick?
Does anyone know a way to load a tab-delimited text file into a ListView ultra-quick?

Carriage returns make up the end of the record, while tabs separate each field.

I've tried two different methods. One is loading the file, one line at a time, into a string then using the InStr command to find the tabs, split up the line, and add it to the ListView.

The other way I've tried to do this is to load the file as binary, then use the Split command to split up the records based on carriage returns, then use the Split command again on each record to split it into fields. And then add them to the ListView.

Both methods parse a 32000 record file in about 11 - 12 seconds. Is there a faster way to do this, or am I asking for too much?

Thanks!

Anyone Wanna Tell Me How To Load/save Items From A Listview To A File? Plzzzzzzzzzzzz
Anyone wanna tell me how to load/save items from a listview to a file? plzzzzzzzzzzzz

Listview; Getting Data (populate Listview) From 2 Tables??
hi!

im using a listview of my program..
where i need popluate the it with data coming from 2 tables, (table 1 and table 2); and where one of the entities in both table are the same...
for instance;
table 1 = stud_genInfo
table 2 = stuf_Offenses
both has the entity= stud_Number..
in which i need to show the stud number in my listview..

how can set (code) to show the Stud_no.?? confused:

can anyone help me with this one?? pls i need ur help, badly...

i would appreciate all the help/suggestions anyone would give..

mauve
-----
btw, this is a snip of my code:

strToday = Format (now, "mmddyyy")
With rsSearch
.Open "SELECT * FROM GenIndo, Offenses WHERE Schedule.Date_Today = '" & strToday & " ' And Schedule.Stud_No =CheckUp.Stud_No", CN, adOpenStatic, adLockPessimistic

If .RecordCount <= 0 Then
lvwSchedule.ListItems.Clear
Else

lvwSchedule.ListItems.Clear
.MoveFirst

Do Until .EOF

Set xlist_item = lvwSchedule.ListItems.Add(, , !Stud_NO) ' this is the line(part) where VB highlights the error

xlist_item.ListSubItems.Add , , (UCase(!Last_Name) & ", " & !First_Name & " " & !Middle_Name)
xlist_item.ListSubItems.Add , , (!Offense)
xlist_item.ListSubItems.Add , , (!Offense_Type)
xlist_item.ListSubItems.Add , , (!Offense_No)
.MoveNext

Loop
End If
.Close
End With

Set rsSearch = Nothing

-------

thank u so much...:

Trying To Load Data From Data Files
I have made a simple click counter using a label and a command button. I had that part working fine, but now i am stuck on trying to get the program on load to load the number clicked from a .dat file. and trying to get it to save into that .dat file.

I have a Programmiing in VB book and that book was no help. I am wondering if any of you know how to overcome this so it can read automatically on load and save when you press the command button save.

Load Data From A Ini File
Hello.

I have a INI file white the lines:

1=John
2=Arnold
3=Walt
4=Disney

How do i load that into my program. I want John to be at Label1.Caption, Arnold at Label2.Caption, And so on.

Please help me.

Load Data Aray...
ok
on form load i want to load a data array as you would load a control array though i dont know how =/
control arrays go 'load controlarray(1)'
how do i do that with a data array?

DataGrid Data Load!?
I have problem with loading data into DataGrid object. As there is about 7500 records to be loaded into grid this process seems to be slow (about 3-4 secs. approx.) and I ask if there is any way to make it faster. Some notes could be:

I used ADODB.Command and ADODB.Recordset derived objects, command to run MS SQL stored procedure that calculates one field in recordset, and recordset to make datasource for DataGrid.

If application is installed at the same system as database, I did not achieve any better performace regarding faster data loading then I had when application communicate with database over TCP/IP network.

I used trick I found to disconnect recordset before I set it as DataGrid datasource....
Set r.ActiveConnection=Nothing
Set dg.DataSource=r

... with no results

Load Data Into Ocmbo Box
how can i load data from the database into the combo box?

How To Load Icons According To Data
hi everybody! i want to place in one column icons according to data in another column,let say status ( which can take one value of three).

my variant looks like this:
with mshflexgrid1
.col= 1
for StartRow=.fixedRow to .rows-1
.row= StartRow
if col=2 then
if .text= "new" then
.cellpicture=1 ' for example
elseif .text="modified" then
.cellpicture=2
esleif .text="submitted" then
.cellpicture=3
end if
end if
end with

Load Data To List Box
How to load the data from the database into the list box?

I do something, but there is not item loaded into my list box

Code:
Set rs7 = New ADODB.Recordset
ls_Sql = "select prod_Code from ic_Order where Ord_No = '" & Combo1.Text & "'"
rs7.Open ls_Sql, gconn, adOpenStatic
If Not rs7.EOF = 0 Then
MsgBox "no records found"
Exit Sub
End If

If Not rs7.EOF Then
List1.DataField = rs7.Fields("Prod_Code").Value
End If
rs7.Close
Set rs7 = Nothing
I think should be something wrong at the line that i highlighted

Load Data Into Msflexgrid
Hey again everyone!

I have a new issue...I have not worked with any type of data or flex grid at all, and I need to create a program that brings in values (from a comma delimited text file) into a data grid, with the text files having variable column numbers (ie, not all txt files will have the same number of columns). I also need to be able to run queries on this grid...any suggestions?

Load Multilined Data ...
hy,
i'm here again, yesterday i've aked you to
save 4 txtboxes into 1 file ...
it works, bu i have to load this **** now could u help me again .??

This was the saving code:

visual basic code:-------------------------------------------------------------

Dim strFile As String
Dim intFileNo As Long

intFileNo = FreeFile
strFile = Text1.Text & vbCrLf & Text2.Text & vbCrLf & Text3.Text & vbCrLf & Text4.Text

Open "c:myfile.txt" For Output As intFileNo
Print #intFileNo, strFile
Close #intFileNo

--------------------------------------------------------------------------------

i hope u can write a short example to show me how the

LOADING works ...

THX

MSFlexGrid - Load Data
Hi,
I'm trying to use a MSFlexGrid, but cannot get it loaded with data in a retrieved recordset.

I know my recordset (Dim rs As ADODB.Recordset) has retrieved the data correctly, but when I'm using:

Set MSFlexGrid1.DataSource = rs

Following message appear.
Run-time error '91':
Object variable or With block variable not set.

Could you please help me getting back on track...