[egypt 2020]

(17-01-20, 04:11 PM)ناجح احمد كتب : اشكرك جدا استاذي العزيز
هذا كود الاتصال

كود :

Public Sub dataconnection()
       If cnn.State = ConnectionState.Open Then ' اذا كان الاتصال مفتوح اغلقه
           cnn.Close()
       End If
       cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.12.0;Data Source=" & Application.StartupPath & "\data.accdb)"
       If Not cnn.State = ConnectionState.Open Then
           'افتح الاتصال
           cnn.Open()
       End If
   End Sub
End Module

نزل المشغل وريستارت للجهاز المشغل 32 بت 86

https://www.microsoft.com/en-us/download...x?id=13255