1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
Imports System.Data.OleDb
Public Class Form8
Dim con As New OleDbConnection
Dim dtset As New DataSet
Dim dtadapter As New OleDbDataAdapter("select * from motdepasse", con)
Dim table As New DataTable
Dim newlignes As DataRow
Dim i As Integer = 3
Dim h As Boolean = False
Dim v As Boolean = False
Dim s As Integer = 142
Dim t As Boolean = True
Private Sub Form8_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
End Sub
Private Sub Form8_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
sp1.Close()
End Sub
Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=event.mdb;Password=123"
con.Open() la ou il me donne l'erreur
.
.
.
.
. |
Partager