اتصال چندين تيبل به يك ado

[hiphip]

سلام خسته نباشيد

من يك بانك دارم كه حدود 70 تا جدول داره و ميخوام طوري برنامه نويسي كنم كه فقط از يك adodc

استفاده كنم و ايا اين كار شدني كه براي 70 تا تيبل از يك ado استفاده كنم يا راه ديگه اي داره

[ghasemweb]

سلام دوست عزیز شما میتونید از روشهای دیگری که نیاز به adoc نباشه استفاده کنید که به نظرمن روش اتصال با rs و db که به کمک refrence کتابخانه ای ویژوال هست حرفه ای تر باشه.
اگر مایل بودید من در خدمتم

[niko2008]

سلام دوست عزیز شما میتونید از روشهای دیگری که نیاز به adoc نباشه استفاده کنید که به نظرمن روش اتصال با rs و db که به کمک refrence کتابخانه ای ویژوال هست حرفه ای تر باشه.
اگر مایل بودید من در خدمتم

دوست عزیز میتونید یه نمونه بزارید

[ghasemweb]

اگه عجله نداشته باشيد تا شب يه سورس براتون رديف مي كنم

[ENG_Torshani]

راستشو بخواین یه ذره سوالاتون عجیب بود شما بعضی اوقات لازم دارین چندین Conection به بانک داشته باشین اصلا ربطی به تعداد Table نداره بستگی به نیاز شما داره پیشنهاد من اینکه اگه واقعا میخواهین اصولی کد بزنین یک کلاس ایجاد کنید یک Conection که شما ازش میتونید بارها استفاده کنید.



'***********************************************
'***********************************************
'***********************************************
' GPC DB Engine
' Created By Mehdi Torshani
' Mohammad Mazinani
2001-2002
'***********************************************
'***********************************************
'***********************************************
Public DBConect As New ADODB.Connection 'Data Base Conetion
Public DBCmd As New ADODB.Command 'Data Base Command
Public DBRecord As New ADODB.Recordset 'Data Base RecordSet

'Active Conection TO Data Base
Public Sub CreatConectionDB()
DBConect.Open JetAcc
DBCmd.ActiveConnection = DBConect
DBCmd.CommandType = adCmdTable
End Sub
'Execute Paramet for DataBase
Public Sub RecDB(StrSql As String)
Open "c:\1.txt" For Output As #1
Print #1, StrSql
Close #1
DBConect.Execute (StrSql)
End Sub
'Open Record Set
Public Function OpenRS(StrRS As String) As Recordset
DBRecord.Open StrRS, DBConect, adOpenDynamic, adLockBatchOptimistic
On Error Resume Next
DBRecord.MoveFirst
Set OpenRS = DBRecord
End Function
Public Sub CloseRec()
DBRecord.Close
End Sub
'Close Conection
Public Sub CloseConection()
DBConect.Close
End Sub