|
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.
|
|
|
|
|
It worked finally ! And the last question. In dataAdapter I used "select * from student" and I filled them in datatable which names Table. Table is used for datagrid's source. But I don't want to display classID column in datagrid, what should I do ? Thank you very much for your help so far !
|
|
|
|
|
No problem, I am glad to hear it works.
If you want to filter out certain columns from view, you will have to use the Data Grid's TableStyles property (form designer > datagrid's properties > 4th from the bottom usually).
With this property you can put a "mask" between the table and the datagrid. Just add a table to the TableStyle and use its MappingName property to map it to your table.
To the TableStyle table you just created, you add GridColumnStyles (usually 3rd from the bottom). Just add a column here for each column you want to show, and map each column to the appropriate column in your table.
With GridColumnStyles, if you like, you can then also determine column width, alternating row color, etc.
Good luck,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Thanks again ! Could you write commandline like this
dim TableStyle as new datagridTableStyles
etc.
I have read the example in MSDN. But I couldn't write the code.
|
|
|
|
|
It is indeed possible to make these TableStyles, etc, at runtime, but it is just far easier to do it in the designer. For the same reason I have no experience with implementing TableStyles at runtime myself.
If you really must do it that way, I suggest that you experiment a little bit, and if necessary, post an entirely new question on this board. Maybe someone else can help you with it.
Good luck,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
I have made it work on my own. But thank you anyway ! I've just read your signature and I think I'm a lucky man. I'm just a university student and I have nothing to pay you  . Would you like to make friend with me ? Here is my email cotinhkhongtin@yahoo.com .
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
