Visual Basic

Patrício dos Santos wrote:

How can I do a sql query in vb.net that can do that...

- Check if the user exists... then check if is admin:
-- If this statement is true, then print User FullName in lblFullName and YOU IS ADMIN in lblLevelAccess
Else

Dim SQL As String<br />
SQL = "SELECT U.CodUser, U.FullName FROM tblUser U INNER JOIN tblAccess A ON U.CodUser = A.CodUser WHERE A.AccessLevel = 'Admin' AND A.CodUser = @CodUser"<br />
Dim myCommand = New SqlCommand(SQL, myConnection)<br />
myCommand.Parameters.Add("@CodUser", SqlDbType.VarChar).Value = CardNum<br />
<br />
Dim reader As SqlDataReader = myCommand.ExecuteReader()<br />
Dim reader2 As SqlDataReader = myCommand2.ExecuteReader()<br />
'Caso existam linhas<br />
If reader.HasRows Then<br />
While reader.Read()<br />
lblFullName.Text = reader(1)<br />
lblLevel.Text = "Admin"<br />
txtCardNum.Text = ""<br />
End While<br />
reader.Close()<br />
<br />
...<br />

Else<br />
lblNomeCliente.Text = reader(1)<br />
lblLevel.Text = "Normal User"<br />
txtCardNum.Text = ""<br />
reader.Close()<br />
End If

Patrício dos Santos wrote:

PS: sorry my english, I am angolan

Mr Oizo wrote:

We used another mail smtp client and it worked fine

Mr Oizo wrote:

It's something on the server

Private Function SplitStringAtFirstNumeral(ByVal mystring As String) As String()

        Dim myArray(1) As String
        Dim i As Integer = 0
        For Each ch As Char In mystring
            If IsNumeric(ch) Then
                myArray(0) = mystring.Substring(0, i)
                myArray(1) = mystring.Substring(i, mystring.Length - i)
                Exit For
            End If
            i += 1
        Next
        Return myArray

    End Function

Imports
System.Data.SqlClient
Public Class Form2 Inherits System.Windows.Forms.Form
Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim ra as Integer 
'integer holds the number of records inserted 
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e_
As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e_
As System.EventArgs) Handles Button1.Click
myConnection = New SqlConnection("server=localhost;uid=sa;pwd=;database=pubs")
'you need to provide password for sql server
myConnection.Open()
myCommand = New SqlCommand("Insert into Jobs values 12,'IT Manager',100,300,_
myConnection)
ra=myCommand.ExecuteNonQuery()
MessageBox.Show("New Row Inserted" & ra)
myConnection.Close()
End Sub
End Class

Public Sub New(ByVal Name As String, ByVal Pass As String)

        UserName = Name
        Password = Pass

    End Sub

Public Function SaveUser() As Integer

       Dim conDB As New MySqlConnection("server=localhost;uid=sa;pwd=;database=pubs")
       Dim myCon As New MySqlCommand
       myCon.CommandText = "INSERT INTO Users (Username, PassWord) VALUES (@Username,@Password)"
       myCon.Connection = conDB
       myCon.Parameters.AddWithValue("@Username", UserName)
       myCon.Parameters.AddWithValue("@Password", Password)
       Dim intResult As Integer = 0
       conDB.Open()
       intResult = myCon.ExecuteNonQuery
       conDB.Close()
       Return intResult

   End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim newUser As New User(txtUserName.Text, txtPassword.Text)
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim newUser As New User(txtUserName.Text, txtPassword.Text)
        If newUser.SaveUser() = 0 Then
            MsgBox("User Not Saved")
        Else
            MsgBox("User Successfully Saved")
        End If

    End Sub

    End Sub