السلام عليكم ورحمة الله تعالى وبركاته احب ان اقدم لكم اليوم مثال عن كيفية انشاء قواعد البيانات (اكسس) برمجيا بواسطة ال vb.net 2005 وسنحاول أن نغطي النقاط التالية : - انشاء قاعدة بيانات access - انشاء الجداول - انشاء القيود (المفاتيح الاساسية ، القيود على الاعمدة ) - انشاء العلاقات بين الجداول انشاء قاعدة البيانات :-سنحتاج اولا لاضافة المكون Microsoft Jet OLE DB Provider and Microsoft ADO Ext. 2.7 for DDL and Security (ADOX)بإتباع المسار : Project --> Add References --> COM tab --> Microsoft ADO Ext. 2.7 for DDL and Security الخطوة الثانية هي اضافة الاداة SaveFileDialog للفورم لاستخدامها لتحديد مكان حفظ قاعدة البيانات نضيف module للمشروع ونعرف فيه متغير عام لتخزين مسار قاعدة البيانات التي سنقوم بإنشاءها كود Public FileName As String الان نرجع للفورم الاساسي ونضيف زر انشاء كما بالصورة  الاكواد :سنقوم بانشاء function وظيفته انشاء قاعدة البيانات بعد تمرير مسار الحفظ اليه الكود بالشكل التالي : كود
Public Function CreateAccessDatabase( _
ByVal DatabaseFullPath As String) As Boolean
Dim bAns As Boolean
Dim cat As New ADOX.Catalog()
Try
Dim sCreateString As String
sCreateString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
DatabaseFullPath
cat.Create(sCreateString)
bAns = True
Catch Excep As System.Runtime.InteropServices.COMException
bAns = False
'do whatever else you need to do here, log,
'msgbox etc.
Finally
cat = Nothing
End Try
Return bAns
End Function
وكود زر الانشاء سيكون كالتالي : كود
With SaveFileDialog1
.FileName = FileName
.Filter = "database files (*.mdb)|*.mdb|" & "All files|*.*"
If .ShowDialog() = DialogResult.OK Then
FileName = .FileName
End If
End With
Try
CreateAccessDatabase(FileName)
MsgBox("تم اضافة قاعدة البيانات بنجاح", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message)
End Try
يتبع ...
|