Meu objetivo é nesse programa capturar o Login do Usuário, jogar numa query que conecta no oracle, e de acordo com a resposta dada fazer o teste como mostro a seguir:
Programa em VB:
Imports System.Timers
Imports System.Data.Odbc
Imports System.Security.Principal
Imports System.Data.OleDb
Public Class SCNPR
Dim msg As String
Dim title As String
Dim style As MsgBoxStyle
Dim response As MsgBoxResult
Dim oODBCConnection As Odbc.OdbcConnection
Dim sConnString As String = _
"Driver={Microsoft ODBC for Oracle};" & _
"Server=rhsenior;" & _
"Uid=rhsenior;" & _
"Pwd=rhsenior"
Dim conexao As OleDbConnection
Dim myCommand As OleDbCommand
Dim comando As OleDbCommand
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Provider=MSDAORA;Data Source=senior;Persist Security Info=True;User ID=rhsenior
' Checa se o usuário está autenticado antes de continuar.
' Visual(Basic(XDeclaration)) 'Verifica se o Usuario é Guest
Dim Usuario As WindowsIdentity 'Define login do usuário
Usuario = WindowsIdentity.GetCurrent() 'Descobre o usuário corrente
' If RESPOSTA DA QUERY FOR UM REGISTRO Then
' MsgBox("Não foram encontrados lançamentos, ou seus lançamentos não estão na quantidade de horas adequada", MsgBoxStyle.SystemModal, "ATENÇÃO") 'Mostre mensagem na tela
' Shell("cmd.exe /c " & "\\ester\vetorh$\iniciar.exe -e:\\ester\vetorh$\Vetorh\Estacao.ini Ronda -p:\\ester\vetorh$\Vetorh\vetorh.cfg")
'System.Diagnostics.Process.Start("c:\WINDOWS\scnpr.bat")
' Me.Close() 'Encerre o programa
' Else 'Senão (SE A RESPOSTA DA QUERY NÃO RETORNAR REGISTRO)
' Me.Close() 'Encerre o programa
' End If 'Fim do If
End Sub 'Fim do Sub
End Class
SELECT NOMUSU AS EXPR1
FROM USU_VT001USU
WHERE (NOMUSU = 'Usuario')A Variável Usuario deve ser lida no query como a variável usuário definida no Form1 do VB.Net (postada mais acima) que é o usuário corrente.
Como fazer isso?
Abraços
