ممنون عماد جان.
من الان روي يك سورس كار كردم كه خيلي برام جالب بود.
طبق مثال قبلي كه زاپاتا جان توضيح دادند و با هم اجرا كرديم، يك شي ado را به يك فايل اكسس وصل كنيد.
بعد يكسري تكست باكس بر روي فرم قرار بدهيد. چون مي خواهيم بجاي datagrid از تكست باكس استفاده كنيم. صفت datasource تكست باكسها را adodc1 قرار بدهيد. و صفت datafield را برابر يكي از فيلدهاي جدول اكسس. نيازي نيست چيزي تايپ كنيد، وقتي كه صفت datasource برابر adodc1 قرار بگيره ، خود به خود در صفت datafield ليست نام فيلدها موجود است. بعد بي هيچ كدنويسي مثل مثال قبل ، محتواي فيلدها داخل تكست باكس ها قرار مي گيره. يعني هر چي داخل فيلدها بوده ، داخل تكس باكس ها ديده ميشه.
پس به تعداد فيلدهاي جدول اكسس خود ، تكست باكس بگذاريد و اين دو صفت را تنظيم كنيد.
حالا اگر مي خواهيد ركورد بعدي را ببينيد. يك دكمه بگذاريد و كد زير را اضافه كنيد:
Private Sub Command1_Click()
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveNext
End If
End Sub
و براي ديدن ركورد قبلي:
Private Sub Command2_Click()
If Not Adodc1.Recordset.BOF Then
Adodc1.Recordset.MovePrevious
End If
End Sub
و براي رفتن به ركورد آخر يا اول:
Private Sub Command3_Click()
Adodc1.Recordset.MoveLast
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.MoveFirst
End Sub
براي اضافه كردن يك ركورد: بعد زدن اين دكمه مقدار فيلدها(تكست باكسها) را پر كنيد. خواهيد ديد كه به فايل شما هم در هارد اضافه مي شه.
Private Sub Command5_Click()
Adodc1.Recordset.AddNew
End Sub
Update و delete هم داشت. كه من ديگه ننوشتم. چون من قبل اين كه هر قسمت را بنويسم ، بايستي چك مي كردم ببينم كار مي كنه يا نه. و تا اينجا خيلي وقت گرفت. در سورسهاي بعدي اين دستورات را كار مي كنيم. ولي بي امتحان دستوراتش را مي گذارم.
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Refresh
اگر مشكلي در پيوند دادن ado با اكسس ، يا تكست باكس ها با ado بود، بگيد تا بحث كنيم.
.