dim C as new Class1 C.Client.Procedure()
Option Strict Off Option Explicit On Imports System Public Class Authentification Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() base.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Rcl As New RepClass Rcl.RepClass.LogID.Procedure() End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'Fonction de connexion a la bd: Imports System.Data.OleDb Imports System.Data Friend Class LogId ' connexion a la bd: 'object Connection: Dim ConnectLog As New System.Data.OleDb.OleDbConnection() Dim Label2 As String Public Sub Connection(ByVal NomDb As String) Try ConnectLog.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & NomDb ConnectLog.Open() Catch EreurConnect As Exception Authentification.Label2.Text = "Erreur de Connection" End Try End Sub End Class
dim C as new LogId C.Connection()