مفهوم صحیح اتصال به بانک اطلاعاتی sql server و بستن رکوردستها

[mohammadsaleh]

سلام
چند وقتی است با استفاده از اطلاعات این تالار و اینترنت تلاش می کنم بتوانم با استفاده از دیتابیس های قدرتمند sql server کار کنم. بدیهی است برای این ارتباط از adodb بهره گرفته میشود
بافرض فراهم شدن همه مقدمات حالا قرار است از طریق دستورات با جداول دیتابیس ارتباط برقرار کرده و به خوانش، ویرایش، حذف و افزودن بپردازیم
آنچه در همه جا گفته میشود این است که برای کار روی یک جدول اقدامات زیر انجام شود
کنکشن
بازکردن رکوردست
انجام عملیات
بستن رکوردست
بستن کنکشن

سئوالات اساسی که برای من پیش آمده این است که
1- آیا این باز و بستن کنکشن یکبار کفایت می کند یا خیر. منظورم این است که در اولین فرم برنامه اتصال به دیتابیس برقرار و در موقع خروج از برنامه این اتصال بسته شود
2- در خصوص رکوردستها چطور؟ آیا لازم است برای هر عملیات این کار انجام شود. و آیا این بازو بستن متوالی جداول در برنامه های چندکاربره ضروری است.
3- در خصوص recordcount برخلاف dao که شمارش دقیقی از اطلاعات درخواستی می دهد در ado کمی پیچیده بوده وحداقل برای من حل نشده باقی مانده است. و دستورات موجود به خوبی عمل نمی کنند.

[mazoolagh]

1- میتونین یک کانکشن گلوبال برای کل برنامه تعریف کنین، بهتر هم هست.
باید یک روال پابلیک برای بازکردن این کانکشن بنویسین که فقط در صورت لزوم اون رو باز کنه - قبل از باز کردن هر رکوردست از این تابع استفاده میکنین.

یک چیزی شبیه زیر:
public const cons as string="..."
public conn as adodb.connection

public sub open_conn()
on error goto error_handler
if conn is nothing then
set conn=new adodb.connection
end if
if conn.connectionstring="" then
conn.connectionstring=cons
end if
if conn.state=adstateclosed then
conn.open
end if
exit sub
error_handler:
msgbox "error : " & err.number & vbcrlf & err.description , vbcritical
end sub

[mazoolagh]

2- این پرسش خیلی کلی هست!
رکوردست های readonly رو که معمولا در کمبو ها و لیست ها استفاده میشه میتونین گلوبال تعریف کنین
اگر منظور این هست که کل یک جدول رو در یک رکوردست updateable گلوبال بریزین، فکر نکنم کار خوبی باشه؛
در هر فرم یا روتین، بسته به نیاز فقط رکوردهای لازم رو بریزین تو رکوردست و کارتون که تموم شد رکوردست رو ببندین.

برای بازکردن رکوردست هم دو تابع پابلیک بنویسین، یکی برای readonly و یکی هم برای updateable
که sql select رو بعنوان پارامتر بگیره و adodb.recordset برگردونه.
از connection پابلیک پست قبلی یعنوان کانکشن رکوردست استفاده کنین.

[mazoolagh]

public function getrs(sql as string) as adodb.recordset
on error goto error_handler
set getrs=new adodb.recordset
open_conn
if conn.state=adstateopen then
with getrs
.activeconnection=conn
.source=sql
.locktype=adlockoptimistic
.cursortype=adopendynamic
.cursorlocation=aduseclient
.open
end with
else
msgbox "conn closed"
end if
exit function
error_handler:
msgbox "error : " & err.number & vbcrlf & err.description, vbcritical
end function

[mazoolagh]

public function getrs_readonly(sql as string) as adodb.recordset
on error goto error_handler
set getrs_readonly=new adodb.recordset
open_conn
if conn.state=adstateopen then
with getrs_readonly
.activeconnection=conn
.source=sql
.cursortype=adopenforwardonly
.locktype=adlockreadonly
.cursorlocation=aduseclient
.open
.activeconnection=nothing
end with
else
msgbox "conn closed"
end if
exit function
error_handler:
msgbox "error : " & err.number & vbcrlf & err.description, vbcritical
end function

[mazoolagh]

3- از چه cursortype , cursorlocation استفاده کردین؟

[mohammadsaleh]

3- از چه cursortype , cursorlocation استفاده کردین؟

سلام
باتشکر از پاسختون. بله همین کار را کرده ام. منتهی منظورم این است که بعد از بازکردن رکوردست و انجام عملیات و بستن رکوردست لازم است کنکشن هم بسته شود یا خیر. یعنی هر کاربر یکبار به دیتابیس وصل شود و موقع بستن برنامه هم کلوز شود
البته چون هدف واکشی اطلاعات است قطعا بخشی از رکوردهای جدول- یک یا چند رکورد- با دستورات SELECT انتخاب می شوند

در مورد سئوالی که فرمودید به شکل زیر استفاده می کنم


With Rst4
'.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
' .Source = Sql
.Open SQL4, cn, adCmdText
End With

بدیهی است دیتابیس شامل جداول گوناگون است و ممکن است در یک عملیات چندین جدول برای استخراج اطلاعات خاص برای نمایش لازم به گشودن باشند و نهایتا برروی چند جدول هم همزمان اطلاعات خاصی ویرایش و یا افزوده شود

[eb_1345]

End With[/CODE]
بدیهی است دیتابیس شامل جداول گوناگون است و ممکن است در یک عملیات چندین جدول برای استخراج اطلاعات خاص برای نمایش لازم به گشودن باشند و نهایتا برروی چند جدول هم همزمان اطلاعات خاصی ویرایش و یا افزوده شود
سلام
با اجازه جناب mazoolagh (https://barnamenevis.org/member.php?9893-mazoolagh)
فقط در زمان خروج از برنامه دستور بستن کانکشن را واردکن!
موفق باشی

[mazoolagh]

همین که دوستمون فرمودن درست هست.
شما حتی نیازی نیست که در ابتدای برنامه کانکش رو باز کنین (اگر از کدی که گذاشتم استفاده کردین)،
موقع بستن برنامه اگر کانکشن رو ببندین مطمئنتر هست ولی نبستین هم مشکل خاصی نیست.

مشکل وقتی هست که ابجکت های مختلف بسازین و اون ها رو رها کنین.

[mazoolagh]

مشکل با recordcount رو توضیح ندادین که سرنوشتش چی شد؟

[mohammadsaleh]

با استفاده از کد آزمایشی زیر تونستم شماش درست رو انجام بدم

Private Sub cmdRecordCount_Click()
On Error GoTo Catch


Dim strSql As String
Dim objRst1 As ADODB.Recordset
Dim objRst2 As ADODB.Recordset
Dim objRst3 As ADODB.Recordset
Dim objRst4 As ADODB.Recordset




Call ConnectToServer1
'' Get all categories from local Northwind database.
strSql = "SELECT * FROM dbo.tblSepordeh WHERE NumHesab=47100 "

'' In code below, because we didn't specify cursor location, it's server-side by default.

'' Returns -1
Set objRst1 = New ADODB.Recordset
objRst1.Open strSql, cn, adOpenForwardOnly


'' Returns -1
Set objRst2 = New ADODB.Recordset
objRst2.Open strSql, cn, adOpenDynamic


'' Returns valid count
Set objRst3 = New ADODB.Recordset
objRst3.Open strSql, cn, adOpenKeyset


'' Returns valid count
Set objRst4 = New ADODB.Recordset
objRst4.Open strSql, cn, adOpenStatic

'' Display the number of records in Immediate window.
MsgBox "objRst1 (adOpenForwardOnly) record count: " & objRst1.RecordCount
MsgBox "objRst2 (adOpenDynamic) record count: " & objRst2.RecordCount
MsgBox "objRst3 (adOpenKeyset) record count: " & objRst3.RecordCount
MsgBox "objRst4 (adOpenStatic) record count: " & objRst4.RecordCount


'' Clean up
objRst1.Close
objRst2.Close
objRst3.Close
objRst4.Close
Set objRst1 = Nothing
Set objRst2 = Nothing
Set objRst3 = Nothing
Set objRst4 = Nothing

Exit Sub

Catch:
MsgBox "cmdRecordCount_Click()" & vbCrLf & vbCrLf _
& "Error#: " & err.number & vbCrLf & vbCrLf & err.Description
End Sub




البته ظاهرا باید از adOpenKeyset یا adOpenStatic استفاده کنم تا شمارش دقیقی از خواسته من نشان بدهد
راستی این کد ها به نست کد شما خلاصه و در یک خط آمده و برخی خصوصیات حذف شده است.
ممنون میشم در این مورد هم راهنمایی بفرمایید مثل گذشته که راهنمایی خوبی بوده اید استاد.

[mazoolagh]

البته ظاهرا باید از adOpenKeyset یا adOpenStatic استفاده کنم تا شمارش دقیقی از خواسته من نشان بدهد


در اصل cursorlocation عامل مهمتری هست:
اگر سمت client استفاده کنین مشکلی با recordcount نباید داشته باشین،
ولی اگر سمت server باشه اونوقت باید cursortype یکی از دو حالتی باشه که نوشتین.

بطور کلی بهتره cursorlocation رو سمت client بگذارین.
در ضمن به یاد داشته باشین که اگر پارامتری مقدارش با بقیه پارامترها ناسازگار باشه پیغام خطایی نمیگیرین، خود provider مقدار دیگه ای جایگزین میکنه.



راستی این کد ها به نست کد شما خلاصه و در یک خط آمده و برخی خصوصیات حذف شده است.

1- خوانایی بهتر بخصوص برای اینجا که یادگیری هم مهمه
2- وقتی از with استفاده میکنین دیگه لازم نیست یک object تعریف و بعد حذفش کنین
3- اون خصوصیات بعضیاش بهتره مقداردهی بشن بخصوص cursorlocation که پیشفرض serverside هست و اثرش رو توضیح دادم