Visual Basic

Re: Passing parameter to hardcoded SQL statement (non Stored Procedure)

13-Jul-07 7:00

This happened because the original poster deleted his question, thereby orphaning the replys he got. It's a known issue and won't be fixed until the next release of the CodeProject web site.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Paul Conrad15-Jul-07 5:47

Paul Conrad

15-Jul-07 5:47

Yikes this is a mess. I am trying to follow through the Changing color of text... thread. Almost there Laugh | :laugh:

"The clue train passed his station without stopping." - John Simmons / outlaw programmer

Re: Passing parameter to hardcoded SQL statement (non Stored Procedure) [modified]

Rupesh Kumar Swami13-Jul-07 6:54

Rupesh Kumar Swami

13-Jul-07 6:54

i dont understand where r problem in code project forms coding. SInce question is 45 min ago. & your answer is 2 hour 45 minute ago. Also subject is different

Please note this bug

Also note that i reply christian but this reply add to Dave Note this thing

-- modified at 12:59 Friday 13th July, 2007

-- modified at 13:00 Friday 13th July, 2007

Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)

Help! Read Unicode Text File to VB program

jackie83sg200513-Jul-07 2:58

jackie83sg2005

13-Jul-07 2:58

Hi,

I am using Visual Studio 2005's Visual Basic developer. I have a problem that i need to extract the unicode from a text file to my progam. And normal character have not a problem but when come to a certain extent of the unicode set, it prompt a error saying that it is invaild.

Here is my code:

OpenFileDialog1.ShowDialog()
Dim direct As String
direct = OpenFileDialog1.FileName
Dim fs As FileStream
fs = New FileStream(direct, FileMode.Open)
Dim sr As StreamReader
sr = New StreamReader(fs)
Dim n1 As Integer
Dim s1(100) As Char
Dim n2 As Integer
n2 = 0
While sr.Peek >= -1
n1 = sr.Read()
s1(n2) = Chr(n1)
n2 += 1
End While

my input is this unicode, §. So when it read from file to here, it prompt the error. So please help me...!

Thanks and Regards,
A person who don't whether he is a newbie or novice. Smile | :)

Christian Graus13-Jul-07 3:29

Christian Graus

13-Jul-07 3:29

jackie83sg2005 wrote:
Dim s1(100) As Char
Dim n2 As Integer
n2 = 0
While sr.Peek >= -1
n1 = sr.Read()
s1(n2) = Chr(n1)
n2 += 1
End While

Wow - what a mess.

1 - why do you limit yourself to 100 characters, instead of using a List or something ?
2 - why do you read one character at a time ?

File.ReadAllText will read an entire file in one line of code.

Christian Graus - Microsoft MVP - C++

"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

Paul Conrad13-Jul-07 4:29

Paul Conrad

13-Jul-07 4:29

Christian Graus wrote:
Wow - what a mess.

Just imagine maintaining it in the future :->

"Any sort of work in VB6 is bound to provide several WTF moments." - Christian Graus

jackie83sg200513-Jul-07 4:50

jackie83sg2005

13-Jul-07 4:50

Hi,

thanks for commenting my previous program. I know that it is really in a WOW mess.

I try you method but I still have the unicode conversion problem that I posted in the first thread.

I appreciate your help. I have shorten the whole program as follows:

OpenFileDialog1.ShowDialog()
Dim direct As String
direct = OpenFileDialog1.FileName
Dim str As String
Dim adder As Integer
Dim reader As Integer
reader = 0
adder = 0
str = File.ReadAllText(direct)
reader = str.Length
Do While (adder <> reader)
Try
ComboBox1.Items.Add(str.Chars(adder))
adder += 1
Catch ex As Exception

End Try
Loop

So please help mi from the unicode's ASCII index is 167 after conversion. It is simple when you type in the unicode in to the windows form but I try to retrieve from file. WoW, it is very different and difficult, so need you people out that who is experted in it to help me out...

Thanks and Regards,
A person who do not know whether he is a newbie or novice.

Dave Kreskowiak13-Jul-07 4:54

13-Jul-07 4:54

What does the code look like that wrote the file?? Maybe it's not really Unicode where you think it is.

Or, there's another possilibity. Change the ReadAllText line to:

Imports System.Io
Imports System.Text

.
.
.
 
    str = File.ReadAllText(direct, Encoding.Unicode)

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Array -> listview1.groups.addrange

jackie83sg200513-Jul-07 15:16

jackie83sg2005

13-Jul-07 15:16

Thanks alot. It works.. But need to manipulate the working of normal File.ReadAllText(direct) and File.ReadAllText(direct, Encoding.Unicode)...

thanks a lot once again

svh198513-Jul-07 2:45

svh1985

13-Jul-07 2:45

how do i make a array and fill the listview1.groups.addrange(arrayname) with the array?

i want to add groups this way so i can sort the array and add the groups name in the right order: A-Z

i dont have a lot experience with arrays.

thanks for your help!

Dave Kreskowiak13-Jul-07 4:19

13-Jul-07 4:19

If you don't know anything about arrays, I highly suggest picking up a book on VB.NET and going through it. Without this basic knowledge, you're going to find most projects impossible to do.

Dim groupNames(2) As String
groupNames(0) = "Group2"
groupNames(1) = "Group3"
groupNames(2) = "Group1"

Array.Sort(groupNames)
For Each groupName As String In groupNames
    ListView1.Groups.Add(New ListViewGroup(groupName))
Next

I've kept this example very simple. There's another method for creating a ListViewGroup array, that can be used with AddRange, that uses an Array's ConvertAll method, but you have to supply a Converter delegate and method to do the conversion from String to a ListViewGroup object. But, if you don't know arrays, this litte topic will not make any sense at all...

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

svh198513-Jul-07 4:39

svh1985

13-Jul-07 4:39

hi thanks four your reply

I do understand how arrays work but i dont know witch type and how i script them.

the code does not work

my code:

        Dim groupNames(2) As String<br />
        groupNames(0) = "Group2"<br />
        groupNames(1) = "Group3"<br />
        groupNames(2) = "Group1"<br />
<br />
        Array.Sort(groupNames)<br />
        '        ListView1.Groups.Add("Group1", "Group1")<br />
        For Each groupName As String In groupNames<br />
            ListView1.Groups.Add(New ListViewGroup(groupName))<br />
        Next<br />
        ListView1.Items.Add("Item1", 0).Group = ListView1.Groups("Group1")<br />
        ListView1.Items.Add("Item2", 0).Group = ListView1.Groups("Group2")<br />
        ListView1.Items.Add("Item3", 0).Group = ListView1.Groups("Group3")<br />
    End Sub

Dave Kreskowiak13-Jul-07 4:47

13-Jul-07 4:47

svanheest wrote:
the code does not work

Define "does not work". What DOES happen?? Do you get an error message??

Is your code running on Windows XP or above? Did you EnableVisualStyles in your project?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

svh198513-Jul-07 4:55

svh1985

13-Jul-07 4:55

thanks for your reply,

sorry for the bad explanation

im using xp sp2 with vb.net 2005 wit visual styles enabled

listview propertys:
Groups = true
Style = tiles

press a button with this code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        Dim groupNames(2) As String<br />
        groupNames(0) = "Group2"<br />
        groupNames(1) = "Group3"<br />
        groupNames(2) = "Group1"<br />
<br />
        Array.Sort(groupNames)<br />
        '        ListView1.Groups.Add("Group1", "Group1")<br />
        For Each groupName As String In groupNames<br />
            ListView1.Groups.Add(New ListViewGroup(groupName))<br />
        Next<br />
        ListView1.Items.Add("Item1", 0).Group = ListView1.Groups("Group1")<br />
        ListView1.Items.Add("Item2", 0).Group = ListView1.Groups("Group2")<br />
        ListView1.Items.Add("Item3", 0).Group = ListView1.Groups("Group3")<br />
    End Sub

i get a group "Default" with item1, item2, item3 in it.
the other groups: group1, group2, group3 does not show in the listview

thx

Dave Kreskowiak13-Jul-07 15:42

how to know a structure of a project

13-Jul-07 15:42

Change the group creation code to add a Name to each group:

For Each groupName As String In groupNames
    Dim lvg As New ListViewGroup(groupName)
    lvg.Name = groupName
    ListView1.Groups.Add(lvg)
Next

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Santosh Kumar Maharana13-Jul-07 2:41

Santosh Kumar Maharana

13-Jul-07 2:41

hi,

i want to generate a report for a project which will show all the methods or functions called from starting to end.
i.e suppose there is a web applicatioon project and this report should show the flow of the code. (i.e. starting from a button_click event to the database call along with all the methods being called)

so that when a new person will see, s/he able to know the flow of code quickly.

please help me if you have any solution to achive this

Santosh Kumar Maharana

Re: how to know a structure of a project

Dave Kreskowiak13-Jul-07 3:58

13-Jul-07 3:58

There are packages that do this already, such as DevPartner[^].

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: authentication help

Dave Kreskowiak13-Jul-07 3:55

How to get Binary File into XML and then back

13-Jul-07 3:55

You're treading in the waters of the ASP.NET forum. Your question really has nothing to do with VB.NET.

But, yes, a cookie that expires in a short time would do this. Ask this question in the ASP.NET Forum for more info.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: authentication help

Paul Conrad13-Jul-07 4:30

Paul Conrad

13-Jul-07 4:30

Funny I did the same reply in the ASP.NET forum Laugh | :laugh:

"Any sort of work in VB6 is bound to provide several WTF moments." - Christian Graus

Rizwan Bashir13-Jul-07 1:42

Rizwan Bashir

13-Jul-07 1:42

I have One Dataset with table name ="table1" having Columns
FileName = Name of file
File Type = Extension of File
File = Binary Data.
After Adding Binary in the Dataset. I generate XML from it by using DS.writeXML("c:\temp\abc.xml")

Now when I need to restore the file it creates the file but on opening the file says it is corrupt or it shows junk data ?

Any GuideLines ???

Rizwan Bashir
ALM Soft[^]

SHatchard13-Jul-07 2:09

SHatchard

13-Jul-07 2:09

You are storing XML (which is plain text) into a binary blob field in your database. I suggest using varchar(max) in SQL 2005 or a text blob field for storage which should sort out your problem.

Rizwan Bashir13-Jul-07 2:27

Rizwan Bashir

13-Jul-07 2:27

Please read my Message Again.. There is no SQL Server. Only Data moving to and fro in XML only.

Rizwan Bashir
ALM Soft[^]

SHatchard13-Jul-07 2:43

SHatchard

13-Jul-07 2:43

Apologies. Trying to do too many things at once...

I assume you are reading the file with dataset.readxml, if not please post back. Otherwise can you provide an example of the content of the xml file which is causing the problem?

Thanks

Dave Kreskowiak13-Jul-07 3:52