|
Give this a try
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim folderDate As Date 'Holds the date the folder name represents
'Loop through each folder under a given directory
For Each dir As String In IO.Directory.GetDirectories("c:\test")
'Try to parse folder name to valid date
Date.TryParse(IO.Path.GetFileName(dir), folderDate)
'If folderDate is less then Date selected, then remove it
If folderDate <> Nothing AndAlso Date.Compare(folderDate, DateTimePicker1.Value.Date) < 0 Then
IO.Directory.Delete(dir, True)
End If
Next
End Sub
|
|
|
|
|
thx man...
your My hero
Regards
Ramy
|
|
|
|
|
Hi everybody,
I'm looking for the way to control my WiFi connection on my PocketPC (Windows Mobile 5), but I can't find it anywhere.
I would like to, by example, choose the network I connect to by SSID, be able to know the WiFI stength signal, ...
Is there any existing object on the ConpactFramework giving me this ability ?
Thanks for your help,
Regards,
Ch'Portos.
|
|
|
|
|
!UP!
Regards,
Ch'Portos.
_________________________
while(1) {
fork();
}
|
|
|
|
|
I have a list box with a lsit of items which on forward button click the select items move to next list box,now on backward button click the select items from this listbox should back to the first at the same position?
thanks
|
|
|
|
|
try thi one...You have two list box. Please consiger the following statements are in the 'FORWARD' button. You can also accomplish the 'back' button by reversing it.
listBox2.Items.Add(listBox1.SelectedItem);
listBox1.Items.Remove(listBox1.SelectedItem);
//Hopes this help
|
|
|
|
|
Hi Friend
U can do this
Private Sub SendinRightListbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendinRightListbox.Click
ListBox2.Items.Add(ListBox1.SelectedItem)
ListBox1.Items.Remove(ListBox1.SelectedItem)
End Sub
Private Sub SendinLeftListbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendinLeftListbox.Click
ListBox1.Items.Add(ListBox2.SelectedItem)
ListBox2.Items.Remove(ListBox2.SelectedItem)
End Sub
Thanks & Regards
Form :-
Vikash Yadav
|
|
|
|
|
Hi,
Thanks ,but the solution given by you doesnt work in my case as the attched listbox image with make the question more clear,
Here the contents cc and receipient go from left to right listbox but physically they can be seen in the left list box which is the master listbox.Once this 2 values go to the right listbox if i want to bring them back to the first listbox both together,what should be done?I dont want ot create mutiple copies of the same values in the left listbox using ListBox1.Items.Add(ListBox2.SelectedItem)
so give me please a solution which will work in this case if possible.
thanks
|
|
|
|
|
When You send any item to right list box then remove it from left listbox
and move it right to left then remove it from right listbox
with this code
listbox2.items.remove(listbox2.selecteditem)
Thanks & Regards
Form :-
Vikash Yadav
|
|
|
|
|
but the biggest constraint is that the item should not be removed from right list box,let it be as it but while moving left to right delete the items from the left listbox applying mutiple selection for loop how to do it?
thanks
|
|
|
|
|
I couldn't see the image you said you attatched so I'm not 100% sure how you want this to work but I believe the idea is this. You have two listbox's. You want one of them to have a master list (ie. items will not be removed), the second will have items added to it by the user which are selected from the master list. The user can also remove items from the second list when the click back or whatever the button happens to be. Take a look at this code and see if it works for you.
'---Add selected items in Listbox1 to Listbox2---
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each item As Object In ListBox1.SelectedItems
If Not ListBox2.Items.Contains(item) Then ListBox2.Items.Add(item)
Next
End Sub
'---Remove selected items from Listbox2---
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
With ListBox2.SelectedItems
For i As Integer = .Count - 1 To 0 Step -1
ListBox2.Items.Remove(.Item(i))
Next
End With
End Sub
-- modified at 13:43 Monday 5th February, 2007
|
|
|
|
|
Hello,
I am using Vs.Net 2005. In my project i am using SQL 2000 DataBase & it will be on network. I had done connection string to access data from network and in this project i want to save txt file on that system, there SQL database in C:/Data
How i can do this PLZ help me. 
Thanks & Regards
Form :-
Vikash Yadav
|
|
|
|
|
Vikash Yadav wrote: How i can do this PLZ help me.
I'm still trying to work out what you want.
Do you want to save the text file on the same computer that has SQL Server installed?
If yes, then you need to create a network share on the target computer. Then to save the file you use the full UNC path name. e.g. \\ServerName\ShareName\FolderName\File.txt
|
|
|
|
|
Thanks For Help
I will try this
Thanks & Regards
Form :-
Vikash Yadav
|
|
|
|
|
Hi, I am getting access denied error.The complete code is here.
It some time showing access denied errorto the file.Is there anything wrong.
Plese Help me. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
If Not Page.IsPostBack Then
add_hit_to_txtfile()
End If
End Sub
Private Sub add_hit_to_txtfile()
Dim url As String = Request.RawUrl
Dim a() As String = url.Split("/")
Dim b() As String = a(a.Length - 1).Split(".aspx")
Dim page_name As String = b(0)
HitCounter(page_name)
End Sub
Public Sub EntryInCurrentDate(ByVal reqPage As String, Optional ByVal subFolder As Integer = 0)
Dim myPath As String = ""
Dim pathLog As String = ""
Dim pathLoc As String = ""
Dim pathZip As String = ""
Select Case subFolder
Case 0
myPath = "Data\DateWiseHit.xml"
Pathlog = "Data\login.txt"
pathLoc = "Data\txtloc.txt"
pathZip = "Data\ZIP_CODES.txt"
Case 1
myPath = "..\Data\DateWiseHit.xml"
Pathlog = "..\Data\login.txt"
pathLoc = "..\Data\txtloc.txt"
pathZip = "..\Data\ZIP_CODES.txt"
End Select
Dim objStreamReader As StreamReader
Dim objStreamWriter As StreamWriter
Dim strInput As String
Dim strOutput As String = ""
Dim check As Integer = 0
Dim i As Integer
Dim strDateNHit() As String
Dim Len As Integer
Dim NoOfHit As Integer = 0
Dim Hit() As String
Dim strLine As String = ""
Dim blnComa As Boolean = False
Dim blnReqPageFound As Boolean = False
Dim blnCurrentDataExist As Boolean = False
Dim blnDataExist As Boolean = False
Dim blnNewLine As Boolean = False
Dim a() As String
If File.Exists(HttpContext.Current.Server.MapPath(myPath)) Then
objStreamReader = File.OpenText(Request.MapPath(myPath))
strInput = objStreamReader.ReadLine
While strInput <> Nothing
blnComa = False
blnDataExist = True
strDateNHit = strInput.Split("|")
If CDate(strDateNHit(0)) = Date.Today Then
blnCurrentDataExist = True
strLine = Date.Today & "|"
Hit = strDateNHit(1).Split(";")
Len = Hit.Length - 1
For i = 0 To Len
a = Hit(i).Split(":")
If a(0).Trim = reqPage.Trim Then
blnReqPageFound = True
NoOfHit = a(1)
NoOfHit = NoOfHit + 1
If blnComa Then
strLine = strLine & ";" & reqPage & ":" & NoOfHit
Else
strLine = strLine & reqPage & ":" & NoOfHit
blnComa = True
End If
Else
If blnComa Then
strLine = strLine & ";" & Hit(i)
Else
strLine = strLine & Hit(i)
blnComa = True
End If
End If
Next
If Not blnReqPageFound Then
If blnComa Then
strLine = strLine & ";" & reqPage & ":" & 1
Else
strLine = strLine & reqPage & ":" & 1
End If
End If
If blnNewLine Then
strOutput = strOutput & vbCrLf & strLine
Else
strOutput = strOutput & strLine
End If
Else
If blnNewLine Then
strOutput = strOutput & vbCrLf & strInput
Else
strOutput = strOutput & strInput
End If
End If
blnNewLine = True
strInput = objStreamReader.ReadLine
End While
If Not blnCurrentDataExist Then
strLine = Date.Today & "|"
strLine = strLine & reqPage & ":" & 1
If blnNewLine Then
strOutput = strOutput & vbCrLf & strLine
Else
strOutput = strOutput & strLine
blnNewLine = True
End If
End If
objStreamReader.Close()
objStreamReader.Dispose()
Else
strLine = Date.Today & "|"
strLine = strLine & reqPage & ":" & 1
strOutput = strLine
End If
objStreamWriter = File.CreateText(Request.MapPath(myPath))
objStreamWriter.WriteLine(strOutput)
objStreamWriter.Close()
objStreamWriter.Dispose()
End Sub
Public Function getCSTdateTime()
Dim strDateTime As String
Dim strReturn As String
Dim strSdateTime As String
Dim a() As String
Dim b() As String
Dim FdateTime As DateTime = DateTime.Now
Dim SdateTime As DateTime = DateTime.Now
strSdateTime = SdateTime.ToString("s")
b = strSdateTime.Split("T")
strSdateTime = b(1)
strDateTime = FdateTime.ToString("F")
a = strDateTime.Split(",")
strReturn = a(0) & " " & a(1) & " " & b(1) & " " & "PST time" & " " & Date.Now.Year
Return strReturn
End Function
Public Function HitCounter(ByVal reqPage As String, Optional ByVal subFolder As Integer = 0)
Dim myPath As String = ""
Select Case subFolder
Case 0
myPath = "Data\HitCounter.xml"
Case 1
myPath = "..\Data\HitCounter.xml"
End Select
Dim strToRead As String = ""
Dim strToWrite As String = ""
Dim i As Integer = 0
Dim hitCount As Integer = 1
Dim check As Integer = 0
Dim objStreamReader As StreamReader
Dim objStreamWriter As StreamWriter
Dim blnReqPageFound As Boolean = False
Dim strReturn As String = "You are visitor # "
EntryInCurrentDate(reqPage, subFolder)
If File.Exists(HttpContext.Current.Server.MapPath(myPath)) Then
objStreamReader = File.OpenText(Request.MapPath(myPath))
strToRead = objStreamReader.ReadLine
Dim a() As String = strToRead.Split(";")
For i = 0 To a.Length - 1
Dim b() As String = a(i).Split(":")
If (b(0) = reqPage) Then
blnReqPageFound = True
hitCount = b(1)
hitCount = hitCount + 1
If (check = 0) Then
strToWrite = reqPage & ":" & hitCount
check = 1
Else
strToWrite = strToWrite & ";" & reqPage & ":" & hitCount
End If
Else
If check = 0 Then
strToWrite = a(i)
check = 1
Else
strToWrite = strToWrite & ";" & a(i)
End If
End If
check = 1
Next
If Not blnReqPageFound Then
If (check = 0) Then
strToWrite = reqPage & ":" & hitCount
check = 1
Else
If strToWrite = "" Then
strToWrite = reqPage & ":" & hitCount
Else
strToWrite = strToWrite & ";" & reqPage & ":" & hitCount
End If
End If
End If
objStreamReader.Close()
objStreamReader.Dispose()
Else
strToWrite = reqPage & ":" & hitCount
End If
objStreamWriter = File.CreateText(Request.MapPath(myPath))
objStreamWriter.WriteLine(strToWrite)
objStreamWriter.Close()
objStreamWriter.Dispose()
strReturn = strReturn & hitCount
Return strReturn
End Function
|
|
|
|
|
Sorry for my bad English. I've designed a form like this
http://img524.imageshack.us/img524/2656/untitled1xj8.jpg[^]
The textbox show the classID and the datagird will display the list of students of this class. Table Student in my database has classID field too, of course ! But I don't display column classID on datagrid. When I click Update button, I want to save all data has been change in datagrid and save the value of classID in the textbox into classID field in Student table. Can anyone help me ?
Thank for reading !
|
|
|
|
|
Hi,
If the user deletes rows or just changes data there shouldn't be any problems, but if they try to add rows, you will get missing key errors. You can try this:
<br />
Private Sub ButtonUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUpdate.Click<br />
Dim rw As DataRow<br />
For Each rw In DataSet1.Tables(0).Rows<br />
If IsDBNull(rw.Item("ClassID")) = True Then rw.Item("ClassID") = YourTextBox.Text<br />
Next<br />
DataSet1.AcceptChanges()<br />
End Sub<br />
Hope it works,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
It really work ! Thank you very much. But it still has a problem. I use update method of dataAdapter to update the changings data in datagrid. And when I add your code in, I can't delete round(s) in datagrid. What should I do ?
Here is the code
Private Sub ButtonUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUpdate.Click
dataConnection.Open()
Dim temp As DataTable
temp = table.GetChanges() 'table is a dataTable which is used for
'datagrid source
If Not temp Is Nothing Then
Try
Dim r As DataRow
For Each r In temp.Rows
If IsDBNull(r.Item("classID")) = True Then
r.Item("classID") = TextboxClassID.Text
End If
Next
dataAdapter.Update(temp)
table.AcceptChanges()
Catch ex As Exception
table.RejectChanges()
dataConnection.Close()
MsgBox(ex.ToString)
End Try
End If
dataConnection.Close()
End Sub
-- modified at 8:34 Monday 5th February, 2007
|
|
|
|
|
As far as I can tell, it should work if you change your code a little bit:
<br />
tam.AcceptChanges() 'try this<br />
table.AcceptChanges() 'or try this, or try to use both lines, but before the update command<br />
dataAdapter.Update(temp)<br />
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
I've edited my code as you said but it didn't work. Here is the error message
System.Data.DatarowInaccessibleException: deleted row information cannot be accessed through the row
|
|
|
|
|
Please test this:
<br />
Private Sub ButtonUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUpdate.Click<br />
dataConnection.Open()<br />
Dim temp As DataTable<br />
Try<br />
Dim r As DataRow<br />
For Each r In table.Rows<br />
If IsDBNull(r.Item("classID")) = True Then<br />
r.Item("classID") = TextboxClassID.Text<br />
End If<br />
Next<br />
table.AcceptChanges()<br />
temp = table.GetChanges() 'table is a dataTable which is used for datagrid source<br />
If Not temp Is Nothing Then dataAdapter.Update(temp)<br />
Catch ex As Exception<br />
table.RejectChanges()<br />
dataConnection.Close()<br />
MsgBox(ex.ToString)<br />
End Try<br />
End If<br />
dataConnection.Close()<br />
End Sub<br />
If that also doesn't work, I will try to have another look at it tomorrow.
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
It didn't work. Here is the error message
System.Data.DatarowInaccessibleException: deleted row information cannot be accessed through the row
at the line "If IsDBNull(r.Item("classID")) = True Then"
|
|
|
|
|
How about this:
<br />
Private Sub ButtonUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUpdate.Click<br />
dataConnection.Open()<br />
Dim temp As DataTable<br />
Try<br />
table.AcceptChanges()<br />
Dim r As DataRow<br />
For Each r In table.Rows<br />
If IsDBNull(r.Item("classID")) = True Then<br />
r.Item("classID") = TextboxClassID.Text<br />
End If<br />
Next<br />
table.AcceptChanges()<br />
temp = table.GetChanges() 'table is a dataTable which is used for datagrid source<br />
If Not temp Is Nothing Then dataAdapter.Update(temp)<br />
Catch ex As Exception<br />
table.RejectChanges()<br />
dataConnection.Close()<br />
MsgBox(ex.ToString)<br />
End Try<br />
End If<br />
dataConnection.Close()<br />
End Sub<br />
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
It didn't work. No error message but when I ran debug, I found this :
temp is nothing
And dataAdapter didn't update anything.
|
|
|
|
|
The problem is that the IsDBNull check can not access rows where the RowState is Deleted (so we tried to call AcceptChanges first, but your update statement needs to know the RowState of each datarow to work, and AcceptChanges sets all RowStates to Unchanged. That's why the code didn't throw any errors, but also didn't update anything, because table.GetChanges() didn't find any changes anymore.
However, if the row was deleted than we don't have to add the ClassID anyway. So let's try the following:
<br />
Private Sub ButtonUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUpdate.Click<br />
dataConnection.Open()<br />
Dim temp As DataTable<br />
Try<br />
Dim r As DataRow<br />
For Each r In table.Rows<br />
If r.RowState <> DataRowState.Deleted Then<br />
If IsDBNull(r.Item("classID")) = True Then r.Item("classID") = TextboxClassID.Text<br />
End If<br />
Next<br />
temp = table.GetChanges() 'table is a dataTable which is used for datagrid source<br />
If Not temp Is Nothing Then dataAdapter.Update(temp)<br />
table.AcceptChanges() 'this may not be necessary<br />
Catch ex As Exception<br />
table.RejectChanges()<br />
dataConnection.Close()<br />
MsgBox(ex.ToString)<br />
End Try<br />
End If<br />
dataConnection.Close()<br />
End Sub<br />
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
