View Full Version : شمارش سطر های یک جدول از دیتابیس اکسس
Messenger
دوشنبه 02 مهر 1386, 10:36 صبح
سلام،
میخوام سطرهای یک جدول دیتابیس اکسس رو بشمرم .
اینکار چطوری امکان پذیر هست ؟
همچنین اینکه میخوام عدد خروجی رو توی یه فایل ذخیره کنم.
atenaa
دوشنبه 02 مهر 1386, 12:53 عصر
dim cn as new adodb.connection
dim rst as new adodb.recordset
cn.open" connection string"
rst.open"select * from tablename ",cn,1,3
s= rst.recordcount
که در s تعداد رکوردها ریخته میشه
مبین رنجبر
دوشنبه 02 مهر 1386, 13:14 عصر
اگر از Adodc استفاده می کنی کدش اینه :
Text1.Text = Adodc1.Recordset.RecordCount
تعداد رکورد ها رو می ریزه توی تکست باکس
Messenger
یک شنبه 02 دی 1386, 10:02 صبح
ممکنه توضیح بدین ؟ متوجه نمیشم...
اوبالیت به بو
یک شنبه 02 دی 1386, 21:45 عصر
مگه تو این تایپیک جواب نگرفتین؟؟ مال خودتونه!!!!!
http://barnamenevis.org/forum/showthread.php?t=88546
Messenger
دوشنبه 03 دی 1386, 10:43 صبح
خیر متاسفانه . . .
اوبالیت به بو
دوشنبه 03 دی 1386, 17:02 عصر
خوب عزیزه من نیازی به زدن تایپیک نداره.
حالا بگزریم...................................
شما اگه می خوای هر 5 دقیقه اطلاعاتت Refresh بشه یا اگر می خوای ببینی تو این 5 دقیقه چند تا سطر داری یه تایمر بزار و توش یه شمارنده تعیین کن. اسمش رو بزار Count و بازه تایمرت رو (Interval) برابر 1000 قرار بده و تویه تایمر بنویس:
Count=Count+1
5 دقیقه برابر 50*60 که میشه 3000 ثانیه. خوب هر وقت Count برابر شد به 3000 ثانیه کدی رو که من تویه اون تیپیک یا کد آقای Lsass_CRC32 نوشتن رو بنویس و دوباره Count رو برابر صفر قرار بده و در غیر اینصورت به Count یه دونه اضافه بشه.
ali_habibi1384
دوشنبه 03 دی 1386, 22:59 عصر
مطلبی رو که آقای Lsass.crc جواب دادند کامل و گویا بود . تعداد رکوردهای داخل یه adodc رو داخل یه تکست باکس می ریزه مگه شما همینو نمی خواستین؟
اوبالیت به بو
سه شنبه 04 دی 1386, 21:31 عصر
مطلبی رو که آقای Lsass.crc جواب دادند کامل و گویا بود . تعداد رکوردهای داخل یه adodc رو داخل یه تکست باکس می ریزه مگه شما همینو نمی خواستین؟
ایشون سوالشون رو تویه تایپیک زیر بیان کرده بودن ولی جواب نگرفتن تایپیک جدید ساختن.
http://barnamenevis.org/forum/showthread.php?t=88546
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.