آرايه ها در اكسس

[ali_bagheri34]

سلام
كسي ميتونه به ما بگه طريقه استفاده كردن در اكسس بخش كد نويسي به روش ADO چطور مي تونيم از آرايه ها استفاده كنيم

منظورم تعريف يك آرايه و طريفه استفاده اش است

اگه امكان داره يك مثال تو اكسس آورده بشه


از اساتيد محترم مي خوام كه مرا تو اين موضوع ياري نمايند

با تشكر

[mazoolagh]

2 روش برای تعریف array دارین:

DIM X
X=ARRAY("A","B","C")
DIM A
A=ARRAY(1,2,3)


DIM A(4), B(3,2), C(2 TO 4,3 TO 7, 5 TO 6)
DIM X()


اما چه ربطی به ADO داره؟!

[ali_bagheri34]

2 روش برای تعریف array دارین:

DIM X
X=ARRAY("A","B","C")
DIM A
A=ARRAY(1,2,3)


DIM A(4), B(3,2), C(2 TO 4,3 TO 7, 5 TO 6)
DIM X()


اما چه ربطی به ADO داره؟!



با سلام از شما متشكرم كه جواب داده ايد

من توي برنامه كه از ADO استفاده مي كنم يك فانكشن دارم كه مي ره يك جدول را چك مي كنه و يك ركورد را از جدول بر مي گردونه و به عبارتي
مقدار يك فيلد را به عنوان خروجي بر مي گردونه

تا اينجا مشكلي نيست
ولي گاهي اوقات پيش مي ياد كه فامكشن مربوطه دو فيلد را بطور جداگانه بخواد نشان بده تو يك فانكشن نمي تونم اين كار رو بكنه بخاطر همين فكرم توي آرايه ها رفت كه چطوري اين كار رو بكنم

اگر راه حلي تو اين ظمينه داره كمكم كنيد

با تشكر

براي اينكه راحتر اين موضوع را تو فانكشن ببينيد فانكشن را كپي مي كنم كه بهتر بتونيد كمكم كنيد



Function Function_1(FormString As String) As Boolean
On Error GoTo 1

Dim SQL As String
Dim RST As New ADODB.Recordset
SQL = " SELECT Code, FormName " _
& " FROM dbo.UserPermissions " _
& " WHERE (Code = 1) AND (FormName = N'Main')

RST.Open SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Function_1=rst!(Code)

Exit Function
1:

Resume Next

End Function


كه در مثال بالا فانكش فقط فيلد Code را بر مي گرداند
حال اگر بخواهيم هم Code و هم FormName را برگردانيم بايد چكار كنيم؟؟؟؟؟؟؟

[mazoolagh]

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


PUBLIC TYPE FORM_DATA
FORMNAME AS STRING
CODE AS LONG
END TYPE

...
...

PUBLIC FUNCTION FUNCTION1(FORMSTRING AS STRING) AS FORM_DATA
...
...
...
FUNCTION1.CODE=RST("CODE")
FUNCTION1.FORMNAME=RST("FORMNAME")
END FUNCTION


کار دیگه ای که با آرایه میتونین انجام بدین این هست که تابعی بنویسین که مقدار برگشتیش آرایه باشه.

FUNCTION F1(N AS INTEGER)
DIM A() AS INTEGER
REDIM A(N) AS INTEGER
DIM I AS INTEGER
FOR I=1 TO N
A(I)=N
NEXT
F1=A
END FUNCTION

....
....

DIM B
B=F1(4)