روش های باز کردن بانک های اطلاعاتی با ADO 2.7

[shsoft]

با سلام خدمت دوستان عزیزم

می خواستم بدونم که برای استفاده از ADO 2.7 یا پایین تر کدام روش برای باز کردن
بانک هی اطلاعاتی بهتر است

1- از طریق ADO Control و ویزارد
2- از طریق کد نویسی و تعریف متغیر های Connection و ...

با تشکر

[احد]

سلام دو ست گرامی .

Ado از مجموعه Object ها تشکیل شده است . به هر دو طریق گفته شده شما میشه یک اتصال به بانک اطلاعاتی داشته باشیم و اطلاعات رو ذخیره و بازیابی کنیم . اما تفاوت در امکانات روش برنامه نویسی است که به شما اجازه میدهد در زمان اجرا یک یا چند Table و همچنین Field تعریف کنید و مدیریت سطح بالایی نسبت به بانک اطلاعاتی داشته باشید . و کارهایی دیگری که از طریق ویزارد نمیشه به آنها دسترسی داشت . من خودم شخصا از روش برنامه نویسی آن استفاده میکنم .

[shsoft]

اگه می شه در مورد جمله ی
"در زمان اجرا یک یا چند Table و همچنین Field تعریف کنید و مدیریت سطح بالایی نسبت به بانک اطلاعاتی داشته باشید "
کمی توضیح بدهید.
فکر کنم که منظور شما استفاده هم زمان از چند جدول در یک مجموعه است.
که اگه این باشه با ADO Control هم مشکلی نداره.


ببخشید- شما که با کد نویسی کار کردین می شه از طریق کد نویسی دقیقا یک کنترل ADO رو
شبیه سازی کرد طوری که مثلا
... VerADO.RecordSet
منظور من اینکه می خوام Connection و Command مربوط به یک اتصال در یک مجموعه باشند
مه در متغیر های پراکنده. :oops:

[shsoft]

آقا چی شد کسی جواب نداد
:cry: :?:

[h_rezaei]

ADODC تا اونجا که من میدونم اصلان امکانات ADO2.1 به بالا رو نداره و برای هر کانکشن فقط یه رکوردست داریم و بسیاری ار ابجکت ها و متذها و property ها در ADODC نیستن یا اگه هستن تو ADODB بهینه تر شدن (می تونی به SDK مربوط به هرکدوم مراجعه کنی )
ولی برای اعمالی از قبیل binding خوب ADO data control ساده تر و خوش دست تره گرچه با ADODB هم میشه bounded رفتار کرد (کلاس هاس data-bound تعریف کنیم ) ولی خوب ADO DC خیلی هلو ه .

[shsoft]

با سلام مجدد
من روش باز کردن بانک رو از طریق کد انتخاب کردم و تکه برنامه هایی نوشتم
می خواستم بدونم چطور میشه یک RecordSet رو به یک Grid متصل کرد.

[h_rezaei]

Set DataGrid1.DataSource = rs

[shsoft]

با سلام
وقتی من دستور زیر رو اجرا می کنم
Set DataGrid1.DataSource = rs

پیغام خطای زیر ظاهر می شود
The rowSet is not bookmarkable

لطفا راهنمایی کنید :oops:

[Abbas Arizi]

قبل از باز کردن رکورست CursorLocation اون رو به adUseClient تغییر بده.

[shsoft]

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

[Abbas Arizi]

DataGrid1.Columns(0).NumberFormat = "#,####,0"

[shsoft]

با سلام خدمت استاد عزیزم آقای Abbas Arizi
از این همه سوالات خسته کننده شرمنده ام قول می دم که آخریش باشه

می خواستم بدونم برای نوع Boolean چه رشته ای باید در NumberFormat قرار بدیم
:oops:

[Abbas Arizi]

اگه منظورت رو درست فهمیده باشم جواب سوالت اینه:
از منوی Project->Refrences کتابخانه Microsft Data Formatting Object Library رو به رفرنسهای پروژه اضافه کن و این کد رو بنویس:

    Dim fmtBooleanData As StdDataFormat

    Set fmtBooleanData = New StdDataFormat

    fmtBooleanData.Type = fmtBoolean

    fmtBooleanData.TrueValue = "True"

    fmtBooleanData.FalseValue = "False"

    fmtBooleanData.NullValue = ""

    Set DataGrid1.Columns(0).DataFormat = fmtBooleanData

امیدوارم به جوابت رسیده باشی.
در ضمن شما هر چه قدر سوال بپرسی ما اگه جوابش رو بدونیم خیلی خوشحال میشیم به دوستانی مثل شما کمک کنیم.

[mhanifnjad]

از کد زیر استفاده کن: 8)

Global cn As ADODB.Connection
Dim ConnectSTR As String
'Sub SetConnectSTR()
ConnectSTR = "Provider=SQLOLEDB.1;" _
& "Integrated Security=SSPI;" _
& "Persist Security Info=False;" _
& "Initial Catalog=Anbar;" _
& "Data Source=HANIF"
End Sub
Public Sub ConnectSub()
On Error GoTo ErrorCon
Set cn = New ADODB.Connection
SetConnectSTR
cn.ConnectionString = ConnectSTR
cn.ConnectionTimeout = 10
cn.CommandTimeout = 15
cn.Open
Exit Sub
ErrorCon:
MsgBox Err.Description
End Sub
Public Sub DisConnectSub()
Set cn = Nothing
End Sub

آدرس من: :flower:
Mahdi_Hanifnjad@yahoo.com