MOSTAFANAVVAB
دوشنبه 30 اردیبهشت 1387, 17:30 عصر
با سلام خدمت دوستان
با عرض پوزش ..من این پیغام خطا را قبلا هم گرفته بودم ولی به راحتی حلش کردم .در دستوری که در زیر نوشتم وقتی که شرط where را برمیدارم دستور adapter . fill(dataset,"نام جدول")درست کار می کنه واما به دلیل نیاز من به این دستور وقتی اون را تاتپ می کنم دستگا ارور میده
جرا؟
دستورمن جایی که پیغام خطا میگیرم مشخص + علت اون
جایی که خط قرمز و کلفت نوشتم پیغام خطا+جایی که نارنجی و کلفت علت
Imports System.Data.SqlClient
Imports System.Data.Sql
PublicClass Form1
Private sqlcon AsNew SqlClient.SqlConnection()
Private sqladapetr As SqlClient.SqlDataAdapter
Private sqlcommand As SqlClient.SqlCommandBuilder
Private datatable AsNew DataTable
Private z AsInteger = 0
Private d AsNew DataSet
Private sqladapetr1 As SqlClient.SqlDataAdapter
Private sqlcommand1 As SqlClient.SqlCommandBuilder
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
sqlcon.ConnectionString = ("Data Source=m;Initial Catalog=Mostafa;Integrated Security=True")
sqlcon.Open()
sqladapetr = New SqlClient.SqlDataAdapter("select * From ali_database", sqlcon)
sqlcommand = New SqlClient.SqlCommandBuilder(sqladapetr)
Me.asas()
sqladapetr.Fill(datatable)
sqladapetr1 = New SqlClient.SqlDataAdapter("select * from ali_database where a=" + "'" + TextBox1.Text + "'", sqlcon)
sqladapetr1.Fill(d, "ali_database")
DataGridView1.DataSource = d.Tables("ali_database")
EndSub
PrivateSub asas()
If datatable.Rows.Count = 0 Then
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ExitSub
EndIf
TextBox1.Text = datatable.Rows(z)("a").ToString()
TextBox2.Text = datatable.Rows(z)("b").ToString()
TextBox3.Text = datatable.Rows(z)("c").ToString()
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If z < (datatable.Rows.Count - 1) Then
z = z + 1
Me.asas()
EndIf
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If z > 0 Then
z = z - 1
Me.asas()
EndIf
EndSub
EndClass
با عرض پوزش ..من این پیغام خطا را قبلا هم گرفته بودم ولی به راحتی حلش کردم .در دستوری که در زیر نوشتم وقتی که شرط where را برمیدارم دستور adapter . fill(dataset,"نام جدول")درست کار می کنه واما به دلیل نیاز من به این دستور وقتی اون را تاتپ می کنم دستگا ارور میده
جرا؟
دستورمن جایی که پیغام خطا میگیرم مشخص + علت اون
جایی که خط قرمز و کلفت نوشتم پیغام خطا+جایی که نارنجی و کلفت علت
Imports System.Data.SqlClient
Imports System.Data.Sql
PublicClass Form1
Private sqlcon AsNew SqlClient.SqlConnection()
Private sqladapetr As SqlClient.SqlDataAdapter
Private sqlcommand As SqlClient.SqlCommandBuilder
Private datatable AsNew DataTable
Private z AsInteger = 0
Private d AsNew DataSet
Private sqladapetr1 As SqlClient.SqlDataAdapter
Private sqlcommand1 As SqlClient.SqlCommandBuilder
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
sqlcon.ConnectionString = ("Data Source=m;Initial Catalog=Mostafa;Integrated Security=True")
sqlcon.Open()
sqladapetr = New SqlClient.SqlDataAdapter("select * From ali_database", sqlcon)
sqlcommand = New SqlClient.SqlCommandBuilder(sqladapetr)
Me.asas()
sqladapetr.Fill(datatable)
sqladapetr1 = New SqlClient.SqlDataAdapter("select * from ali_database where a=" + "'" + TextBox1.Text + "'", sqlcon)
sqladapetr1.Fill(d, "ali_database")
DataGridView1.DataSource = d.Tables("ali_database")
EndSub
PrivateSub asas()
If datatable.Rows.Count = 0 Then
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ExitSub
EndIf
TextBox1.Text = datatable.Rows(z)("a").ToString()
TextBox2.Text = datatable.Rows(z)("b").ToString()
TextBox3.Text = datatable.Rows(z)("c").ToString()
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If z < (datatable.Rows.Count - 1) Then
z = z + 1
Me.asas()
EndIf
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If z > 0 Then
z = z - 1
Me.asas()
EndIf
EndSub
EndClass