|
hi,
Anyone know how to convert the code below for vb6 to vb.net?
here is my vb6 source code!
Function LoadLR()
dbrs.Open "select Badge,Time,Day,InOut From TimeAInfor where InOut='" + CStr("<") + "' and Month='" + CStr(Mid(Combo1(3).Text, 1, 2)) + "' and Year='" + CStr(Mid(Combo1(4).Text, 3, 2)) + "' order by Day", dbsql
'j = 0
For j = 0 To Form3.ListView1(2).ListItems().Count - 1
If dbrs.RecordCount <> 0 Then
dbrs.MoveFirst
For i = 0 To dbrs.RecordCount - 1
If Form3.ListView1(2).ListItems(j + 1).SubItems(1) = dbrs.Fields(0) Then
h = DatePart("h", CStr(dbrs.Fields(1)))
h = h * 60
n = DatePart("n", CStr(dbrs.Fields(1)))
F = h + n
If F < WorkIn Or F = WorkIn Then
Form3.ListView1(2).ListItems(j + 1).SubItems(dbrs.Fields(2) + 1) = "-"
Else
If Form3.ListView1(2).ListItems(j + 1).SubItems(dbrs.Fields(2) + 1) <> "-" Then
If F > WorkIn Then
T = Form3.ListView1(2).ListItems(j + 1).SubItems(dbrs.Fields(2) + 1)
If T = "" Then
Form3.ListView1(2).ListItems(j + 1).SubItems(dbrs.Fields(2) + 1) = (F - WorkIn)
Else
If (F - WorkIn) < Val(T) Then
Form3.ListView1(2).ListItems(j + 1).SubItems(dbrs.Fields(2) + 1) = (F - WorkIn)
End If
End If
End If
End If
End If
End If
dbrs.MoveNext
Next
For i = 2 To 32
If Not Form3.ListView1(2).ListItems(j + 1).SubItems(i) = "" And Not Form3.ListView1(2).ListItems(j + 1).SubItems(i) = "-" Then
totalLR = totalLR + Val(Form3.ListView1(2).ListItems(j + 1).SubItems(i))
End If
Next
Form3.ListView1(2).ListItems(j + 1).SubItems(33) = totalLR
totalLR = 0
End If
Next
Call CloseTASystem
For i = 0 To ListView1(2).ListItems().Count
'MsgBox ListView1(2).ListItems().Count
If ListView1(2).ListItems().Count <> 0 Then
If ListView1(2).ListItems.item(i + 1) = "" Then
Exit Function
End If
On Error Resume Next
'MsgBox ListView1(2).ListItems().Count
If Val(ListView1(2).ListItems(i + 1).SubItems(33)) = 0 Then
ListView1(2).ListItems.Remove (i + 1)
' ListView1(2).ListItems().Count = ListView1(2).ListItems().Count - 1
i = i - 1
End If
End If
Next
End Function
Please help! Thanks!!!
charleslau2855
|
|
|
|
|
Do you expect someone to type everything for you ¿
I'll just give advice.
If I were you, I would look into ADO.NET, there are plenty samples on google. Retyping this in .NET, won't help much in any case, because .NET uses DataSets, DataAdapters etc.
Just my 2 cents..
HTG CodeGuru Article Reviewer
|
|
|
|
|
 hi,i have a program to simply add,modify,delete records n display reports for this records. i have a lstbx in add form n also in modify form.the latter has adodc to navigate thru the added records, meanwhile, lstbox in modify form only returns blank when its supposed to show what is added in the lstbx in add form...even though records r adding fine to the appropriate fields in the database.
does lstbx work well with adodc or am i missing out on some coding?
below is an illustration of what my program is designed to do...luks like its not completing the transition from database to frmModify!! any help/guidance is gr8ly welcome!
frmAdd: (lstAttach)
file1
file2
file3
db1: tbl1(Attachment field)
file1;file2;file3
frmModify: (lstAttach)
file1
file2
file3
|
|
|
|
|
when you are adding data in your listbox just check that whether that particular data already exists in you list box or not. if not then add it simultaniously to you table
Thanks and Regards
|
|
|
|
|
Does anyone have an example of creating a User Control based on a ComboBox that ALSO utilizes a Class which iherits the ComboBox.ObjectCollection. I have tried various techniques but always fail as the underlying 'itemCollection' never gets propogated with the items therefore once a 'SelectedIndex = n' gets executed then the ArgumentIndexOutOfRangeException throws - EVENTHOUGH I can see that a FULL count of items exists in both Debug and actually displayed in the ComboBox ?
I have gotten as far as the Class which inherits the ComboBox and the associated ComboBoxItem (useful for adding images to comboboxes!) but as soon as I try and extend the Add Function of the Items Collection in the Class which inherits the ObjectCollection then the problems start...
Cheers,
Desmond.
|
|
|
|
|
Hi All
Could somebody give me a bit of advice? The problem I have at the moment is I’m sending a complex data type of about 30 bytes in length from a vb.net application to a vb.net web service every two seconds. Once the application has packaged the data into the soap \ xml request it grows in size to around 750 bytes on each request. This works out to approx 32.4mb per day of traffic to the web server. My questions is
Is there an more efficient way of streaming 30 bytes of data from an application to a web service without the overheads of the Http / XML headers.
Any info or tips would be gratefully received
Cheers
Tony G
|
|
|
|
|
I have one listbox and one textbox.
The listbox has over 300 items and you can select multiple items.
How can i make that selected items apear in textbox, and if i unselect the same item that its not in textbox annymore. Thanx
|
|
|
|
|
Well I guess you could be clever and keep a reference to all the selections but I have found that using the Stringbuilder Class takes a lot of overhead out of string manipulation - note each time a selection/deselection is made then a complete rebuild is done - beats having to keep track of other stuff - great advantage of the StringBuilder is SPEED. There is another more fancy way for handling this using Predicates and Actions as described in the new article (worth a read)http://msdn.microsoft.com/msdnmag/issues/06/09/AdvancedBasics/default.aspx
Anyway to keep things simple....Hope this helps...
Private mstrbld As New StringBuilder
Private mcolSelectedObjects As ListBox.SelectedObjectCollection
Private mobjSelectedObject As Object
Private Sub lstListBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstListBox.SelectedIndexChanged
mstrbld.Length = 0
mcolSelectedObjects = Me.lstListBox.SelectedItems
For Each mobjSelectedObject In mcolSelectedObjects
mstrbld.Append(mobjSelectedObject.ToString & vbCrLf)
Next
Me.txtTextBox.Text = mstrbld.ToString
End Sub
|
|
|
|
|
Where can I get some code samples using NTgraph with Visual Basic 6.0
to perform 2D plots?
|
|
|
|
|
I'm publishing a VS 2005 Visual Basic application and I want the updates published to our server to be checked automatically and installed.
It works well, but the app shows a messagebox to the user and asks if they want to install the update or skip.
I don't want them to skip. Can you force the update. I don't see any settings in the publish options.
Any help is greatly appreciated
Lost in the vast sea of .NET
|
|
|
|
|
How do I view the generated code in my form? In .net 1 it was there in the code window but in .net 2 it seems to be hidden.
|
|
|
|
|
Expand the Form's node in the Solution Explorer and they'll be a code file called Form.Designer.vb. This contains all the designer code. It's part of the new partial class concept in .NET 2, it's pretty useful once you get to know it.
Formula 1 - Short for "F1 Racing" - named after the standard "help" key in Windows, it's a sport where participants desperately search through software help files trying to find actual documentation. It's tedious and somewhat cruel, most matches ending in a draw as no participant is able to find anything helpful. - Shog9
Ed
|
|
|
|
|
In VS 2005 I'm not sure why there is a Publish Version and an Assembly Version. Shouldn't they be the same? I have a help about box that I picked up off of Code Project that I use in all my apps. This help box picks up the AssemblyVersion which is not changed each time I publish even though the Publish version changes.
Any insight on this would be greatly appreciated... 
Lost in the vast sea of .NET
|
|
|
|
|
Hello,
I wanted to know can we add two or more data adapters in same form for e.g. if incase i want to search by first name with button1 and want to search last name with button2 on same form with same or different data tables or data source or different connections. Even wanted to create datasets for different connections. Is it possible Please let me know. I would be really very greatful
Bye....
Nikhil Bandekar
Mumbai,
India
|
|
|
|
|
Hello All,
I'm trying to create a good drag and drop effect for my user control. My user control is basically a panel with some labels and textboxes and it has area which you can click to drag and drop it. I was able to implement the drag&drop functionality but it is horrible and too basic, you don't see the control "shape" while you're dragging it, and when you drop it, it was like you had clicked right in the center of it.
Main question, do you guys have a nice example of drag and droping user controls? Showing that shadowed shape while you're dragging it? Just like when you drag and drop any window in the microsoft windows?
Best Regards 
|
|
|
|
|
Hi All
I need to compare the difference between 2 time intervals...
label1.text has a start time hh.mm.ss and label2 has an end time. I need to compare the time between the two.
Is there a timeDiff like the dateDiff???
Please Help...
When people make you see red, be thankful your not colour blind.
|
|
|
|
|
hi
check the TimeSpan class
Tamimi - Code
|
|
|
|
|
Was to quick asking the question.
<br />
Dim TimeStart As Date<br />
Dim TimeStop As Date<br />
<br />
TimeStart = CDate(labStartTime.Text)<br />
TimeStop = CDate(labStopTime.Text)<br />
labTimeDiff.Text = "Days from today: " & DateDiff(DateInterval.Second, TimeStart, TimeStop)<br />
<br />
When people make you see red, be thankful your not colour blind.
|
|
|
|
|
i have created a 'XYZ.txt' text file in 'C:\Sasmi' folder by using vb6 as per user requirement. i want to open the selected 'C:\Sasmi' folder automaticaly for user so that he\she know where is the file created and the format of the file (As provided in the ZIP Folder Extraction wizard where user can see the selected folder by selecting the option 'Show Extract File')
Can any one help me regarding this.
Sasmi
|
|
|
|
|
Hi
You can set the "Path" property of the filelist box. Hope this helps!
Kanniah
|
|
|
|
|
How to convert in vb.net a '07' hexa value to '00000111' bit sequence?
|
|
|
|
|
|
hi,
Everyone know how to create the daily employees OverTime hour report in listview which mean the listview must included with some columns eg: Name, Age, Day1, Day2....... Day31!
So, the output is something like this:
Name Month Day1 Day2 Day3 ........ Day31
Steven Dec 1hour 2hour 0.5hour 1 hour
Marry Dec 5hour 1hour 2 hour 3 hour
. . . . . .
. . . . . .
So, i want create a new application which using the vb.net with m.access and the output record is look something like the "calendar" but it is using the "listview " to list the everyday record data for each employee!
Please help!!!
charleslau2855
|
|
|
|
|
I having a weird problem now... all the function run correctly, but the msgboc just didnt show out... it may make my user confuse is the function been run or not.
when i test it the function just run correct, save item if there is no record of it which mean Add new record, if there is record in it then dont perform anything.
Do
On Error Resume Next
temp = rs![custNO]
rs.MoveNext
Loop Until (rs.EOF)
If ccustno.Text <> rs![custNO] Then
rs.AddNew 'Add detail to record
rs.Fields("CustNo") = ccustno.Text
rs.Fields("Customer") = UCase(ccus.Text)
rs.Fields("Area") = UCase(carea.Text)
rs.Fields("Address") = UCase(caddress.Text)
rs.Fields("Tel") = cphone.Text
rs.Fields("Fax") = cfax.Text
rs.Fields("Name") = UCase(cattn.Text)
rs.update 'update u record
rs.MoveFirst
MsgBox ("Customer Information Recorded")
Else: MsgBox ("Customer already been create, please use the UPDATE function for update"): Exit Sub
End If
---
i have edit the code, it works well now
'move the return the database at first data if not it will have no current record error
'using DO loop to set the value to temp then compare it again and perform action with another ifelse outside the loop.
rs.MoveFirst <br />
Do<br />
If ccustno.Text <> rs![custno] Then<br />
ElseIf ccustno.Text = rs![custno] Then<br />
temp = rs![custno]<br />
End If<br />
rs.MoveNext<br />
Loop Until (rs.EOF)
<br />
If ccustno.Text <> temp Then<br />
....
-- modified at 22:52 Tuesday 5th September, 2006
|
|
|
|
|
You are mistaken, the function doesn't run correctly at all.
When you exit the loop the recordset will always be read to the end, so when you try to use rs![custNO], you will get an error as you can not read anything from the recordset beyond the last record.
You are using On Error Resume Next, but you are not checking for errors anywhere, which means that you silently ignore anything that goes wrong.
---
b { font-weight: normal; }
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
