|
hi all ihave 2 questions
# 1 I have a application that allows users toswipe their ID badge to log them into or out of a system. problem is, i put this code into the text_Change () event. which works fine. BUT if the user forgets their badge, i also have it set up to allow them to enter a password so they can manually log their selves in or out. the app won't take the password because of the text_Change() event. how can i work around this?
# 2 if the ser swipes their card, and answers NO to the first message box
and YES to the second, ( i have to have th second nag msgbox,to be sur the user didn't mess up)the code follows correctly it then goes to a function tha strips the delimitting chars. when it comes back, it doesn't return to the code spot it left off at. it returns to the beginning of the text_Change () Event and re-tests the value in te textbox. but if does retain te value of the textbox, and it flashes the message Wrong messagebox (see below)
here are the order of events with a card swipe.
1 checks te string for chars.
2 asks if user is logging In?
3 if user answers NO and then YES to the next message box
4 goes to replace charaters Function
5 returns to the top of the event
6 tests the txtPassword again ? <--- why?
7 goes to the "message Wrong "
8 returns to where it left off in the code after it left to the function
9 continues to log te user out
the app needs to allow a card swipe and a manual password entered i would like to keep the card swipe automation if possible or do i have to put this into a click Event and forget about te auto card deal?
here is the code from the text_Change()Event
<br />
Private Sub txtPassword_Change()<br />
<br />
'test the input from the user to see if tey swiped their card correctly<br />
If Left(txtPassword, 1) = ";" And Right(txtPassword, 1) = "?" Then<br />
<br />
Dim cardID As String<br />
Dim X As Integer<br />
' x is te user response to the message box<br />
X = MsgBox("Are you logging In ?", vbYesNo) Question 1<br />
<br />
If X = 6 Then<br />
Load frmCardLogIn<br />
cardID = txtPassword.Text<br />
frmCardLogIn.txtPassId.Text = cardID<br />
frmCardLogIn.LogOutBtn.Visible = False<br />
frmCardLogIn.Label2.Visible = False<br />
frmCardLogIn.Show<br />
Unload Me<br />
<br />
Else<br />
'If X = 7 Then<br />
Dim Y As Integer ' y is the answer to the message question<br />
Y = MsgBox("Are you sure your logging Out?", vbYesNo)Question 2<br />
If Y = 6 Then<br />
txtPassword = ReplaceCharacters(txtPassword, txtUnwanted.Text, txtRepl.Text)<br />
Dim SearchSQlPassID As Integer<br />
SearchSQlPassID = txtPassword<br />
Dim Cnxn As ADODB.Connection<br />
Dim cmdChange As ADODB.Command<br />
Dim strSQLUpdate, strCnxn, LName As String<br />
Dim Now As Date<br />
Now = Format(Now, vbLongTime)<br />
' define strSQLUpdate to update the fields<br />
strSQLUpdate = "UPDATE Users SET Time_Out = Now WHERE PassID = " & SearchSQlPassID & " AND (Today_Date)= Date()"<br />
'open Connection<br />
strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\RMSC LOGIN\MYDataBase.mdb;Persist Security Info=False"<br />
Set Cnxn = New ADODB.Connection<br />
Cnxn.Open strCnxn<br />
Set cmdChange = New ADODB.Command ' Create command object<br />
Set cmdChange.ActiveConnection = Cnxn<br />
cmdChange.CommandText = strSQLUpdate<br />
cmdChange.Execute ' execute the SQL command<br />
Cnxn.Close ' Close everything<br />
Set Cnxn = Nothing<br />
Close<br />
frmWait.Show 1<br />
MsgBox ("You Sucessfully logged yourself Out! Enjoy your day")Message OK<br />
Unload Me<br />
Load frmStart<br />
frmStart.Show<br />
Else<br />
Unload Me<br />
Load frmStart<br />
frmStart.Show<br />
End If<br />
End If<br />
<br />
Else<br />
'check for correct password<br />
If txtPassword = "****" Then<br />
Load frmStart<br />
LoginSucceeded = True<br />
txtPassword.Text = ""<br />
frmStart.Show<br />
Unload Me<br />
<br />
Else<br />
' tell them they are wrong<br />
MsgBox ("You need to enter the correct password or swipe your RMSC ID card to continue")Message Wrong<br />
<br />
txtPassword.SetFocus<br />
SendKeys "{Home}+{End}"<br />
End If<br />
End If<br />
End Sub<br />
Help is great only if you ask correctly  
|
|
|
|
|
Hi,
I have developed one application using Vb6.0. The application will use my custom dlls. I made installation package using Microsoft Package and deployment wizard, it was running perfectly. If the client wants some changes then i will do modifications on the custom dlls and compile the dlls. one moretime i will make the installation package with the revised dlls. Like this i made lot of versions on my application.
Now i installed .net, i made slight modifications just commented a message box on the dll code and compiled. I verified with the application without making package, it run perfectly. I made package, and run on the same machine, Now i am getting the Runtime error 430, whenever my application is try to run functions on the dll.
I refered the MSDN, they given the solution to unregister the dll and register manually. I did but then also i am getting the same error.
Then I upgraded by latest MDAC_TYP.EXE, then also i am getting the same error.
Please help me to comeout of this problem.
Sathiyanarayanan.Ramanathan
|
|
|
|
|
Try to check the information from here.[^]
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Hi,
Thanks for sending the reply. I referred "PRB: Runtime Error 430 in Client After Server Type is Changed" and unregistered the dll from system directory and the dll from compiled directory. I compiled the dll one more time,Then in the development time the dll is functioning perfectly with the application. If i made a package and installing on the same pc,i am getting the same Runtime error 430. I tried by including MDAC_TYP.exe version 2.0 with the installation package, then i changed to version 2.5 still the problem was there, then i upgraded MDAC_TYP. EXE to 2.8 still the problem exists.
Please suggest to solve this problem.
Sathiyanarayanan.Ramanathan
|
|
|
|
|
im a bit new to vb.net so this could be a stupid question
but
i want to send a program i wrote to a friend so they can
run it but it soesnt work cause its missing files.
even when i set it to 'release' and built it,
the .exe doesnt work on other computers.
can someone please tell me whan im not getting?
|
|
|
|
|
Do they have the same version of the .NET Framework installed? If not, it won't run...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Does the computer of your friend have the .Net Framework install?? If Yes, then check the version of .Net framework. If NO, then install the .net framework that match with your computer too.
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Hi,
Every one
i m new to handheld programming and i m trying to work in vb.net. Now i m getting some errors while running pocket pc application in
VS.NET 2003. First i want to ask that the compact framework of vs.net
installs every time when ever i run my application. Is there any problem with my vs.net or
is it a bug in vs.net.
Secondly i cannt call webservice within my application please suggest me the solution i m getting
error "Unable to connect to remote server"
and
also tell me that which book is best for study in this context.
Thirdly,
i want to ask that developers currently are making which type of projects for Pocket Pc s if possible then plz send me few websites that are helpful to me.
Plz reply me in detail or send me the links of articles on web.
I shall be grateful to you.
Thanks in advance.
|
|
|
|
|
Hello,
Whenever I start up my Pocket PC emulator, it says that it is installing the .Net Compact Framework 1.0, however, it does not install the framework every time I go to debug my application.
In other words, if it is my emulator's first boot, it installs the framework.
I hope this helps 
Three great things about computers:
1. Visual Basic
2. Visual Basic .Net 2002
3. Visual Basic .Net 2003
|
|
|
|
|
You questions would be better handled in the Embedded/Mobile Forum[^].
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Ali Usman wrote:
Secondly i cannt call webservice within my application please suggest me the solution i m getting
error "Unable to connect to remote server"
Try to check the information from here.[^]
Ali Usman wrote:
and
also tell me that which book is best for study in this context
Try to search at Amazon.com[^] there are a lot of book available from there.
Ali Usman wrote:
want to ask that developers currently are making which type of projects for Pocket Pc s if possible then plz send me few websites that are helpful to me.
I found one that is reliable too, it is Application Forge Mobile VB[^].
Good luck
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Hello,
I am having troubles allowing only certain keys to work in Visual Basic .Net 2003, using the .Net Compact Framework.
My current code is (on the KeyPress event of a TextBox):
If e.KeyChar = ChrW(110) Then 'Decimal Key
e.Handled = True
ElseIf e.KeyChar = ChrW(46) Then 'Delete Key
e.Handled = True
ElseIf e.KeyChar = ChrW(8) Then 'Backspace Key
e.Handled = True
ElseIf IsNumeric(e.KeyChar) = False Then 'Number Keys
e.Handled = True
End If
However, only the Delete and Number keys work. The keys that I do want to work are the number keys, delete, backspace, and the decimal key.
If anyone could help, it would be greatly appreciated.
Thanks
Three great things about computers:
1. Visual Basic
2. Visual Basic .Net 2002
3. Visual Basic .Net 2003
|
|
|
|
|
I have two questions about the print preview dialog.
(1) The MSDN talks about a "zoom" property for the print preview control. I am unable to select find or select that property?
(2) I am wanting to call printer dialog box to select a printer from the print preview dialog when the print button is hit.
Any help with either of the questions above is much appreciated.
Thank you,
Chris
_______________________________
Private Sub mnuFilePrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFilePrintPreview.Click
'Show Print Preview
Try
' Create TextPrint object from class that is inherited from PrintDocument, passing in text
Dim MPO As New TextPrint(GetTheText())
' Set font
MPO.Font = New Font("Tahoma", 8)
With preReport 'Print Preview Dialog
.Document = MPO 'prdReport
.WindowState = FormWindowState.Maximized
.Icon = Me.Icon
.AutoScale = True
'.zoom 'I cannot select this property?
.ShowDialog()
End With
'If preReport.ShowDialog() = DialogResult.OK Then
' 'MPO.Print()
' MsgBox("print clicked")
' 'set PrintDialog.Document
' pntDialog.Document() = MPO 'pntDialog is a printer dialog
' If pntDialog.ShowDialog = DialogResult.OK Then
' MPO.Print()
' End If
'End If
Catch ex As Exception
MessageBox.Show("Printing Problem: " & ControlChars.NewLine & ControlChars.Tab & _
ex.Message, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End Sub
|
|
|
|
|
I found a very useful article written by Tim Patrick that answered my questions and then some... Here is the link to anyone that may be looking for "Print Preview" help also:
http://www.ftponline.com/vsm/2004_07/magazine/columns/desktopdeveloper/default.aspx
|
|
|
|
|
Hi,
I have a Server TCPIP socket open at 192.168.1.100, port 80. When I use an C++ Client application to connect it ---> It works fine!
However, when I use VB.net with:
<br />
Dim tcpClient1 As New TcpClient<br />
Dim ipAddress As IPAddress<br />
ipAddress = Dns.Resolve("192.168.1.100").AddressList(0)<br />
<br />
Try<br />
tcpClient1.Connect(ipAddress, 80)<br />
Catch ex As Exception<br />
Console.WriteLine(e.ToString())<br />
End Try<br />
Compile wihout any errors, but when I execute it, it show errors!
Can any one show me how to do it right?
Many thanks,
|
|
|
|
|
Hi guys I'm accessing MS Access database from an ASP.NET page but I can't seem to be able to delete, insert or update any row in the database. I'm tryin the ExecuteNonQuery Method of the Command bject but in all cases I get an error saying that "System.Data.OleDb.OleDbException: Operation must use an updateable query"
However retrieving records from teh same access database using executereader works just fine.
I really need to find out whats wrong here.
|
|
|
|
|
gamerPotatoe wrote:
System.Data.OleDb.OleDbException: Operation must use an updateable query
Try to check the information from here.[^]
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
I am trying to fill crystal report from typed dataset which has three tables and all are interlinked. When i set datasource of crystal report to that dataset and links the table in visual linking expert after doing every thing this is the code i am writing.
Dim con As SqlConnection = New SqlConnection("ConnectionString")
Dim da As SqlDataAdapter = New SqlDataAdapter("Select Statement", con)
Dim ds As DataSet = New Dataset1
Dim cr As New CrystalReport1
da.Fill(ds)
DataGrid1.DataSource = ds.Tables(3)
cr.SetDataSource(ds.Tables(3))
CrystalReportViewer1.ReportSource = cr
The datagrid is filled but crystal report is showing no results. how can i fill cr.
|
|
|
|
|
Hi,
In my current project i am using datagrid to display record from the employee table
It consist of four feild.
EmpName joiningdate Department Designation
John 14/12/90 10 Clerk
Smith 10/01/85 20 Programmer
Smith 11/05/95 20 Programmer
I need to know what column a user has selected and and the complete data of that row.
e.g. if a user select Smith then how i can take his joining date from the data grid.
ename=datagrid.text //giving me the name of the employee
rownum=datagrid.row // giving the selected row number
colnum=datagrid.col // giving the selected col number
Thanks in advance
|
|
|
|
|
Is there a way in VB6 to achieve the 'Windowshade' effect that exists on the Mac? By this I mean a way to intercept double-clicking on the TitleBar and instead of the Window expanding to MaxSize, have the client portion shrink to nothing so that only the TitleBar is showing. Double-Clicking again would restore the client area to its previous state...
Thanks,
Tim
|
|
|
|
|
It would be FAR easier to do in C++ than it would in VB6. VB6 doesn't support the hooking that would be required to pull something like this off.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hello...
I need help in VB to determine the highest value between 3 data.
For example, I have 3 textboxes with numeric value.
Txt1 = 8
Txt2 = 7
Txt3 = 4
And then, I have another textbox to display the result. TxtResult
If txt1 has the highest value, then TxtResult = Txt1
Can anybody help me with the code?
Thanks.
|
|
|
|
|
This has all the signs of homework. Sorry, but we'll help you with YOUR code, we're not writing it for you.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave is completely right.
but in order to help you:
You should use some CONDITIONAL STATEMENTS to check which textbox has the highest value.
If...End If and Select...End Select
|
|
|
|
|
I am importing records from a ODBC Database into Access. The import works fine, except I get duplicate entries in my Access Database. I need to run this process once a week. Can anyone tell me how I can eliminate importing the duplicate entries to my Access. Thanks.
Private Sub ImportToAccess()
Dim Con1 As New ADODB.Connection
Dim Con2 As New ADODB.Connection
Dim mySQL1 As String
Dim mySQL2 As String
Dim myDSN As String
Dim mySET As String
Dim tmpTable As String
'Connection parameters for Source Database
myDSN = "DSN=Springbrook1;UID=suresh;PWD=******;"
mySET = "set schema 'pub'"
mySQL2 = "select * from customer"
'Open Source Database
Con2.Open myDSN
Con2.Execute (mySET)
'Open Destination Database
Con1.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Temp\VB Sample Codes\mcwd\Connect Program\test1.mdb;" & _
"Jet OLEDB:Engine Type=5;"
'WORKS BUT CREATES DUPLICATE RECORDS
mySQL1 = "INSERT INTO [C:\Temp\VB Sample Codes\mcwd\Connect Program\test1.mdb].[tblCustomer] SELECT (Cust_No, First_Name) FROM [odbc;DSN=Springbrook1;UID=suresh;PWD=******;].[Customer]"
Con1.Execute mySQL1
Con1.Close
Con2.Close
Set Con1 = Nothing
Set Con2 = Nothing
End Sub
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
