|
Your question belong to 'Mobile Development' board.
I Love T-SQL
"Don't torture yourself,let the life to do it for you."
If my post helps you kindly save my time by voting my post.
|
|
|
|
|
Well, google ought to tell you.
"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
|
|
|
|
|
it seems as you are not getting me,
here is a questions im givin:
Create a Smartphone application, Use a cell phone keypad, enter input using Smartphone, Enter other characters using the keypad, Add Smartphone application & Display MessageBox objects in a Smartphone environment.
|
|
|
|
|
Bongumusa wrote: How do I create a smartphone using VB 2008
I doubt very much that anyone could create a smartphone with vb.net, although you could write a program in vb.net for one. 
In all seriousness, there are entire books written on this subject. Try Googling VB.NET Windows Mobile[^], see what you get.
Steve Jowett
-------------------------
It is offen dangerous to try and see someone else's point of view, without proper training. Douglas Adams (Mostly Harmless)
|
|
|
|
|
|
Why double post?!
I Love T-SQL
"Don't torture yourself,let the life to do it for you."
If my post helps you kindly save my time by voting my post.
|
|
|
|
|
Don't double post with a vague, and short post 
"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
|
|
|
|
|
Figure it out?
Any suggestions, ideas, or 'constructive criticism' are always welcome.
|
|
|
|
|
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
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
