Visual Basic

MatrixCoder5-Dec-06 14:33

MatrixCoder

5-Dec-06 14:33

momooomooomomo wrote:
my problem is, if i will have 10 more textbox in my form it will consume more time to do the same thing...

It doesn't take that long, just change the TextBox value.

momooomooomomo5-Dec-06 16:12

momooomooomomo

5-Dec-06 16:12

thats good and i appreciat your effort... but my problem is how to code on how to clear textbox without knowing that you have 10 or more textbox in a form?... that idea is great but i need more technical answer coz i already done this one textbox1.text = ""...

nothing is impossible.....

MatrixCoder5-Dec-06 16:29

MatrixCoder

5-Dec-06 16:29

The only other thing I can think of is setting a Property Binding to each textbox and changing the property binding. That may not be how you want to do it, but I'm not sure how else too.

Is the user going to be adding more textboxes to your form?

VB 2005 code to a row and/or its cell values as variables

Kapil Thakur5-Dec-06 20:44

Kapil Thakur

5-Dec-06 20:44

hi,
this code snippet will clear all textboxes present on the windows form

Dim ctrl As New Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is System.Windows.Forms.TextBox Then
ctrl.Text = ""
End If
Next

Regards,
Kapil Thakur
(Where's there is Kapil , there is a way) - thakur.kapil@gmail.com

Karma312515-Dec-06 10:10

Karma31251

5-Dec-06 10:10

I need my program to go intop a datatable and grab 2 values and assign them to 2 different variables. BUT i need the program to grab the 2 cell values base upon another cell value. so, Basically i need to search the database and pull the row of data related to the criteria that i enter for column 1, and assign col2 and col3 to seperate varibles.
Thanx for the ear
Joshua

Form Resizing When Changing Text Size Thru FontDialog

doveofpeace5-Dec-06 9:28

doveofpeace

5-Dec-06 9:28

Yes when I my form layed out with all my buttons, text, comboboxes, etc... and use the Fontdialog to change the type, style and size it always makes the controls overlap others. I have looked for a way to make the form, controls, etc... to resize to handle the larger font size and or style to keep the same look, but I can't. Does anyone have a way to fix this?

Printing a report

dptalt5-Dec-06 8:48

dptalt

5-Dec-06 8:48

I'm trying to get a VB report to read its data from a dataset but when the report prints it is blank.
First I created a dataset in the project. I right clicked on the dataset designer and created a table with one column in it. Then I created a VB report and dragged the column from the datasources window onto the report. Next I created a form and dropped a reportviewer onto it and attached the report to reportviewer. In the load of this form I put the following code in to populate the dataset.

Me.SalesOrderDataSet = New Inventory.SalesOrderDataSet
Me.SalesOrderDataSet.DataSetName = "SalesOrderDataSet"
Me.SalesOrderDataSet.SchemaSerializationMode = SchemaSerializationMode.IncludeSchema

Dim newrow0 As DataRow
newrow0 = SalesOrderDataSet.SalesOrder.NewRow
newrow0.Item("company") = "Arlington"
SalesOrderDataSet.SalesOrder.Rows.Add(newrow0)

This code is supposed to populate the dataset for the report but why is the report not displaying this data?

dataset setup

gorenekli5-Dec-06 6:03

gorenekli

5-Dec-06 6:03

:-DI am 6years-VB6 programmer.
I newly stepped into vb.net
I want to set up dataset with a datagrid
Although I used different ways I couldn't succeeded.
I just want a small, simple database connection on a Form.

Thanx

gorenekli

Re: dataset setup

Kenshino5-Dec-06 9:58

working with large textfiles over the network

5-Dec-06 9:58

Hi, this is an excerpt from one of my recent projects

<br />
        Dim connection As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))<br />
        Dim command As New SqlCommand("Select * from course inner join Faculty on course.CMgr = faculty.staffID", connection)<br />
        Dim dataAdapter As New SqlDataAdapter(command)<br />
        Dim result As New DataSet<br />
        connection.Open()<br />
        dataAdapter.Fill(result, "Course")<br />
        connection.Close()<br />
        addCourseGrid.DataSource = result<br />
        addCourseGrid.DataBind()

I hope it helps!

Re: dataset setup

Polymorpher5-Dec-06 11:06

Polymorpher

5-Dec-06 11:06

I wrote a small SQL wraper here:

http://www.codeproject.com/useritems/winSQLite.asp[^]

it makes life easyer...it was writen for 2005, but I think the only thing that needs to be changed to work with 2003 would be a small part in the conversion of a datareader to a dataset.

Pablo
Sometimes I think there's no reason to get out of bed . . . then I feel wet, and I realize there is.

milkyjoe5-Dec-06 5:56

milkyjoe

5-Dec-06 5:56

Hi all,

I have recently been trying to find the best method of determining how many lines a text file contains. The main issue has been that the files I am working with are usually above 100Mb and are located on network shares of varying connected speeds and reliability.

Just thought I would share my experiences and see if anyone else had any ideas or recomendations

So far I have tried the following:

1) Looping through the file using the IO.TextReader (both readline, and readtoend methods) but this uses a whole heap of memmory and is very very slow. It is also hard to implement a progress indicater.

<br />
Private Function LineCount(FileName) As Long<br />
      Dim TX As IO.TextReader = IO.File.OpenText(FileName)<br />
<br />
      Dim ALine As String = TX.ReadLine<br />
      Dim Counter As Long = 0<br />
<br />
      Do While Not ALine Is Nothing<br />
         Counter += 1<br />
         ALine = TX.ReadLine<br />
      Loop<br />
<br />
      TX.Close()<br />
      <br />
      Return Counter<br />
<br />
   End Function<br />

2) Looping through the file using the IO.FileStream byte at a time. This seems to perform better than the textreader method but is still a very slow option. It however does provide an easy way to show the progress by calculating the bytes done against the total file size

<br />
Public Function LineCount(ByVal fileName As String) As Long<br />
      <br />
      Dim lineBuffer As Byte()<br />
      lineBuffer = New Byte(4196 - 1) {}<br />
      Dim LineCount As Long<br />
      Dim FI As New IO.FileInfo(fileName)<br />
      Dim FileSize As Long = FI.Length<br />
      Dim BytesProcessed As Long = 0<br />
      Dim BufferRead As Integer = 0<br />
      Dim x As Integer = 0<br />
      LineCount = 0<br />
           <br />
      <br />
      Dim FS As New FileStream(fi.FullName, FileMode.Open, FileAccess.Read, _<br />
      FileShare.Read, lineBuffer.Length)<br />
<br />
      Do While BytesProcessed < FileSize<br />
         Try<br />
            BufferRead = FS.Read(lineBuffer, 0, lineBuffer.Length)<br />
<br />
            If BufferRead > 0 Then<br />
               For x = 0 To (BufferRead - 1)<br />
                  If lineBuffer(x) = 13 Then<br />
                     LineCount += 1<br />
                  End If<br />
<br />
                  ' Evaluate Percent done here i.e Percentdone = CInt((BytesProcessed / FileSize) * 100)<br />
<br />
                  BytesProcessed += 1<br />
               Next<br />
            End If<br />
      Loop<br />
<br />
      FS.Close()<br />
      Return LineCount<br />
<br />
End Function<br />

3) looping through a percentage of the file using the IO.FileStream byte at a time and estimating the number of lines based on the overall file length and the average line byte length. This was fairly fast but produced varying degrees of accuracy as the line lengths are mor often than not irregular.

<br />
Public Function LineCount(ByVal fileName As String, ByVal PercentageRead as Integer) As Long<br />
      <br />
      Dim lineBuffer As Byte()<br />
      lineBuffer = New Byte(4196 - 1) {}<br />
      Dim LineCount As Long<br />
      Dim FI As New IO.FileInfo(fileName)<br />
      Dim FileSize As Long = FI.Length<br />
      Dim BytesProcessed As Long = 0<br />
      Dim BufferRead As Integer = 0<br />
      Dim x As Integer = 0<br />
      Dim FileSizePercentage As Integer = Cint((FileSize / 100) * PercentageRead)<br />
      LineCount = 0<br />
           <br />
      <br />
      Dim FS As New FileStream(fi.FullName, FileMode.Open, FileAccess.Read, _<br />
      FileShare.Read, lineBuffer.Length)<br />
<br />
      Do While BytesProcessed < FileSizePercentage<br />
         Try<br />
            BufferRead = FS.Read(lineBuffer, 0, lineBuffer.Length)<br />
<br />
            If BufferRead > 0 Then<br />
               For x = 0 To (BufferRead - 1)<br />
                  If lineBuffer(x) = 13 Then<br />
                     LineCount += 1<br />
                  End If<br />
<br />
                  ' Evaluate Percent done here i.e Percentdone = CInt((BytesProcessed / FileSizePercentage) * 100)<br />
<br />
                  BytesProcessed += 1<br />
               Next<br />
            End If<br />
      Loop<br />
<br />
      FS.Close()<br />
<br />
      Return Clng((LineCount / FileSizePercentage) * 100)<br />
<br />
End Function<br />

4) Using LogParser Interfaces collection shipped with MS Logparser 2.2. This seems
to be the fastest method but will only work for files with a line count within the Int32 range. And again has no way to determine the percentage done.

<br />
Public Function LineCount(ByVal fileName As String) As Integer<br />
      <br />
      Dim InputClass As New MSUtil.COMTextLineInputContextClass<br />
      Dim LogParserClass As New MSUtil.LogQueryClass<br />
      Dim IRs As MSUtil.ILogRecordset   <br />
      Dim QueryString As String = "SELECT COUNT(Text) FROM '" & fileName & "'"<br />
      <br />
      InputClass.splitLongLines = False        <br />
      <br />
      IRs = LogParserClass.Execute(QueryString, InputClass)<br />
      Return IRs.inputUnitsProcessed<br />
<br />
End Function<br />

Ideas and thoughts appreciated

Re: working with large textfiles over the network

Are Jay5-Dec-06 18:03

Are Jay

5-Dec-06 18:03

I'm not completely sure but I was under in the impression that when using IO.TextReader and IO.FileStream Classes is like opening a connection to the document and reading it from it original location. Would creating a temp copy of the file for processing help your performance?

milkyjoe wrote:
above 100Mb and are located on network shares of varying connected speeds and reliability

Dim dtTimeStamp As String = Date.Now.ToString.Replace("/", "-")<br />
Dim tempFileDir As String = IO.Directory.GetCurrentDirectory & "\temp"<br />
Dim tempPath As String = tempFileDir & "\" & dtTimeStamp.Replace(":", "")<br />
IO.File.Copy(remoteFileLocation, tempPath)

Do all the processing then kill the file when your collecting or garbage.

Re: working with large textfiles over the network

milkyjoe5-Dec-06 23:06

milkyjoe

5-Dec-06 23:06

Hi AreJay, thanks for the reply.

I had thought about trying this but have not as yet. If I remember correctly there is also a bytestream method for copying files. I am now wondering if I can read the file as I copy it. I will give it a go and let you know how I get on.

Help me with weird datagrid checkbox problem

Kenshino5-Dec-06 3:21

5-Dec-06 3:21

I'm not sure if this is the correct area, forgive me if it is not!

I have this datagrid that is called deleteCourseGrid and it has a template column. I put a checkbox inside and its ID is deleteCheck.

I also have a confirm button that runs the code below.

The problem is, somehow, it does not detect that a box is checked. I tried checking each individual rows and cb.checked is always false.

Am I doing something wrong?

Thanks for help in advance!

Dim connection As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))<br />
Dim command As New SqlCommand("delete from course where courseID = @courseID", connection)<br />
Dim i As Integer = 0<br />
Dim cb As CheckBox<br />
Dim courseID As String<br />
cb = deleteCourseGrid.Items(i).FindControl("deleteCheck")<br />
For i = 0 To deleteCourseGrid.Items.Count - 1<br />
    If cb.Checked = True Then<br />
        courseID = deleteCourseGrid.Items(i).Cells(0).Text<br />
        command.Parameters.Add("@courseID", courseID)<br />
        connection.Open()<br />
        command.ExecuteNonQuery()<br />
        connection.Close()<br />
    End If<br />
Next<br />
Response.Redirect("updated.aspx")

Kevin Nicol5-Dec-06 3:53

Kevin Nicol

5-Dec-06 3:53

try treating cells in that column as bools

<br />
If row.item("deleteCheck") then<br />
  Delete<br />
End if<br />

Kenshino5-Dec-06 4:28

5-Dec-06 4:28

Hi! Thanks for the help.

But I'm really not sure what you mean. Could you elaborate?

Thanks!

Kevin Nicol5-Dec-06 5:18

Kevin Nicol

5-Dec-06 5:18

well your normal textbox data column in the grid, displays all strings and numbers as text. It works the same for boolean columns. A DataGridBoolColumn will display true as checked, false as unchecked. So whatever column on your datatable is mapped to this DataGridBoolColumn will contain the true or false that is shown in the datagrid column.

If you had a datatable (Two columns -> Name, Smoker) where smoker would be mapped to the DataGridBoolColumn, in each row in the table, a boolean would appear in the column smoker with resepct to the checked state of the textbox on the datagrid.

Hope that helps.

Kenshino5-Dec-06 5:29

5-Dec-06 5:29

Thanks Kevin.

I think understand the logic behind your explanation, however I fail to find anything that relates DataGridBoolColumn in Visual Studio 2003.

Is there something that I'm missing?

What I'm trying to do is to allow the administrator to tick the courses that he wants to delete and then when he clicks the confirm button, the code scrolls through, if it's ticked, it sends the SQL command and deletes it.

I'm sorry for troubling you =/

Kevin Nicol5-Dec-06 6:17

Kevin Nicol

5-Dec-06 6:17

ok This is how I would do that. Lets say you have a datatable (courseTable) with one column (A course ID).

First add a second column to the table

<br />
courseTable.columns.add(new dataColumn("Delete"))<br />

Setup the tablestyle for the bool column

<br />
Dim style As New DataGridTableStyle<br />
style.GridColumnStyles.Clear()<br />
style.MappingName = courseTable.TableName<br />
<br />
Dim col As New DataGridBoolColumn<br />
col.MappingName = "Delete"<br />
col.HeaderText = "Delete"<br />
col.AllowNull = False<br />
style.GridColumnStyles.Add(col)<br />
<br />
DataGrid1.TableStyles.Add(style)<br />
DataGrid1.DataSource = courseTable<br />

now you have the right setup for the bool column, just display it by adding rows to the datatable somehow from the database.

so in your confirm button routine just check for deletes

<br />
For Each row As DataRow In courseTable.Rows<br />
  If row.Item("Delete") Then<br />
     'This row was ticked so perform a delete<br />
  End If<br />
Next<br />

That should do it for you

Kenshino5-Dec-06 10:08