shahrooz_tk
یک شنبه 03 دی 1385, 12: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 در یتا بیس است .
برای اینکه منظورم را بهتر برسونم فایل برنامه را زمینه کردم تا مرا در این مورد راهنمایی کنید .
متشکر
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 در یتا بیس است .
برای اینکه منظورم را بهتر برسونم فایل برنامه را زمینه کردم تا مرا در این مورد راهنمایی کنید .
متشکر