کمک در اصلاح کد

[teymoorei]

سلام دوستای گل یکی به من بگه این کد چه مشکلی داره ؟
عجله دارم

Connection.Open()
da = New SqlDataAdapter("select * from EtelaatedDoreh3", Connection)
ds = New DataSet()
da.Fill(ds, "EtelaatedDoreh3")
Dim dr As DataRow
dr = ds.Tables("EtelaatedDoreh3").NewRow()

dr("coddor") = TextBox1.Text 'dr[1]=""
dr("timst") = TextBox2.Text 'dr[2]=""
dr("timed") = TextBox3.Text 'dr[1]=""
dr("timdte") = MaskedTextBox1.Text 'dr[2]=""
dr("eddor") = MaskedTextBox2.Text 'dr[1]=""
dr("sex") = CmbSex.Text 'dr[2]=""
dr("shift") = cmbShift.Text 'dr[1]=""
dr("staname") = TextBox4.Text 'dr[2]=""
dr("timtor") = TextBox7.Text 'dr[1]=""
dr("timaml") = TextBox8.Text 'dr[2]=""
dr("codstaamz") = TextBox9.Text 'dr[1]=""
dr("timtot") = TextBox10.Text 'dr[2]=""
dr("sly") = Masked1.Text 'dr[1]=""
dr("tchrname") = TextBox5.Text 'dr[2]=""
dr("tchrfamily") = TextBox11.Text 'dr[1]=""
dr("numcrdtche") = TextBox13.Text 'dr[2]=""
TextBox4.Visible = True
TextBox5.Visible = True
fill()
If TextBox5.Text <> "" And TextBox2.Text <> "" Then
TextBox10.Text = TextBox7.Text.ToString + TextBox8.ToString
End If
ds.Tables("EtelaatedDoreh3").Rows.Add(dr) 'ds.Tables["table1"].Rows.Add(dr)
Dim cb As New SqlCommandBuilder(da)
da = cb.DataAdapter
da.Update(ds, "EtelaatedDoreh3")
ds.Clear()
da.Fill(ds, "EtelaatedDoreh3")
DataGridView1.DataSource = ds.Tables("EtelaatedDoreh3")
Command.ExecuteNonQuery()
'Connection.Close()

[mohsen12345]

سلام دوستای گل یکی به من بگه این کد چه مشکلی داره ؟
عجله دارم
چقدر عجله داری
اول بگو کجاش به مشکل می خوری
بعد

[teymoorei]

اینو میگه :
ExecuteNonQuery requires an open and available Connection. The connection's current state is closed.
در حالی که همش درسته

[m.soleimani]

دوست عزیز از تگ کد استفاده کن تا بشه راحت خوندش و نظر داد موفق باشید./

[مرتضی تقدمی]

سلام

وقتی که میگه current state is closed یعنی کانکشن مربوط به بانکت بستست. اول بازش کن و بعد ازش استفاده کن.

موفق باشید

[teymoorei]

دوست گلم اگه دقت کنید من همون خط اول باز کردم کانکشن را .

[mohsencom]

کدها رو داخل تگ vb قرار بده،معلوم بشه چیکار کردی:متفکر:

[shadi khanum]

به دستور یکی مونده به آخر command.ExecuteNonQuery ایراد گرفته . احتمالا command.connection رو مقدار دهی نکردی. یعنی connection اون command خالی و واسه همین نمیتونه دستور رو اجرا کنه

[teymoorei]

Connection.Open()
da = New SqlDataAdapter("select * from EtelaatedDoreh3", Connection)
ds = New DataSet()
da.Fill(ds, "EtelaatedDoreh3")
Dim dr As DataRow
dr = ds.Tables("EtelaatedDoreh3").NewRow()

dr("coddor") = TextBox1.Text 'dr[1]=""
dr("timst") = TextBox2.Text 'dr[2]=""
dr("timed") = TextBox3.Text 'dr[1]=""
dr("timdte") = MaskedTextBox1.Text 'dr[2]=""
dr("eddor") = MaskedTextBox2.Text 'dr[1]=""
dr("sex") = CmbSex.Text 'dr[2]=""
dr("shift") = cmbShift.Text 'dr[1]=""
dr("staname") = TextBox4.Text 'dr[2]=""
dr("timtor") = TextBox7.Text 'dr[1]=""
dr("timaml") = TextBox8.Text 'dr[2]=""
dr("codstaamz") = TextBox9.Text 'dr[1]=""
dr("timtot") = TextBox10.Text 'dr[2]=""
dr("sly") = Masked1.Text 'dr[1]=""
dr("tchrname") = TextBox5.Text 'dr[2]=""
dr("tchrfamily") = TextBox11.Text 'dr[1]=""
dr("numcrdtche") = TextBox13.Text 'dr[2]=""
TextBox4.Visible = True
TextBox5.Visible = True
fill()
If TextBox5.Text <> "" And TextBox2.Text <> "" Then
TextBox10.Text = TextBox7.Text.ToString + TextBox8.ToString
End If
ds.Tables("EtelaatedDoreh3").Rows.Add(dr) 'ds.Tables["table1"].Rows.Add(dr)
Dim cb As New SqlCommandBuilder(da)
da = cb.DataAdapter
da.Update(ds, "EtelaatedDoreh3")
ds.Clear()
da.Fill(ds, "EtelaatedDoreh3")
DataGridView1.DataSource = ds.Tables("EtelaatedDoreh3")
Command.ExecuteNonQuery()
'Connection.Close()

[mohsencom]

قبل از Connection.Open() بنویس :

If Connection.State = ConnectionState.Open Then
Connection.Close()
End If

اون خط آخر هم Connection.Close() رو از حالت کامنت در بیار...اون کوتیشن رو بردار
امیدوارم جواب بده
موفق باشی

[teymoorei]

این کارم کردم اما بازم error داره

[shadi khanum]

اگه بگی رو چه خطی و کجای کد error میده بهتر میشه کمک کرد

[teymoorei]

اینم Error اش :
68698

[teymoorei]

سلام دوستان مشکلم توی این تاپیک حل شد ، فقط اگه یکی پیداشه و مشکل من رو توی این تاپیک (http://barnamenevis.org/showthread.php?281717-%D9%BE%D8%B4%D8%AA%DB%8C%D8%A8%D8%A7%D9%86-%DA%AF%DB%8C%D8%B1%DB%8C/page3) هم حل کنه دیگه ما رفع زحمت می کنیم .
باتشکر

[محسن شامحمدی]

شما شی command رو پظور تعریف کردی؟
اون خطش رو هم بذاری احتمالا مشکلت پیدا می شه