Visual Basic

drexler_kk wrote:

For i = 0 to DT.Rows(i).Count - 1

drexler_kk wrote:

If Test =DT.Select("USERNAME='"& textbox1.text &"'")(i) Then

drexler_kk wrote:

Besides,what do you mean by do the user verification in the database? You mean directly use a SELECT statement which depend on the username and userpassword from the server to check if the server have the username with the right password??

' open connection to mdb
objConn.Open()

Dim SchemaTable As DataTable=objConn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})

For Each dr As DataRow In SchemaTable.Rows

   Debug.Print(dr!TABLE_NAME.ToString())
   Debug.Print(dr!DATE_CREATED.ToString())

Next

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _
                      ByVal childAfter As IntPtr, _
                      ByVal lclassName As String, _
                      ByVal windowTitle As String) As IntPtr

Private Declare Auto Function GetDesktopWindow Lib "user32.dll" () As IntPtr
End Function

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Int32) As Boolean
End Function

' Get the window's handle
Dim WindowTitle as String = "Notepad"
Dim WindowToMax as IntPtr = FindWindowEx(GetDesktopWindow(), IntPtr.Zero, IntPtr.Zero, "WindowTitle")

' Maximize it
ShowWindow(WindowToMax, 3) ' 3 is for ShowMaximized

The type of the first permission that failed was:
System.Security.Permissions.SecurityPermission
The Zone of the assembly that failed was:
MyComputer

<Runtime.InteropServices.DllImport("user32.dll")> _
Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _
ByVal childAfter As IntPtr, _
ByVal lclassName As String, _
ByVal windowTitle As String)

End Function
Declare Auto Function GetDesktopWindow Lib "user32.dll" () As IntPtr

<Runtime.InteropServices.DllImport("user32.dll")> _
Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Int32) As Boolean
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim WindowTitle As String = "QuadraMed CPR - Saint Francis Hospital Ulticare System"
        Dim WindowToMax As IntPtr = FindWindowEx(GetDesktopWindow(), IntPtr.Zero, IntPtr.Zero, "WindowTitle")
        ShowWindow(WindowToMax, 3) ' 3 is for ShowMaximized

    End Sub

Imports System.Runtime.InteropServices

Public Class Form1

    <Runtime.InteropServices.DllImport("user32.dll")> _
        Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Int32) As Boolean
    End Function

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindow( _
         ByVal lpClassName As String, _
         ByVal lpWindowName As String) As IntPtr
    End Function

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

        Dim NotepadHwnd As System.IntPtr = FindWindow(Nothing, "Untitled - Notepad")
        MsgBox(NotepadHwnd.ToString)

        ShowWindow(NotepadHwnd, 3)

    End Sub

End Class