DATA GRIDE

[mohammad__d]

به نام خدا
من با adodc یک ارتباط با بانک access ایجاد کرده ام.
روی form یک کنترل text جهت جستجوی نام خانوادگی گذاشته ام .
موقعی که بعد از نوشتن نام خانوادگی در textمورد نظر روی commamnd جستجو کلیک میکنم می خواهم فرد مورد نظر پیدا شده ودر datagride که ساخته ام مانند brow در foxpro به نمایش در اید تا با کلیک انتخاب شود.
ضمنا می خواهم datagride به صورت sort نام خانوادگی را نشان دهد.

[کم حوصله]

DIM RS AS ADODB.RECORDSET
RS.OPEN SELECT * FROM T1 WHERE NAME='" & TEXT1.TEXT & "'", ......
SET DATAGRID1.DATASOURCE = RS


:)

[mohammad__d]

به نام خدا
کم حوصله عزیز
من نمی دانم adodb چیست من ارتباط را با adodc ساخته ام.

[vbprogramer]

عزیز جان فرقش چیه؟
درسته
بیا اینم یکی دیگه

Dim ado1 As New ADODB.Connection
Dim record1 As New ADODB.Recordset
ado1.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\Tabelname.mdb", "", ""
z = "select * from T1 where name ='" & text1.Text & "' "
record1.Open z, ado1, 1, 2

البته کم حوصله جان جسارت نشه ها :wink3:

[mohammad__d]

به نام خدا
vbprogrmeer عزیز
از خط 4 خطا گرفت اگر فایل من در مسیر f:\mamor\mamo.mdb باشد دقیقا چه کدی را باید بنویسم؟

[بابک زواری]

خوب آدرس فایل رو عوض کن اینکه از دستورات اولیه vb هست
اگر اینا رو بلد نباشی که فردا هزار تا مسئله برات درست میشه
vbprogramer برنامه رو طوری نوشته که بانکت کنار فایل اجرایی
هر جا کپی بشه درست کار کنه

[کم حوصله]

دوست عزیز دستور App.Path مسیر جاری فایل را نشان می دهد در مواردی که از بانک اکسس استفاده می شود با توجه به اینکه برنامه به صورت سینگل استفاده می شود دیتابیس ان را کنار فایل اجراییش در یک فولدر میریزند و این دستور باعث می شود تا مسیر جاری فایل را به دست آورده و در همان مسیر به جستجوی بانک با نام مورد نظر بگردد و حسن آن در این است که شما دیگر نباید حتما برنامه تان در یک جای بخصوص نصب شود و می تواند در هر درایو یا پوشه باشد چون خودش مسیر یابی می کند

ضمنا اینکه شما می فرمایید از adodc استفاده می کنید منظورتان اینه که شی adodc را به روی فرم می گذارید و از آن استفاده می کنید یا نه با کد نویسی به صورتی که دوستان عزیز لطف کردند و فرمودند آن را ایجاد می کنید و از آن استفاده می کنید ؟؟؟؟

[mohammad__d]

به نام خدا
همانطور که از مطلب کاربر کدنویس عزیز بر می اید من در vb تازه کارم ولی به قول کم حوصله پر حوصله مهم این است که چقدر بتوانیم به دیگران کمک کنیم.
من کارم را کامل توضیح می دهم انشا لله که فرجی حاصل شود:
من یک کنترل adodcرا با نام adodc1 روی فرم ساخته ام ودر تب general با استفاده از use connection string مسیر فایل access را معرفی کرده ام. f:\mamor1
\mamo.mdb با استفاده از تب recordsource گزینه adcmtable را انتخاب وtable را معرفی نموده ام (sheet1) حال کنترل datagrid1را روی فرم اضافه کرده خاصیت datasource انرا adodc1 داده ام و با رایت کلیک روی datagrid1وانتخاب retrive fields فیلدها را به adodc1 اضافه نموده ام.حال که فرم اجرا می شود رکوردها در datagrid1 دیده می شود و من میخواهم خواسته ام را که در سوال اول مطرح نمودم با کلیک روی کامند جستجو به عمل در آورم می خواهم بدانم چه کدی را در داخل کنترل کامند بنویسم.
---------------------------------------------
(( صدها فرشته بر ان دست بوسه زنند کز کار خلق یک گره بگشاید))
دوستدار شما محمد دارایی

[کم حوصله]

Private Sub Command1_Click()
Adodc1.Recordset.Close
Adodc1.CommandType = adCmdText
Adodc1.Recordset.Source = "select * from TblName where Filed='" & Text1.Text & "'"
Adodc1.Recordset.Open
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

ببین راضیت میکنه !! ::نوشتن::

[mohammad__d]

به نام خدا
کم حوصله عزیز
از خط اول برنامه شما این خطا را میگیرد:
RUNTIME ERROR '3219
OPERATION IS NOT ALLOWED IN THIS CONTEXT

ّهنگامی که خط اول را غیر فعال می کنم در خط سوم پیغام زیر مى اید :
runtime error '3705
operation is not allowed when the object is open

:flower:

[کم حوصله]

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

[algopars]

سلام دوست عزیز.
کدنوشته شما رو من تست کردم زمان اجرا خطا می دهد .روی خط زیر
set datagride1.datasource=rst