07-10-18, 01:35 AM
(آخر تعديل لهذه المشاركة : 07-10-18, 01:56 AM {2} بواسطة asemshahen5.)
جرب هذا :
أو هذا :
كود :
Public Sub New()
Dim Path_ = My.Application.Info.DirectoryPath.ToString
sqlcon = New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Path_ & "\Myasd.DLL;user id=admin;jet oledb:database password=1234567890")
End Subأو هذا :
كود :
Public Sub New()
sqlcon = New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\Myasd.DLL;user id=admin;jet oledb:database password=1234567890")
End Subسبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر