ورود

View Full Version : تبدیل query اکسس به query قابل استفاده در vb



unforgiven
چهارشنبه 11 تیر 1393, 13:31 عصر
سلام به همگی
من در جدولم ستونهای زیر رو دارم :

docno ---- date ---- describe --- credit --- debtor

من می خوام جمع ستون واریز و برداشت به عنوان ستون باقیمانده هر ردیف نشون داده بشه
کوئری زیر در اکسس به خوبی کار میکنه . من در برنامم از ویژوال بیسک و از اکسس برای بانک اطلاعاتی استفاده می کنم . میخوام بتونم از این کوئری در برنامهم استفاده کنم ولی چون ویژوال بیسیک تابع Dsum نداره نمیشه از این کد استفاده کنم . البته من با جایگزین کردن Sum با Dsum کد اسکیو ال رو نوشتم ولی باز ایراد میگیره .
کد SQL در اکسس :


SELECT '' AS DocNo, '' AS Date_, 'مانده از قبل' AS describe_, " " AS Credit_, " " AS Debtor_, DSum("credit-debtor","acc","date<'" & nz([forms]![form1].[txtmindate],"0") & "'") AS Balance_
from acc
UNION SELECT DocNo, date,describe,credit,debtor, DSum("credit-deptor","acc","Docno<=" & [docNo]) AS Balance_
FROM acc
WHERE (((acc.date) Between nz([forms]![form1].[txtmindate],0) And nz([forms]![form1].[txtmaxdate],9) ))
ORDER BY DocNO;



دوستانی که میتونن لطفا این کد رو به sql پیاده سازی کنند که بشه در ویژوال بیسیک ازش استفاده کرد .
پیشاپیش متشکرم

mohammadsaleh
پنج شنبه 12 تیر 1393, 17:13 عصر
سلام .جدولت رو با كاري كه خودت كردي رو ضميمه كن