|
I highly suggest picking up a book on VB.NET for beginners. If you're that new to this, you really need to learn the basics of OOP and the .NET Framework before you try and tackle a project that deals with a database.
|
|
|
|
|
will do ! thankx for the advice ! 
|
|
|
|
|
I'm working on a shoppingCart and try to delete multiple rows at once, but get error message:
"Collection was modified; enumeration operation may not execute."
Here is my code:
Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
For Each row As GridViewRow In GridView1.Rows
Dim chk As CheckBox = CType(row.FindControl("Remove"), CheckBox)
If Not chk Is Nothing AndAlso chk.Checked Then
Dim ID = New Guid(GridView1.DataKeys(row.RowIndex).Value.ToString())
StoreManager.RemoveItem(ID)
End If
Next
End Sub
Code for:
Class StoreManager
Public Shared Sub RemoveItem(ByVal id As Guid)
ShoppingCart.Remove(id)
End Sub
Code for:
Class ShoppingCart
Public Sub Remove(ByVal id As Guid)
For Each existingProd As OrderedProducts In _items
If id = existingProd.ID Then
_items.Remove(existingProd)
End If
Next 'error calls this line!!!
End Sub
Not sure how to fix error!
|
|
|
|
|
You cannot use For/Each/Next on a collection if you're going to modify the collection. You have to use For/Next with an indexing variable, and you have to iterate over the collection backwards, meaning you start at the end and work your way back to the beginning.
For i As Integer = GridView1.Rows.Length - 1 to 0 Step -1
.
.
Next
|
|
|
|
|
Hmmm, I tried this but still get same error
For i As Integer = GridView1.Rows.Count - 1 To 0 Step -1
Dim row As GridViewRow = GridView1.Rows(i)
Dim chk As CheckBox = CType(row.FindControl("Remove"), CheckBox)
If Not chk Is Nothing AndAlso chk.Checked Then
Dim ID = New Guid(GridView1.DataKeys(row.RowIndex).Value.ToString())
StoreManager.RemoveItem(ID)
End If
Next
|
|
|
|
|
Ok, found the problem and fixed it:
Public Sub Remove(ByVal id As Guid)
For i As Integer = _items.Count - 1 To 0 Step -1
Dim existingProd As OrderedProducts = _items(i)
If id = existingProd.ID Then
MsgBox("Found Product! Count: " & _items.Count.ToString() & "items")
_items.Remove(existingProd)
MsgBox("Deleted Product! Count: " & _items.Count.ToString() & "items")
End If
Next
End Sub
Thanks a lot!!!
|
|
|
|
|
I am trying to write a program that will search the hard drive for files using windows service in vb.net. I already created the service, but I am not sure if my code to search for files is correct. Does anyone have any suggestions or samples on how to search for files using vb.net. Here is the code that I have below:
Protected Overrides Sub OnStart(ByVal args() As String)
' Add code here to start your service. This method should set things
' in motion so your service can do its work.
Timer1.Enabled = True
SearchFiles(".txt")
End Sub
Protected Overrides Sub OnStop()
' Add code here to perform any tear-down necessary to stop your service.
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Check if the event log exists
If Not System.Diagnostics.EventLog.SourceExists("MyService") Then
'Create Log
System.Diagnostics.EventLog.CreateEventSource("MyService", "Myservice Log")
End If
EventLog.Source = "MyService"
'Write to the log
System.Diagnostics.EventLog.WriteEntry("MyService Log", "This is log on " & _
CStr(TimeOfDay), EventLogEntryType.Information)
End Sub
Private Sub SearchFiles(ByVal FileType As String)
Dim FilePath As String = "c:\"
Dim rootDi As New DirectoryInfo(FilePath)
Dim Di As DirectoryInfo
For Each Di In rootDi.GetDirectories
Directory.GetFiles(FilePath, FileType)
Next
End Sub
Please help!
jds1207
|
|
|
|
|
I would just use File.Exists method. Or were you trying to list each file that you searched?
Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.
|
|
|
|
|
First, scrap this service. If you can't write the code to search for files in a normal app, writing it as serice will only serve to frustrate you to death. Besides, the way you've written this code demonstrates a lack of understanding how Services work, how to write them, and most importantly, how to communicate with them to get them to do something useful.
The Timer isn't doing anything other than creating an event log on every tick of the timer.
You have no method of calling your function. Sure, it CAN work as a search, but you have no methods in here that allow for communication with the service in any way, so you have no way to call the search code.
Services require you to do a lot more planning up front. There's no such thing a "whipping one togther" like you can with a Console or Windows Forms app.
There's nothing in this code to salvage to get a working service. This thing really does need to be scrapped.
Simplify your code and get a working search in a Console or Windows Forms app first. The experience you get with that will show you what a search needs for input and what it can return as output and how it needs to be returned. After that, you can add threading support, which will give you the basis for writing a service that's going to work. You can't do this with a Timer...
|
|
|
|
|
I have started working on a search in a windows forms app but when I try to run the program I get the following security Exception
"Request for the permission of type 'System.Security.Permissions.FileIOPermission, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' failed."
Here is my code:
Dim FilePath As String = TextBox1.Text
Dim FileType As String = TextBox2.Text
Dim diContents As New DirectoryInfo(FilePath)
Dim di As FileInfo
Dim filename As String = ListBox1.SelectedIndex
Dim testname As String
For Each di In diContents.GetFiles
Dim dirs() As String = Directory.GetFiles(FilePath & di.Name)
For Each filename In dirs
testname = System.IO.Path.GetFileName(filename)
Dim fileTest As String = testname.Remove(0, (Len(testname) - 3))
If UCase(fileTest) = FileType Then
ListBox1.Items.Add(testname)
End If
Next
Next
End Sub
Just to explain what I am trying to do, I want to enter the file path into the textbox where I want to search for the files. I want to enter the file extension(.txt, .mp3) into a textbox to specific what type of file I am looking for. Once the files are found, add them to the list box on the form. Is this code correct?
This line of code(Dim diContents As New DirectoryInfo(FilePath)) is highlighted when error occurs.
Any ideas?
jds1207
|
|
|
|
|
Nowhere in your code is there any provisions for handling the inevitable "access denied" error. Your code probably bombed in the root of your C: drive on a folder called "System Volume Information". You have to put some of this code in Try/Catch blocks to handle this eventuallity and deal with it as you must.
|
|
|
|
|
Don't tell me, tell the OP. That way, he'll get the email notification that you replied, not me.
|
|
|
|
|
sorry Dave,
i thought every one involved with a thread will get a notification when new post created
Vilsad P P
MCTS (Windows Applications) .Net 2.0
|
|
|
|
|
i didn't see any output from your search, just calling di.listfiles(type) but not adding it to anywhere!
and you are searching only C drive, what if your computer have morethan one drive.
try this
initialise your search like this
dim drv as driveinfo<br />
for each drv in my.computer.filesystem.drives()<br />
if drv.isready then<br />
searchfiles(drv.rootdirectory,type)<br />
end if<br />
next
and create a searchfiles method with path and filetype as parameters
private sub searchfiles(byval path as directoryinfo,byval filetype as string)<br />
try<br />
'this will handle the error access denied<br />
'list files<br />
dim fi as fileinfo<br />
for each fi in di.getfiles(filetype)<br />
Application.DoEvents()<br />
'do something with the file here<br />
next<br />
'now go through the directories and get files from subdirectories<br />
dim sdi as directoryinfo<br />
for each sdi in di.getDirectories()<br />
Application.DoEvents()<br />
searchfiles(sdi,filetype)<br />
next <br />
catch exception as ex<br />
end catch<br />
end sub
this will get you through all the directories in a computer.
hope this works for you
Vilsad P P
MCTS (Windows Applications) .Net 2.0
|
|
|
|
|
Hello there..
Iam doing an application, studio 2003, vb.net, and what i need is:
1: I want this application to start up when windows starts (turn on the pc).
2: When i hit the close button, (up right of the window), the application to be minimized at the taskbar, near the clock icon, like msn and yahoo messenger is.
Very thanksfull....
Scorpion.
|
|
|
|
|
scorp_scorp wrote: I want this application to start up when windows starts (turn on the pc).
This article might help.
scorp_scorp wrote: When i hit the close button, (up right of the window), the application to be minimized at the taskbar
Check out the NotifyIcon.
Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.
|
|
|
|
|
1) place a shortcut to your app in the start menu/programs/startup folder
2) do research on System.Windows.Forms.NotifyIcon
in the forms' closing event
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
e.cancel=true
me.hide
turn on the notifyicon object
End Sub
|
|
|
|
|
Hi
How can I display row numbers on the left hand side of a datagridview control. (i.e. not in the cells)
|
|
|
|
|
hi RichardBerry,
try following code
Dim i As Integer
For i = 0 To datagridview1.Rows.Count - 1
datagridview1.Rows(i).HeaderCell.Value = CStr(datagridview1.Rows(i).HeaderCell.RowIndex + 1)
Next
hope this helps
Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)
|
|
|
|
|
Hi Rupesh
Thanks, that does work
I was however hoping for somthing automatic. Also if I delete a row, then I will have to catch that event and renumber the rows.
Thanks for your help though 
|
|
|
|
|
|
Hi,
I have a need to send some data from database to a word template.
Do any body have any idea about it.
Example: If i have a word file as certificate.doc (with images and text)
and at particular occurance of word as <name> the text has to change with database field.
Any help... plz
Jats
|
|
|
|
|
Hi ,
I want to update my database with the names and contact info of the ppl by using the Whitepages.com site from the reverse numbers option. I m using httpWebrequest and httpWebresponse classes to work it out .. but i m unable to get the page with the desired data ( same as when a user types a number s and presses search button). I have used the POST method and appended the post data but the same default page is returned to me . can any body help me out ???
|
|
|
|
|
hi all,
I dynamically create buttons on main_form, then in a module (functions) i try to access this controls by setting an focus to one of them.
when i try to access with "index = Frm_Main.CtrlFocus" it doesnt work becouse number of controls is zero since this frm_main is new instance i guess?!
Does anyone know how to fix this, and if there is a better way?
Thanks
greg
Public Class Frm_Main
Dim WithEvents BtnOperate As New OpenNETCF.Windows.Forms.Button2
Private Sub Frm_Main_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BtnOperate.Location = New System.Drawing.Point(20, 20)
Me.BtnOperate.Size = New System.Drawing.Size(150, 150)
Me.BtnOperate.TabIndex = 0
Me.Controls.Add(Me.BtnOperate)
Me.BtnOperate.BackgroundImage = b
Me.BtnTest2.Location = New System.Drawing.Point(340, 20)
Me.BtnTest2.Size = New System.Drawing.Size(150, 150)
Me.BtnTest2.TabIndex = 2
Me.Controls.Add(Me.BtnTest2)
Me.BtnTest2.BackgroundImage = b
End Sub
Public Property CtrlFocus() As Integer
Get
Dim i As Integer = Me.Controls.Count
Dim ctrl As Control
For Each ctrl In Me.Controls
If ctrl.Focused Then
Return ctrl.TabIndex
End If
Next
End Get
Set(ByVal value As Integer)
Dim ctrl As Control
For Each ctrl In Me.Controls
If ctrl.TabIndex = value Then
ctrl.Focus()
End If
Next
End Set
End Property
End Class
Public Class Functions
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SP1.DataReceived
BytesToRead = SP1.BytesToRead
Dim buffer(BytesToRead - 1) As Byte
SP1.Read(buffer, 0, BytesToRead)
message = message + System.Text.Encoding.Default.GetString(buffer, 0, BytesToRead)
SP1.DiscardInBuffer()
If message.IndexOf(Chr(3)) > -1 Then
Dim STX As Integer = message.IndexOf(Chr(2))
If message(STX + 1) = "K" Then
Dim index As Integer
Select Case message(STX + 2)
Case "U"
index = Frm_Main.CtrlFocus
index = (index + 4) Mod 8
Frm_Main.CtrlFocus = index
End Select
End If
End Sub
|
|
|
|
|
Stop spamming the forums!
-- modified at 10:52 Tuesday 8th May, 2007
This was originally a response to a message that has since been deleted.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
