Muhanned

السلام عليكم . مطلوب برنامج لإدارة المستوصفات و توابعهما يشترط بالبرنامج ما يلي 1- أن يكون برنامج جاهز وهناك مستوصفات في السعودية تعمل على البرنامج منذ فترة لا تقل عن سنة . 2- أن يشتمل البرنامج على الأقسام التالية بشكل أساسي : بيانات المرضى و المراجعين و الأقس…

هذا كود لفتح قاعدة بيانات mydb.mdb مع كلمة سر mypassword Dim Con As New ADODB.Connection db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydb.mdb;Jet OLEDB:Database Password=mypassword;"

السلام عليكم هذه دالة لضغط قاعدة بيانات Access باستخدام كائنات ADO "حتى لو كان بها كلمة سر" , ولابد من إضافة المكتبة JRO لمراجع (References) البرنامج . Private Function DBCompact(DBName As String) As Boolean Dim JetRObject As New JRO.JetEngine Dim PassCon As S…