Visual Basic

VB.Net/VS.Net Password Login

4-Oct-04 17:11

If you want to put it in an email, you're going to have to parse up the DataView or whatever your binding your DataGrid to and format the output into a message yourself. There's nothing that'll do it automatically. Your best bet, if your email recipient has a client that understands HTML, is to output the dataset to an XML file. Then you can put together a custom email that includes CSS style tags that will translate XML tags for you.

No, I don't have any example code...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Desi Bravo4-Oct-04 10:35

Desi Bravo

4-Oct-04 10:35

I created a password login following the address book application. The log in works great. The application is accessed through MS Access database.
The following is the code to the password that is generated through the load page of the log in application.

Dim UserName, Password As String

If txtUserName.Text = "username" And txtPassword.Text = "password" Then
MsgBox("Welcome, Username")
txtUserName.Text = ""
txtPassword.Text = ""
ElseIf MsgBox("Sorry, your username or password entry is Invalid!")Then
txtUsername.Text = ""
txtPassword.Text = ""
MsgBox("Try Again")
txtUserName.Focus()
Return
txtUserName.Text = "username" And txtPassword.Text = "password")
txtUserName.Focus()

End If

What I am looking for is a code that will allow the user change the password periodically. I have no idea how to generate a "change password" method.
Can someone help in this area. The above log in code works good, is just that I like to add code to change the password.;)

bravo659

Dave Kreskowiak4-Oct-04 11:30

4-Oct-04 11:30

Actually, with the code you have alreayd, you won't be able to change the username and password because it's hard-coded. You have to store the username and password in a table somewhere. Then you'll be able to code a method to change that username and password.

Like you have it coded now, consider it impossible to change...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Desi Bravo5-Oct-04 3:41

Desi Bravo

5-Oct-04 3:41

Thanks for your reply.
Then I need to change the entire code to a connection in a database table in order to have the changes made, right?
The only database I currently have is the Access database. Through that connection is how I need to create the table?

bravo659

Dave Kreskowiak5-Oct-04 4:33

5-Oct-04 4:33

It can be created just like any other table in Access. Open the .MDB file your using by double-clicking on it. In Access, click on the "Tables" label, then click design. Add your username and password fields...

...hmmm...Have you used Access before? Any previous programming experience?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Desi Bravo5-Oct-04 14:54

Desi Bravo

5-Oct-04 14:54

Yes, I do have Access programming experience and I also use the design view and the primary key.

bravo659

Dave Kreskowiak5-Oct-04 17:09

5-Oct-04 17:09

Then you have everything you need to create the table using Access.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Anonymous6-Oct-04 4:13

6-Oct-04 4:13

Thanks for your reply to my inquiries. It is helpful. All I ahve to do is shift the coding around until I get the correct code.
Thanks Again!

datagrid

Paps24-Oct-04 5:25

4-Oct-04 5:25

Hi,

I have populated my datagrid from a dataset.

I want to set values for the second col wherein the user can enter only 'AGE' or 'DOB' in the second col. i.e. If user hits 'A' on the key board I want to display 'AGE' in the second col or if the user hits 'D' to display "DOB" in the second col. But if the users enters any other value other than 'A' or 'D' then I want to cautio user with a msgbox.

Is this possible with the new datagrid?

Tnx

Dave Kreskowiak4-Oct-04 9:07

4-Oct-04 9:07

You can find an example in Tailor Your DataGrid Apps Using Table Style and Custom Column Style Objects
[^] on MSDN.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Anonymous4-Oct-04 10:14

4-Oct-04 10:14

Validating Input with the Windows Forms DataGrid Control

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon/html/vbtskHandlingErrorsWithWindowsFormsDataGridControl.asp?frame=true

Paps24-Oct-04 11:00

4-Oct-04 11:00

I tried this code but having a tiny problem:

I get the error @ AddHandler customersDataSet1.Tables("Customers").ColumnChanging, AddressOf Customers_ColumnChanging

any idea?

Imports System.Data
Imports System.Data.OleDb

Inherits System.Windows.Forms.Form
Dim da As New OleDbDataAdapter()

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As New Data.DataSet()
' Visual Basic
' Assumes the grid is bound to a dataset called customersDataSet1
' with a table called Customers.
' Put this code in the form's Load event or its constructor.
Dim conn As OleDbConnection = New OleDbConnection("Provider = Microsoft.jet.oledb.4.0;Data source = D:\Program files\Microsoft Visual Studio .NET\Crystal Reports\Samples\Database\Xtreme.mdb")
If conn.State <> ConnectionState.Open Then conn.Open()

da.SelectCommand.CommandText = "Select * from customer"
da.SelectCommand.CommandType = CommandType.Text

da.Fill(ds, "customersDataSet1")
DataGrid1.DataSource = ds
DataGrid1.DataMember = "customersDataSet1"
AddHandler customersDataSet1.Tables("Customers").ColumnChanging, AddressOf Customers_ColumnChanging
End Sub

Private Sub Customers_ColumnChanging(ByVal sender As Object, _
ByVal e As System.Data.DataColumnChangeEventArgs)
' Only check for errors in the Product column
If (e.Column.ColumnName.Equals("Product")) Then
' Do not allow "Automobile" as a product.
If CType(e.ProposedValue, String) = "Automobile" Then
Dim badValue As Object = e.ProposedValue
e.ProposedValue = "Bad Data"
e.Row.RowError = "The Product column contians an error"
e.Row.SetColumnError(e.Column, "Product cannot be " & _
CType(badValue, String))
End If
End If
End Sub

Anonymous4-Oct-04 19:20

4-Oct-04 19:20

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As DataSet = New DataSet
Dim strSQL As String
Dim cmSQL As OleDbCommand
Dim conn As OleDbConnection = New OleDbConnection( _
"Provider = Microsoft.jet.oledb.4.0;Data source = C:\Program files\Microsoft Visual Studio .NET\Crystal Reports\Samples\Database\Xtreme.mdb")

If conn.State <> ConnectionState.Open Then conn.Open()
strSQL = "SELECT * FROM Customer"
cmSQL = New OleDbCommand(strSQL, conn)
da.SelectCommand = cmSQL
da.Fill(ds, "Customer")
DataGrid1.DataSource = ds.Tables(0)

AddHandler ds.Tables(0).ColumnChanging, AddressOf Customers_ColumnChanging

End Sub

Anonymous4-Oct-04 21:18

4-Oct-04 21:18

I forgot to change your drive letter back to D: in the last post, sorry.

Here is the rest of the code.

Private Sub Customers_ColumnChanging(ByVal sender As Object, _
ByVal e As System.Data.DataColumnChangeEventArgs)
' Only check for errors in the Contact Title column
If (e.Column.ColumnName.Equals("Contact Title")) Then
' Do not allow it to be empty
If CType(e.ProposedValue, String) = String.Empty Then
Dim badValue As Object = e.ProposedValue
e.ProposedValue = "Bad Data"
e.Row.RowError = "The Contact Title column contians an error"
e.Row.SetColumnError(e.Column, "Contact Title cannot be Empty")
Else
e.Row.ClearErrors()
End If
End If
End Sub

Paps25-Oct-04 3:19

5-Oct-04 3:19

Thanks a bunch.
Its working fine.

Paps25-Oct-04 4:19

5-Oct-04 4:19

There is one tiny problem here.

I want to check if the value entered is 'Mr' or 'Mrs'
ElseIf CType(e.ProposedValue, String) <> "Mr" or CType(e.ProposedValue, String) <> "Mrs" Then
But when I enter Mr or Mrs it displays the error mssg.

But when I check the value individually it works fine:
ElseIf CType(e.ProposedValue, String) <> "Mr" Then

If (e.Column.ColumnName.Equals("Contact Title")) Then
' Do not allow it to be empty
If CType(e.ProposedValue, String) = String.Empty Then
Dim badValue As Object = e.ProposedValue
e.ProposedValue = "Bad Data"
e.Row.RowError = "The Contact Title column contians an error"
e.Row.SetColumnError(e.Column, "Contact Title cannot be Empty")
' Do not allow if the value is not 'Mr' or Mrs
ElseIf CType(e.ProposedValue, String) <> "Mr" Or CType(e.ProposedValue, String) <> "Mrs" Then
Dim badValue As Object = e.ProposedValue
e.ProposedValue = "This field is limited to'Mr','Mrs'"
e.Row.RowError = "The Contact Title column contians an error"
e.Row.SetColumnError(e.Column, "Contact Title cannot be Empty")
Else
e.Row.ClearErrors()
End If
End If

Anonymous5-Oct-04 6:52

5-Oct-04 6:52

Yes, that is a strange problem, but I it works good this way.

Private Sub Customers_ColumnChanging(ByVal sender As Object, _
ByVal e As System.Data.DataColumnChangeEventArgs)
' Only check for errors in the Contact Title column
If (e.Column.ColumnName.Equals("Contact Title")) Then
Select Case CType(e.ProposedValue, String)
Case String.Empty
Dim badValue As Object = e.ProposedValue
e.ProposedValue = "Bad Data"
e.Row.RowError = "The Contact Title column contians an error"
e.Row.SetColumnError(e.Column, "Contact Title cannot be Empty")
Case "Mr."
e.Row.ClearErrors()
Case "Mrs."
e.Row.ClearErrors()
Case "Miss"
e.Row.ClearErrors()
Case "Dr."
e.Row.ClearErrors()
Case Else
Dim badValue As Object = e.ProposedValue
e.ProposedValue = "Bad Data"
e.Row.RowError = "This field is limited to'Mr','Mrs'"
e.Row.SetColumnError(e.Column, "Contact Title cannot be Empty")
End Select
End If
End Sub

Paps25-Oct-04 8:10

5-Oct-04 8:10

Thanks

Anonymous5-Oct-04 7:11