PDA

View Full Version : آمار گیری از DataBase



shahrooz_tk
یک شنبه 03 دی 1385, 11:51 صبح
من وقتی بر روی Button1 کلیک میکنم در texBox1 همیشه عدد 0 نمایش داده می شود در حالی که تعداد 0 نیست .



Imports System.Data.OleDb

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim command As New OleDbCommand
command.Connection = OleDbConnection1
command.CommandText = "select * from dbform where dbform.shoghl like 'کارمند'"

command.CommandType = CommandType.Text
OleDbDataAdapter1.SelectCommand = command
DataSet11.Clear()
OleDbDataAdapter1.Fill(DataSet11)
TextBox1.Text = DataSet11.Tables("dbform").Rows.Count.ToString
End Sub
End Class



توضیح : این تیکه برنامه برای آگاه یافتن از تعداد فیلدهای هم نام است مثلا در این برنامه مشخص می کند که در جدول dbform و در ستون shoghl چند تا بیکار ثبت شده است . البته در اینجا shoghl یک comboBox در یتا بیس است .
برای اینکه منظورم را بهتر برسونم فایل برنامه را زمینه کردم تا مرا در این مورد راهنمایی کنید .

متشکر

مهدی نان شکری
یک شنبه 03 دی 1385, 13:24 عصر
اولا باید دیتاستتون رو با نام dbform پر بکنید. یعنی نام جدول اون باید dbform باشه.
دوما قسمت like دستور Select شما فاقد % می باشد.

shahrooz_tk
یک شنبه 03 دی 1385, 15:07 عصر
میشه توضیح کاملتر بدهید . دیتاست که نام جدولش dbform است و % هم در کجای دستور select قرار گیرد ؟

shahrooz_tk
یک شنبه 03 دی 1385, 17:56 عصر
فوری : هیچ کی جواب دیگه ای بلد نیست ؟

vahidiran
یک شنبه 03 دی 1385, 18:59 عصر
دوست عزیز ساده ترین راهش اینه که به سرعت یک datagridview بگذاری رو فرمت الیته موقتی بعدش DataMebeber و Datasource رو ست کنی به DataSet و جدولت بعد هم کدی که در بالا نوشتی Run کن تا DataSet شما پر شه حالا که پر شد ببین چی تو DataGridView که داری نمایش داده شده است که تعداد رکورد ات رو بیشتر نشان می ده

مهدی نان شکری
سه شنبه 05 دی 1385, 17:45 عصر
سلام می بخشید که دیر جواب می دم. آخه دیگه فصل امتحانا نزدیکه و ...
کد های زیر رو در پروژتون به شکل زیر اصلاح کنید.


میشه توضیح کاملتر بدهید . دیتاست که نام جدولش dbform است
و % هم در کجای دستور select قرار گیرد ؟


command.CommandText = "select * from dbform where dbform.shoghl like 'کارمند%'"




OleDbDataAdapter1.Fill(DataSet11,"dbform")