ربط قاعدة بيانات من ألأكسس بالفجول بيسك

بسم الله الرحمن الرحيم

تحتاج أن تعدله على الفيجوال بيسك (تعيد إنشاءه) - على حد علمي يوجد عناصر للتحويل من اكسز

أخي العزيز/PCBat

لاأريد التخمين أريد شرح للطريقة جزاك الله خيرا وشكرا

الأخ العزيز الساكت لكى تربط قاعدة بيانات لفيجوال عليك اولا ان تضع الاداة data وهى من الاساسية الموجودة فى شريط الأدوات داخل فيجوال بيسيك وسوف تجد فى خصائص هذه الاداة خاصية تسمى databasename وفيها عليك ان تضع اسم قاعدة البيانات مع المسار كاملا .

لا تتردد فى طرح اى سؤال فانا مبتدىء فى الفيجوال بيسيك وبالأخص فى التعامل مع قواعد البيانات فارجوا ان نساعد بعضنا البعض كل على قدر علمه واستطاعته وارجوا من الإخوة الكرام ذوى الخبرة المشاركة .

اود ان اشكر الاخ PCBat على مشاركته ;)

شكرا لك أخي/Alhassan

سوف أجرب هذه الفكرة ولو أنها غير واضحه بالنسبة لي. وجزاك الله خيرا

العفو اخى العزيز انا لم افعل شىء واذا كان هناك اى غموض ارجوا مراسلتى على البريد بلا تردد او ان تطرح سؤالك هنا وان شاء الله اقدر اجاوب عليه. :)

السلام عليكم

نعم من خصائص الأداة data تقوم بتحديد source قاعدة البيانات المراد ربطها بالVB..

وتقوم بإعادة إنشاء النماذج ولكن بأوامر الvb ..

الله ينور عليك اخوى الفاروق :)

رجاء من المحترفين توضيح هذه النقطة بمثال واضح ، فالجميع بحاجة إلى هذا الموضوع . ولكم جزيل الشكر والتقدير

كثرة في الآونه الاخيرة السؤال عن التعامل مع ال ADO او كيفية الاتصال بقاعدة بيانات الاكسس عن طريق الفيجوال بيسك

غير الطلابات التي تأتني عن طريق الايميل ، فاحببت ان اعمم الفائدة

وهذه كود كامل لفورم ،، فيه جميع ما يحتاجة المبرمج من

1- الاتصال بالديتابيس ----> Connection

2- فتح جدول

2.1 فتح جدول بالطريقة العادية

2.2 فتح جدول باستخدام ال SQL

3- تحريك السجلات

3.1 " اول سجل- Move First

3.2 التالي- Move Pervious

3.3 السابق - Move Next

3.4 آخر سجل- MoveLast

4- عمليات السجلات

4.1 أضافة سجل جديد - AddNew Record

4.2 تعديل سجل - Edit Current Record

4.3 حذف سجل - Delete Current Record

4.4 ترجع عن تعديل - Endo

5- وظائف - Functions & Sub لقد استحدثت هذه الوظائف لتسهيل عمل البرنامج

5.1 ShowRecord لوضع البيانات المستخرجة من الجدول على ال TextBox و اسمه هنا في هذا الفورم ShowData على الفورم

5.2 buff_to_tb(TqMode) لتخزين البيانات الموجودة بال TextBoxes في حقول الجدول و ال TqMode اذا كانت قيمته 1 يعني اضافة سجل جديد و اذا غير ذلك فهو تعديل

5.3 CLEAR_BUFF لتنضيف ال TextBoxes من اي بيانات سابقة

5.4 tqlock(TqMode As Boolean) To Loack and Uloack the TexBoxes لتأمين ال TexBoxes من التعديل و فك التأمين

Code:

--------------------------------------------------------------------------------

<----------Form1.frm

<--------- --------General Declaration

<------------------ShowData As TextBox As an array Indexed from 0 to 14

Option Explicit

Public objConn As ADODB.Connection

Public objrec As ADODB.Recordset

Public cString As String, SQL As String, Col As String

Private Sub Form_Load()

Set objConn = New ADODB.Connection

Set objrec = New ADODB.Recordset

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= D:Address BookTelephone.mdb"

objrec.CursorType = adOpenKeyset

objrec.CursorLocation = adUseClient

objrec.LockType = adLockOptimistic

objrec.Open "personal", objConn, , , adCmdTable <-----------------One Way OR

objrec.Open "select distinct othert from personal" , adOpenKeyset, adLockOptimistic, adCmdText <---------------- This way

ShowRecord <---------------- Calling Function to show Recordes

End Sub

Sub ShowRecord()

Dim xx As Long

' Fill the DataFound text boxes from the Recordset.

' ShowData As TextBox

If objrec.BOF = False And objrec.EOF = False Then

' Note the three different ways to address the Recordset fields.

For xx = 0 To 15

If IsNull(objrec(xx + 1)) = False Then

ShowData(xx) = objrec(xx + 1) ' Assinging TextBox with Data

If xx = 15 Then

DCb1.Text = ShowData(xx)

End If

End If

Next xx

End If

End Sub

Private Sub cmdMoveFirst_Click()

objrec.MoveFirst

CLEAR_BUFF <------------ Clear All TextBox Files "ShowData"

ShowRecord <-------------Fill The TextBox ShowData with the Data From Table

End Sub

Private Sub cmdMovePerv_Click()

objrec.MovePrevious

CLEAR_BUFF <------------ Clear All TextBox Files "ShowData"

ShowRecord <-------------Fill The TextBox ShowData with the Data From Table

End Sub

Private Sub cmdMoveNext_Click()

objrec.MoveNext

CLEAR_BUFF <------------ Clear All TextBox Files "ShowData"

ShowRecord <-------------Fill The TextBox ShowData with the Data From Table

End Sub

Private Sub cmdMoveLast_Click()

objrec.MoveLast

CLEAR_BUFF <------------ Clear All TextBox Files "ShowData"

ShowRecord <-------------Fill The TextBox ShowData with the Data From Table

End Sub

Function buff_to_tb(TqMode)

Dim ii As Long

Select Case TqMode

Case 1

objrec.AddNew

End Select

If TqMode > 0 Then

For ii = 0 To 15

If Len(ShowData(ii)) > 0 Then

' Debug.Print Len(ShowData(ii))

objrec(ii + 1) = ShowData(ii)

End If

Next ii

End Function

Function CLEAR_BUFF()

Dim i As Long

For i = 0 To 15

ShowData(i) = "" <------------------ Clearing the TextBoxes ShowData from any Data

End If

Next i

End Function

Function tqlock(TqMode As Boolean)

Dim i As Intiger

For i = 0 To 15

ShowData(i).Locked = TqMode <----------------- To Lock and UnLoack the TextBoxes

Next i

End Function

Private Sub cmdNew_Click()

ledit = 1

tqlock (False) <------------- to Unlock the TextBoxes

CLEAR_BUFF <-------------Clear All Data

ShowData(0).SetFocus <-------------Put Cursor on First TextBox

End Sub

Private Sub cmdSave_Click()

buff_to_tb (ledit) <--------------- Save The New Entered Data from TextBoxes "ShowData " To the Table in the Database

tqlock (True) <--------------- Loack the TextBoxes

End Sub

Private Sub cmdDelete_Click()

msg = "هل أنت متأكد من حذف هذا السجل ?" ' Define message.

Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.

Title = "محاولة في حذف سجل " ' Define title.

Ctxt = 1000 ' Define topic

' context.

' Display message.

Response = MsgBox(msg, Style, Title, Help, Ctxt)

If Response = vbYes Then ' User chose Yes.

objrec.Delete <------------------------ Delete Current Record

If objrec.EOF Then

CLEAR_BUFF

objrec.MovePrevious

Else

CLEAR_BUFF

objrec.MoveNext

If objrec.EOF = True Then

objrec.MovePrevious

End If

End If

ShowRecord

End If

End Sub

Private Sub cmdUndo_Click()

CLEAR_BUFF

If objrec.EOF Then

objrec.MovePrevious

Else

objrec.MoveNext

End If

ShowRecord

ledit = 0

End Sub

Private Sub cmdEdit_Click()

ledit = 2

tqlock (False)

End Sub

نقلاً عن منتدى الفيجوال بيسك للكاتب طارق العبيدي ، لكن جزى الله خيراً من يستطيع توضيح هذه الأكواد وآلية كتابتها وحبذا لو كان ذلك بمثال

شكرا لك أخي/ عابد

وياليت مثل ما قلت أحد الأخوان الذي لديه معرفة وفهم جيد شرح لنا الطريق وتكون بمثال للتوضيح. وشكرا

بسم الله الرحمن الرحيم

إخوتى الكرام

سعدت كثيرا بسؤال اخى الساكت لأن هذا ما كنت اطرحه وللأسف ليس هناك مجيب.

لقد انشأت بفضل الله تطبيق متكامل بواسطة MSaccess وتعمل به شركتى بفصل الله بشكل مثالى فى معظم مجالاتها ولكن السؤال كيف احول هذا التطبيق المنتهى الى ملف تنفيذى باستخدام VB ولقد علمت ان هناك بعض المعالجات المساعدة تقوم بعمل ذلك فى VB بكل سهولة و لكننى للأسف لا أعلم عنها شيئا.

و ذلك ارجو من اخوانى الإفادة... و جزاكم الله خيرا.