|
Okay, so I'm trying to make a program that refers to a table of prices for various items. The problem I am having is being able to easily retrieve data from the CSV file... I can read from it, but I want to store it to an easy-to-use lookup table so that I can pull whatever kind of information I want at any given time.
To test this, I tried to make a program that consists only of a listbox, which upon loading of said program would be populated with the names of all of our items. But so far, I cannot figure out how to store this data.
I tried using a multidimensional string array, but for some reason my code isn't working. It seems like the program gets to a certain point in my code and stops doing what it's supposed to do, and the functions end and I'm staring at my form.
Can anyone help me with this? I would really appreciate it!
Imports System.IO
Imports System.Data.OleDb
Public Class Form1
Dim ITEM_FILE_PATH As String = ""
Dim ITEM_FILE As String = ""
Dim ITEM_LIST As String(,)
Dim ITEM_LINE As String()
Dim fs As FileStream
Dim sR As StreamReader
Dim frstComma As Integer = 0
Dim thisLine As String = ""
Dim NumLines As Integer = 0
Private Sub ReadCSVFile()
ITEM_FILE_PATH = Application.StartupPath & "\All_Item_Prices.csv"
fs = New FileStream(ITEM_FILE_PATH, FileMode.Open)
sR = New StreamReader(fs)
sR.ReadLine()
'ITEM_FILE = sR.ReadToEnd
While sR.EndOfStream = False
thisLine = sR.ReadLine
NumLines += 1
'MsgBox(thisLine)
frstComma = InStr(thisLine, ",")
thisLine = thisLine.Substring(frstComma, thisLine.Length - frstComma)
frstComma = InStr(thisLine, ",")
thisLine = thisLine.Substring(frstComma, thisLine.Length - frstComma)
frstComma = InStr(thisLine, ",")
thisLine = thisLine.Substring(frstComma, thisLine.Length - frstComma)
'MsgBox(thisLine)
Dim COMMAS As String = ",,"
For i As Integer = 2 To 6
'MsgBox(COMMAS)
thisLine = Replace(thisLine, COMMAS, "")
'MsgBox(thisLine)
COMMAS &= ","
Next
'ITEM_FILE &= thisLine & vbNewLine
'For iC As Integer = 0 To thisLine.Split(",").Count
' ITEM_LINE(iC) = thisLine.Split(",")(iC)
'Next
MsgBox(thisLine)
MsgBox(thisLine.Split(",").Count)
For iC As Integer = 0 To thisLine.Split(",").Count
ITEM_LIST(iC, NumLines) = thisLine.Split(",")(iC)
MsgBox(ITEM_LIST(iC, NumLines))
Next
End While
sR.Close()
fs.Close()
'MsgBox(ITEM_FILE)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ReadCSVFile()
For iCount As Integer = 0 To NumLines
MsgBox(iCount)
MsgBox(ITEM_LIST(0, iCount))
Next
End Sub
End Class
Any help? Thanks in advance!
As I sit here, I contemplate the last words of Socrates: "I drank what?".
Pokémon Pearl Friend Code: 4554-2418-6836
|
|
|
|
|
I think you need to use a DataTable.
Create a DataTable and add columns as necessary, then read your csv file line by line, and for each line create a new row, move your data to each column within the row, then add the row to the DataTable.
You can now use a DataView to filter and sort your data, and you can bind the DataTable to controls such as ListBox, DataGrid etc. You can even write the data back to an XML file.
Steve Jowett
-------------------------
It is offen dangerous to try and see someone else's point of view, without proper training. Douglas Adams (Mostly Harmless)
|
|
|
|
|
Steven has the right of it - use a datatable and dataview. However if possible store the data as XML then you can read/write it with 1 line:
dataset.ReadXML(sfileName)
saves all that crap reading in the CSV. Only issue it that it is not human readable but you can always output to CSV if required.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
So, I followed your advice and tried going with a data table. However, my code is just plain not producing results.
I frequently ask my code to msgbox me values here and there to see what's going on, and the last batch of code I posted, as well as this one, seems to ignore these msgbox requests, or the code is somehow not executing. I'm not getting a message box.
Below is the sub that I run when the form loads:
Private Sub ReadCSVToDataTable()
'http://vbcity.com/forums/topic.asp?tid=119121
'Dim dt As New DataTable 'class level
'in a method
Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\;Extended Properties=""text;HDR=Yes;FMT=Delimited"""
Dim conn As New OleDbConnection
conn.ConnectionString = constr
Dim cmd2 As New OleDbCommand
cmd2.Connection = conn
cmd2.CommandText = "Select * From All_Item_Prices.csv"
Dim da As New OleDbDataAdapter(cmd2)
Try
da.Fill(dt)
Catch ex As OleDbException
MessageBox.Show(ex.Message)
End Try
Dim row0col1 As String = dt.Rows(0).Item(1).ToString
'In the above code, the following assumptions were made:
'1) file is located in F:\ directory
'2) file name is testA.txt
'3) the file is a comma delimited file
'4) the file does not contain a header row
'MsgBox(dt.Rows(1))
End Sub
Any ideas?
As I sit here, I contemplate the last words of Socrates: "I drank what?".
Pokémon Pearl Friend Code: 4554-2418-6836
|
|
|
|
|
Ah sorry you got the wrong handle on the solution I proposed.
1. Read in the CSV file as you are doing now.
2. Move it to a datatable
3. Use the data in your app
4. Write the datatable to an XML file
Discard the CSV file
Replace 1 with read XML file into the datatable from now on. CSV is great for transporting large loads of data (XML is NOT) but XML is easier to work with.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
But... I can't move the data to a Datatable. That's my problem. It isn't working.
Is there something wrong with my code? I tried doing it that way, and also reading the file line by line as previously suggested. The data stops being read after like, the third column. And I don't know why.
As I sit here, I contemplate the last words of Socrates: "I drank what?".
Pokémon Pearl Friend Code: 4554-2418-6836
|
|
|
|
|
Your existing code puts the data into a list of items, can you successfully create a datatable based on the first row from the CSV file?
Can you load any data into the table?
Is the file a well formed CSV file?
Have you stepped through the process using debug to identify the error?
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
I haven't really figured out all of the debugging tools yet, to be honest. I'll have to try the step through thing (when I get time, tomorrow probably).
And I can load any data into a datatable, I've done it before. The CSV was an Excel spreadsheet that I exported, so I think it's well-formed.
But what could cause the code to just stop executing at a certain point? I have it clearly setup as a For loop to run until 114 or something, and it stops at like, 3.
As I sit here, I contemplate the last words of Socrates: "I drank what?".
Pokémon Pearl Friend Code: 4554-2418-6836
|
|
|
|
|
hi
I am New user for php i m just starting this
how can i use code
Jitu
|
|
|
|
|
Well, finding a php forum seems to be your first challenge. PHP is not VB in any way, shape or form.
Bob
Ashfield Consultants Ltd
|
|
|
|
|
This is a VB.NET forum. Try a PHP forum 
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
Im trying to debug a function in VB
My code looks like this. When I call Dim Ip as Int64 = GetLocId("192.168.1.1, cn) I get error "Syntax error or access violation" Its got to be something stupid I am doing.
Namespace Ip
Public Class Class1
Public Function GetLocId(ByVal Ip As String, ByVal connection As String) As Int64
Dim cn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(connection)
Dim command As String = "EXEC [dbo].[sp_location_i]"
'Dim IpId As Int64
Dim IpLocId As Int64
cn.Open()
Dim cmd As System.Data.OleDb.OleDbCommand = cn.CreateCommand()
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = command
Dim pIp As OleDbParameter = cmd.Parameters.Add("@Ip", OleDb.OleDbType.VarChar, 15)
pIp.Value = Ip
Dim pIpLocId As OleDbParameter = cmd.Parameters.Add("@IpLocId", OleDbType.BigInt)
pIpLocId.Direction = ParameterDirection.Output
'Try
cmd.ExecuteNonQuery()
'Catch exc As OleDbException
' Console.WriteLine(exc.Message)
' IpLocId = 0 --Unknow location
'Finally
cn.Close()
'End Try
IpLocId = Convert.ToInt64(pIpLocId.Value)
Return IpLocId
End Function
End Class
End Namespace
|
|
|
|
|
I think problem is with this :-
DerekFL wrote: Dim command As String = "EXEC [dbo].[sp_location_i]"
Change the Dim command line to Dim command as String = "dbo.sp_location_i". leave out the EXEC.
Steve Jowett
-------------------------
It is offen dangerous to try and see someone else's point of view, without proper training. Douglas Adams (Mostly Harmless)
|
|
|
|
|
Thanks Steve. I knew it was something stupid.
|
|
|
|
|
Hi friends,
I need help in opening a msword file from vb.net2005
to a particular Bookmark of the word document .
Please help me to complete this task..
Thanks ,
Chaitanya
|
|
|
|
|
Hi Chaitanya,
Refer to the following links:
Link #1[^]
Link #2[^]
Link #3[^]
Link #4[^]
I hope this would be helpful.
John Adams
ComponentOne LLC.
www.componentone.com
|
|
|
|
|
How we generate a help file for a window base project
and how we use it
Thanks and Regards
Amit Battan Ror
Amit Battan Ror
battan20@gmail.com
|
|
|
|
|
One more question that Google can answer for you... did you try there?
Giving out your mail id as you have is an invitation to spammers
|
|
|
|
|
create your help file in the .rtf format
1.
go to
program files-> visual studio 6.0-> visual studio 6.0 tools-> help workshop
follow the options.
2. search the google and try for 3rd party help makers.
Rajesh B --> A Poor Workman Blames His Tools <--
|
|
|
|
|
How we create a customize setup of vb6 project
means while installing the project image comes on screen should be of our own choice
Thanks and Regards
Amit Battan Ror
Amit Battan Ror
battan20@gmail.com
|
|
|
|
|
Amit Battan Ror wrote: How we create a customize setup of vb6 project
means while installing the project image comes on screen should be of our own choice
There are many installer creator programs available - MS Installer (creates MSI files), InnoSetup (open source), or if you feel more adventurous try InstallShield.
|
|
|
|
|
can you give me download link of these installer
Amit Battan Ror
battan20@gmail.com
|
|
|
|
|
Except InnoSetup which is open source, you need to pay for the others...
You really need to learn to use Google, if you want to get anywhere with these types of questions 
|
|
|
|
|
Question: how do I get this to work with Option strict On ?
I'll add a bunch of ToolstripMenuitems(dropdowns) at runtime and need to point them to ONE single click event handler
It "all" works with Option strict turned off  .. but the compiler dosn't like it with Option strict turned ON
If I change in the event handler sub
ByVal sender As ToolStripMenuItem
to
ByVal sender As Object
The compiler complains inside the sub when trying to read the
[sender.Text] value ...
Whats missing ? I know it dosn't like the narrowing - but I don't know how to fix it ....
Dim test As New ToolStripMenuItem
AddHandler test.Click, AddressOf IO_selected ' ** handler to be added **
InputsToolStripMenuItem.DropDownItems.Add(test)
Private Sub IO_selected(ByVal sender As ToolStripMenuItem, ByVal e As System.EventArgs)
IODataView.CurrentCell.Value = sender.Text
End Sub
Thanks
Georg
|
|
|
|
|
Georg Kohler wrote: If I change in the event handler sub
ByVal sender As ToolStripMenuItem
to
ByVal sender As Object
That's because when the event is fired, it's epecting the handlers signature to be an exact match to what it expects. sender MUST be declared as Object.
Georg Kohler wrote: The compiler complains inside the sub when trying to read the
[sender.Text] value ...
Obviously, the type Object doesn't have a Text property. So, you have to check for and cast the sender to the type you want. Get used to this, it's pretty common to do this:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sentMenuItem As ToolStripMenuItem
If TypeOf sender Is ToolStopMenuItem Then
sentMenuItem = DirectCast(sender, ToolStripMenuItem)
End If
IODataView.CurrentCell.Value = sentMenuItem.Text
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
