Vraag & Antwoord

Programmeren

login formulier in vb

1 antwoord
  • Hoi, ik heb een login formulier gecreeerd voor een oracle database. de volgende code die ik gebruik zie je hieronder. het tweede formulier gaat open, maar krijg het niet voor elkaar om mijn login scherm te doen laten verdwijnen. het tweede formulier gaat wel open. Imports System.Data Imports Oracle.DataAccess.Client ' ODP.NET Oracle managed provider Imports Oracle.DataAccess.Types Public Class LoginForm Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click Dim username As String Dim password As String Dim ds As String username = UsernameTextBox.Text password = PasswordTextBox.Text ds = Cmbdatabase.Text Dim con As OracleConnection = New OracleConnection("Data Source=" & ds & ";" & "User Id=" & username & ";" & "Password=" & password & ";") ' VB Try con.Open() Dim cmd As OracleCommand = New OracleCommand cmd.CommandText = "SELECT username,password from dba_users" ' VB cmd.Connection = con Dim i As String = cmd.ExecuteScalar If i = "0" Then MsgBox("Unknown Username and Password") UsernameTextBox.Text = "" PasswordTextBox.Text = "" Else Dim f1 As New Form1 f1.Show() End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click Me.Close() End Sub End Class

Beantwoord deze vraag

Weet jij het antwoord op deze vraag? Registreer of meld je aan met je account

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.