Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

login formulier in vb

De pé
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

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