View Full Version : سوال: مقداردهی RecordSet بدون Close کردن در adodb
M.T.P
سه شنبه 22 تیر 1389, 12:49 عصر
با سلام.
دوستان من با adodb به بانکم که از نوع اکسس هست ، ارتباط برقرار میکنم.
اما هر بار که میخوام اطلاعات جدیدی به Rs که همون RecordSetم هست بدم باید اول اونو Close و سپس Open کنم و بهش اطلاعات جدید جدول رو بدم ، آیا راهی هست که Close نشه و Sourceش رو تغییر داد؟
ALIMAHDE54
سه شنبه 22 تیر 1389, 16:25 عصر
سلام
دوستان اگه میشه راهنمایی کنید منم هم در این مورد اشکال دارم
چطور میشه این مشکل رو حل کرد.
ENG_Torshani
سه شنبه 22 تیر 1389, 17:35 عصر
عزیز هیچ راهی نداره وقتی شما Open RS کنید تا اونجایی که اطلاع دارم اینجا برات یک کلاس میزارم با اون کار کنید راحت میشید.
'***********************************************
'***********************************************
'***********************************************
' GPC DB Engine
' Created By Mehdi Torshani
' Mohammad Mazinani
'***********************************************
'***********************************************
'***********************************************
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
M.T.P
سه شنبه 22 تیر 1389, 17:53 عصر
مرسی ، لطفا کدهاتون رو تو تگ Code بزارین تا خواناتر بشه
یعنی مطمئنید راهی نداره؟
لطفا راهنمایی کنید.
ENG_Torshani
سه شنبه 22 تیر 1389, 22:23 عصر
والا من بلد نیستم اگه راهیم باشه به Refrence ها هم یک سر زدم چیزی نبود
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.