اخوانى الكرام
نظرا لتعدد الاسئلة عن طريقة ربط الاكسس بقاعدة بيانات MYSQL فرأيت ان اضع هذا الموضوع
بالتأكيد هناك مميزات كثيرة لاستخدام قاعدة بيانات MYSQL بدلا من الاكسس و لسنا هنا لسرد تلك الميزات
1- الادوات المطلوبة :-
اولا نحتاج الى MYSQL DRIVER ,SERVER,MYSQL CONNECTOR
بالنسبة للسيرفر و الدريفر
احث اصدارات MYSQL هو الاصدار 5.1 و يمكن الحصول عليه من الموقع الرسمى مجانا
http://www.mysql.com/downloads/mysql/
و نحتاج الى سيرفر محلى و الاشهر هو APACHE و يمكن الحصول على اخر اصداراته من
http://httpd.apache.org/download.cgi
و بدلا من ذلك فالافضل هو استخدام برنامج WAMP SERVER
فهو يضم MYSQL DRIVER ,APACHE SERVER بالاضافة الى PHP
http://www.wampserver.com/en/download.php
قم بتثبيت البرنامج
و بالنسبة لل CONNECTOR
يمكنك الحصول على النسخة المناسبة من
http://dev.mysql.com/downloads/connector/odbc/
و قم بتثبيته
و لتحويل قاعدة بيانات اكسس الى MYSQL استخدم هذا البرنامج
http://www.bullzip.com/products/a2m/info.php
و قم بتثبيته
الخطوات :-
1- شغل الWAMP SERVER من قائمة البرامج
2- اذا كانت لديك قاعدة البانات (MYSQL) ضعها فى المجلد التالى
C:\wamp\bin\mysql\mysql5.1.33\data
على اعتبار انك ثبت السيرفر على ال C
و اذا كانت لديك قاعدة بيانات اكسس تريد تحويلها
شغل برنامج BULLZIP و هو سيقوم بالمطلوب
الان اصبحت الامور جاهزة لعملية الربط
وامامنا طريقتان للربط
الاولى بربط الجداول
و الثانية برمجيا
الطريقة الاولى : (ربط الجداول )
و هذه الطريقة نربط فيها الجداول من قاعدة البيانات الى الاكسس كما لو كنا نقسم قاعدة بيانات الاكسس الى جزئين و لكن بالتأكيد طريقة الربط ستختلف قليلا
الشرح موجود بملف الوورد
الان الطريقة الثانية
يمكن اتمام عملية الربط برمجيا كالتالى
ضع هذا الكود فى النموذج
Dim strDatabaseName As String
Dim strDBCursorType As String
Dim strDBLockType As String
Dim strDBOptions As String
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Private Function ConnectString() As String
Dim strServerName As String
Dim strDatabaseName As String
Dim strUserName As String
Dim strPassword As String
'Change to IP Address if not on local machine
'Make sure that you give permission to log into the
'server from this address
'See Adding New User Accounts to MySQL
'Make sure that you download and install the MySQL Connector/ODBC 5.0. Driver
strServerName = "127.0.0.1" 'or "localhost"
strDatabaseName = "newdb"
strUserName = "root"
strPassword = ""
ConnectString = "DRIVER={MySQL ODBC 5.1 Driver};" & _
"SERVER=" & strServerName & _
";DATABASE=" & strDatabaseName & ";" & _
"USER=" & strUserName & _
";PASSWORD=" & strPassword & _
";OPTION=3;"
'DRIVER={SQL Server};SERVER=127.0.0.1\SQLEXPRESS;DATABASE=dbname;UID=userid;PWD=password
End Functionو فى حدث عند الضغط للزر بالنموذج ضع الكود التالى
ثم عدل بالكود الى ما يناسبك
Private Sub Command10_Click()
On Error GoTo Command1_Click_Error
Dim b As Long
strDBCursorType = adOpenDynamic 'CursorType
strDBLockType = adLockOptimistic 'LockType
strDBOptions = adCmdText 'Options
Set cn = New ADODB.Connection
'Me.MousePointer = 11
cn.Open ConnectString()
With cn
.CommandTimeout = 0
.CursorLocation = adUseClient
End With
Set rs = New ADODB.Recordset 'Creates record set
'غير اسم الجدول
strSQL = "select * from coming;"
rs.Open strSQL, cn, strDBCursorType, strDBLockType, strDBOptions
If rs.EOF Then
GoTo ExitSub
Else
MsgBox rs.RecordCount
For b = 1 To rs.RecordCount
'<do whatever you need to do with the data here>
Next b
End If
ExitSub:
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
On Error GoTo 0
Exit Sub
Command1_Click_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Command1_Click of Form " & Me.Name
End Sub
