Dim myParamArray As New ArrayList Dim param As New OracleParameter() param.ParameterName = "pLogin" param.OracleDbType = OracleDbType.Varchar2 param.Value = txtcod_ut.Text myParamArray.Add(param) Dim param1 As New OracleParameter() param1.ParameterName = "pPassword" param1.OracleDbType = OracleDbType.Varchar2 param1.Value = txtpass.Text myParamArray.Add(param1) Dim name As Object name = oracleClient.ExecuteScalar("SELECT a.name FROM userstable a WHERE a.usercod = :pLogin and a.password = :pPassword" _ , myParamArray) If Not name Is Nothing Then MsgBox("Welcome " & name.ToString & "!") Else MsgBox(" user invalid .") End If myParamArray.Clear() Me.Hide() My.Forms.First_page.ShowDialog() myParamArray = Nothing
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)