پایگاه داده در ویژوال بیسیک - شروع تا پایان

[اوبالیت به بو]

روش سوم- استفاده از ADODB.parameter:
اين روش درواقع يه جورهايي به دو روش قبلي مربوط ميشه يعني ADODB.Command اما به
طور غير مستقيم. يكم اين روش نياز به دقت داره وگرنه سخت نيست. اول بايد ببينيم كه دستور SQL مورد نظر ما چند تا Parameters نياز داره و به همون تعداد متغير از نوع ADODB.Parameter تعريف مي كنيم. به عنوان مثال من مي خوام يك دستور Update رو بنويسم و اين دستور من حداقل دو تا parameters نياز داره:

Public Parameters1 As ADODB.Parameter

Public Parameters2 As ADODB.Parameter

حالا دستور مورد نظر رو مي نويسيم. مثلاً:

Cmd.CommandType = adCmdText

Cmd.CommandText = "Update tblTest SET Field1=@Field1 WHERE Field2=@Field2"

حالا بايد parameters رو به متغيرمون Set كنيم:

Set Parameters1 = Cmd.CreateParameter("@Field1", adInteger, adParamInput)

Set Parameters2 = Cmd.CreateParameter("@Field2", adInteger, adParamInput)

حالا دوباره بر مي گرديم سراغ ADODB.Command و از خاصيت Parameters اون دوباره استفاده مي كنيم با اين تفوت كه از متد Append اون استفاده مي كنيم:

Cmd.Parameters.Append Parameters1

Cmd.Parameters.Append Parameters2

مقداردهي Parameters هاي ساخته شده:
اما حالا نوبت به مقدار دهي Parameters ميشه. از تابع Array كه همه باهاش آشنايي دارن استفاده كنيم.

Set Rst = Cmd.Execute(, Array(Value1, Value2))

به طور مستقيم اينجا مقادير رو وارد Cmd.Execute مي كنيم. درواقع شكل كلي دستور به اين صورت هستش:

Cmd.Execute (RecordAffected,Parameters,Option As Long=-1)

كه هر سه آرگومان اختياري هستن.

Cmd.CommandType = adCmdText

Cmd.CommandText = "Update tblTest SET Field1=@Field1 WHERE Field2=@Field2"





Set Parameters1 = Cmd.CreateParameter("@Age", adInteger, adParamInput)

Cmd.Parameters.Append Parameters1

Set Parameters2 = Cmd.CreateParameter("@Code", adInteger, adParamInput)

Cmd.Parameters.Append Parameters2

.

.

.

Set Rst = Cmd.Execute(, Array(Value1, Value2))

[اوبالیت به بو]

كلمه كليدي New اين عمل رو انجام مي ده. اين كلمه كليدي كه واقعاً خيلي كليدي هستش يك از متغير در حافظه يك شي مي سازه كه در ابتدا همه مقاديرش با Null مقداردهي ميشه. اگر ما ليست متغيرهامون اينها باشن:

    Public Conn As ADODB.Connection

    Public Cmd As ADODB.Command

    Public Rst As ADODB.Recordset

    public Param as ADODB.Parameter 

و براي ايجاد شي نمونه اونها رو Set مي كتيم:

        Set Conn = New ADODB.Connection

        Set Cmd = New ADODB.Command

        Set Rst = New ADODB.Recordset

        Set Param = New ADODB.Parameter