|
Im currently using the VB6.0 to search for data in Access 97's database. But even i can see the comparison showing the same results, it still say "not same" then it just to the next record. Does anyone know about the reocrd searching function in VB6.0? If you know, i wish that you can help me on this matter. the following is my code.
Private Sub SearchRegNum()
Data1.Refresh
Data1.Recordset.MoveFirst
Do While Data1.Recordset.EOF = False
MsgBox "'" & Data1.Recordset.Fields(14) & "'" & " XXXX " & "'" & txtTest.Text & "'"
If Data1.Recordset.Fields(14) = txtTest.Text Then
MsgBox "SAME ==> FOUND"
txtName.Text = Data1.Recordset.Fields(2)
txtID.Text = Data1.Recordset.Fields(3)
txtRegNum.Text = Data1.Recordset.Fields(14)
Exit Do
Else
MsgBox "Not SAME"
Data1.Recordset.MoveNext
End If
Loop
If Data1.Recordset.EOF = True Then
MsgBox "Vehicle Not Registered.", vbExclamation, "error"
End If
End Sub
|
|
|
|
|
Use this
data1.Recordset.Movefirst
if Data1.Recordset.Eof = true then Exit sub
MsgBox "'" & Data1.Recordset.Fields(14) & "'" & " XXXX " & "'" & txtTest.Text & "'"
If Data1.Recordset.Fields(14) = txtTest.Text Then
MsgBox "SAME ==> FOUND"
txtName.Text = Data1.Recordset.Fields(2)
txtID.Text = Data1.Recordset.Fields(3)
txtRegNum.Text = Data1.Recordset.Fields(14)
else
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
MsgBox "Vehicle Not Registered.", vbExclamation, "error"
MsgBox "Not SAME"
End If
End if
|
|
|
|
|
Use this
please make suse of the exit sub
and make sure MsgBox "Vehicle Not Registered." & " " & " Not SAME"vbExclamation, "error"
:Exit sub is one line
data1.Recordset.Movefirst
if Data1.Recordset.Eof = true then Exit sub
MsgBox "'" & Data1.Recordset.Fields(14) & "'" & " XXXX " & "'" & txtTest.Text & "'"
dd:
If Data1.Recordset.Fields(14) = txtTest.Text Then
MsgBox "SAME ==> FOUND"
txtName.Text = Data1.Recordset.Fields(2)
txtID.Text = Data1.Recordset.Fields(3)
txtRegNum.Text = Data1.Recordset.Fields(14)
else
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
MsgBox "Vehicle Not Registered." & " " & " Not SAME"vbExclamation, "error"
:Exit sub
goto dd
End if
|
|
|
|
|
Hi all...
actually, i'm using the datagrid to display the data that i've queired in the database, i've limit the row in the datagrid to 12. so, if i have retrieve more than 12 data, there are two buttons that i've provide to go to the other pages which the PREVIOUS button and the FORWARD button.besides, i'm also provide the checkboxlist for each row of the datagrid.
but now, i want to change the way i display the data.can i used the datagrid and the checkboxlist with the scrollbar??
so, i will not have to display the data in multiple pages anymore but only scroll it down.can anyone please give me some guide...
besah
|
|
|
|
|
For some reason, the CurrencyManager will not let me remove the last item in the collection. For example, if I have a CurrencyManager bound to a collection with a Form and Control bound to the CurrencyManager. I can remove any item from the CurrencyManager just fine with RemoveAt. However, if it is the last item , it simply ignores the call. It doesn't throw and error, it simply doesn't do anything. Count remains Same, Position remains 0. Even if I try calling CurrencyManagerVar.List.Clear(),
it ignores the call. Again, no error, just doesn't do anything.
But in my Another form it has worked fine with CurrencyManager.RemoveAt(CurrencyManger.Position)
Any Problem in my code?
My code is :
CurrencyManager.RemoveAt(CurrencyManager.Position)
I have also tried with
Dataview.Delete(CurrencyManager.Position)
And
Dataview.Delete(CurrencyManager.Count-1)
And also with
DatarowView = CurrencyManager.Current
DataTable.Remove(DatarowView.row)
above all are not working
|
|
|
|
|
:(I have a legacy COM object that returns a hMem to a block of data containing an large array on int16's. I need to access that data through VB.Net and ultimately pull it into a local array.
I have tried just 'GlobalLock'ing the hMem handle and accessing the memory via the pointer, but that fails. Does this need to be marshalled since it is unmanaged to managed code?
Any feedback would be appreciated
JSW
|
|
|
|
|
Hey i have been taking a class for vb for the past 5 months or so. I am learning vb versions 5 and 6.
So to the question.
Can somebody provide code that when you click a button ,or someother action, a folder is created on the desktop.
|
|
|
|
|
I believe that there's a COM object that you VB6ers use to get any sort of file stuff to work.
Just so you know, your classes are teaching you a dead language. If you're learning for fun, that's fine, I hope you have a ball. If you have hopes of finding a job, then the VB6 pool still exists, but it is rapidly going to die. If you must learn VB ( C# is a far superior language ), then you should learn VB.NET if you want to develop skills you can grow with in the future.
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
C# is a far superior language
Far??????????????????????????????????????????????????????????
|
|
|
|
|
Hell, yes. Don't get me started.
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
From most of your reply's I've read on this message board you seem to be constantly looking for someone to get you "started".
Let's hear what you have to say about C# being so superior. We are all bowed at your feet and waiting for you to toss all of us ignorant, unwashed masses a few precious nuggets of your infinite wisdom.
|
|
|
|
|
j45mw wrote:
From most of your reply's I've read on this message board you seem to be constantly looking for someone to get you "started".
Not at all. I come here because the .NET framework and recent experience means I can answer a lot of questions here.
j45mw wrote:
Let's hear what you have to say about C# being so superior. We are all bowed at your feet and waiting for you to toss all of us ignorant, unwashed masses a few precious nuggets of your infinite wisdom.
Given the sarcastic tone, I'll give you one reason. C# is not dragged down by bad syntax kept because of legacy coders who are scared to learn something new. Did you know that a group of VB hacks is petitioning Micosoft to keep VB6 ? Man, I've never laughed so hard. What a pack of morons. My background is in C++ but I've learned both C and C# ( as well as lot of other languages, the point is just that I was happy to go forward and backward ) as my job required it. I'd never attack C# for not being C++, that's the point of language evolution.
Any language that invents return values for you is a disaster. A language that is not case sensitive encourages sloppy coding. A language that has never been capable of writing real world applications unless it accesses components written in a more capable language deserves as much respect as the people who cling to it in blind fear and ignorance.
Well, you said you wanted to get me started....
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
Search on MSDN for "FileSystemObject".
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
i am learning visual basic .net using visual basic standard ed, and a book called simply visual basic .net by Deitel. in the 2nd chapter it says to start a new windows application project with the name of Welcome, and save it to a location called c:\simplyvb, (which is a folder i made to save all of the projects that i will build in this book) then when i click on the ok button, instead of seeing the form i get the following message; "cannot find c:\programs\microsoft visual studio .net 2003\vb7\vbwizards\windows application\templates\1033\formvb" i have tried building several projects with different names and i get the same message, any suggestions on how to solve this problem would be greatly appreciated,
thank you.
Dave.
|
|
|
|
|
Your install of Visual Studio is plainly munted. Remove and reinstall.
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
It sounds like the files are missing. You might want to navigate your way down that path and se how far you get.
My first step would be to go into Add/Remove Programs and attempt a Repair of Visual Studio. My second would be to reinstall Visual Studio.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Does anybody know coding to convert English currency to a foriegn currency, its for this application im working on.
wb plz
|
|
|
|
|
You're kidding, right? Another grade school math problem ... Twice in one day? There's got to be something wrong with the universe.
Multiply the English currency by the exchange rate for the foreign currency. How hard is that?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
god forbid someone wants the average exchange rate for the week 
|
|
|
|
|
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
If you don't know how to do this, then you should seriously buy a book, preferably a 'for dummies' book ( because you obviously know literally nothing about programming ). While you're a total beginner, you have time to move to a real language, like C#.
Issues with this question
1. Multiplying a number by another is about the simplest thing you could ever do in code. You obviously are not writing any applications if you can't do that. First piece of homework, more like
2. Exchange rates change daily. If this were a real world application ( as opposed to homework ), it would be useless without some way of updating rates.
We don't do homework here. We help people who are willing to try themselves first. You're thinking of rentacoder.
Christian
I have several lifelong friends that are New Yorkers but I have always gravitated toward the weirdo's. - Richard Stringer
|
|
|
|
|
hello, in windows application using vb.net,how can i make an item movable in the run time?(change the position of the item on the screen)
|
|
|
|
|
hello,
did u mean controls or what item ask exactly that could undersatand
|
|
|
|
|
Hi All
I am using two TimeSpan varibales, suppose
Dim tt As TimeSpan
Dim tt1 As TimeSpan
Dim start_date As Date = Now.Date
Dim end_date As Date = Now.Date.AddMilliseconds(67)
Dim max As TimeSpan
tt = end_date.Subtract(start_date)
end_date = end_date.AddYears(1)
tt1 = end_date.Subtract(start_date)
Now, i want to calculate the average of tt & tt1.
Can anybody tell me how to do it?
Thanks
Sumit Domyan
|
|
|
|
|
Im just amazed that someone can understand programming enought to obtain a timespan, but the process of getting an average has eluded them.
for future reference, an average is obtained by summing all values and dividing the result by the number of values.
ie, with 2 values
20
40
20+40 = 60
60/2 = 30
30 is the average of 20 & 40
So to get the average of your 2 timespan's add them together and divide by 2.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
