پارامتر و qyery در vb6 و اکسس

[isaac191]

درود
دوستان من با کد پایین تو اکسس یه کوئری درست کردم



SELECT * FROM accountancy WHERE date between date1 and date2

حالا می خوام تو وی بی 6 از این کوئری بصورت زیر استفاده کنم و مقادیر data1 و data2 از دو تا تکست باکس بگیرم


adodc1.recordsource="select type,sum(price) as pricesum from query1 group by type"


اما نمی دونم دو تا پارامتر رو چطوری مقداردهی کنم.
کسی هست که کمک کنه؟

[shaghaghi]

سلام


adodc1.recordsource="select type,sum(price) as pricesum from query1 " _
& Where Data1='" & Text1.Text & "' and Data2='" & Text2.Text & "' group by type"

اگر جنس فیلد های شما غیر رشته ای هستند علامت ' را از دستورات شرطی حذف کنید

[dadsara]

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


Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset(" SELECT T_Book.B_Count, Count(T_MemBook.Cunter) AS CountOfCunter FROM T_Book INNER JOIN T_MemBook ON T_Book.Id_Book = T_MemBook.Id_Book WHERE (((T_MemBook.DateOut) Is Null) And (T_Book.Id_Book = '" & [Forms]![form8]![Text15] & "')) GROUP BY T_Book.Id_Book, T_Book.B_Count ")

[isaac191]

مرسی ولی این error رو می ده
no value given for one or more required parameters

[shaghaghi]

مرسی ولی این error رو می ده
no value given for one or more required parameters
سلام
دوست عزیز کد های معرفی شده در کدامیک از پست ها Error می دهد؟ پست شماره 2 یا 3؟

[dadsara]

در صورت امکان لطفا نمونه برنامه ات را قرار بده تا بتوان بیشتر راهنمائی کرد