Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > ช่วยผมด้วยมีปัญหา .ExecuteNonQuery()... ExecuteNonQuery requires an open and available Connection. The connection's current state is closed

[.NET] ช่วยผมด้วยมีปัญหา .ExecuteNonQuery()... ExecuteNonQuery requires an open and available Connection. The connection's current state is closed

เริ่มหัวข้อใหม่

big

โพสกระทู้ ( 25 )
บทความ ( 0 )

ช่วยผมด้วยมีปัญหา .ExecuteNonQuery() มันขึ้นว่า ExecuteNonQuery requires an open and available Connection. The connection's current state is closed
รันได้ครับป้อนข้อมูลได้ตอนกด เพิ่ม ไม่ได้
นี่โค๊ดของผมครับ

Code (VB.NET)

Imports System.Data.OleDb
Imports System.Data
Public Class Form1
    Public conn As New OleDbConnection
    Private Sub FormLoad() Handles MyBase.Load
        connectdata()
    End Sub
    Private Sub connectdata() Handles MyBase.Load
        Dim conn As OleDbConnection
        conn = New OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:/data11.mdb;Persist Security Info=False;")
        conn.Open()
    End Sub
    Public Function ExecuteSQL(ByVal prmSQL As String) As Boolean
        connectdata()
        Dim Addcom As New OleDbCommand
        With Addcom
            .CommandType = CommandType.Text
            .CommandText = prmSQL
            .Connection = conn
            .ExecuteNonQuery()          มันมาติดตรงนี้ครับ
        End With
        ExecuteSQL = True
 
    End Function
    Private Sub From1() Handles Button1.Click
        ExecuteSQL("insert into student(Fname,Lname)values(' " & TextBox1.Text & " ' ,' " & TextBox2.Text & " ' )")
        'ExecuteSQL("INSERT INTO Student(Fname, Lname)VALUES ('" & txtFname.Text & "','" & txtLname.Text & "')")
    End Sub
End Class

Tag : - - - -

Date : 2010-07-16 17:53:18

By : kinnon

View : 8684

Reply : 8

No. 1

TC Admin

โพสกระทู้ ( 74,059 )
บทความ ( 838 )

Quote:
Dim conn As OleDbConnection

คุณไป Dim มันซ้ำใน Sub connectdata() น่ะครับ เลยมันสโคบ Connection อยู่แค่ใน Sub connectdata()

Date : 2010-07-16 18:14:32

By : webmaster

No. 2

big

โพสกระทู้ ( 25 )
บทความ ( 0 )

ได้ครับขอบคุณครับ

Date : 2010-07-16 18:19:06

By : kinnon

No. 3

Guest

Code (VB.NET)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        cm = New OleDbCommand("insert into machine values( '" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text &             "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & ComboBox1.Text & "')", cn)
        cm.ExecuteNonQuery()
        displaydata()
        cleardata()
        autocode()
End Sub

ช่วยหน่อยครับนี้คือโคดของผมใน vb.net พอผมรันมันมีโคดนี้ขึ้นมา

Error

ExecuteNonQuery requires an open and available Connection. The connection's current state is closed.

เป็นเพราะอะไรแก้อย่างไรครับ ช่วยหน่อยนะครับ

Date : 2012-01-07 15:49:05

By : สมพงศ์

No. 4

Guest

ขอบคุนก้าบ

Date : 2013-07-25 09:47:37

By : rrung

No. 5

0100 0010

โพสกระทู้ ( 697 )
บทความ ( 0 )

สองแง่สองง่ามครับ ล่อแหลมมาก

ต้องสั่งเปิดการเชื่อมต่อโดย conn.Open() ก่อน .ExecuteNonQuery() นะครับ

ที่สำคัญ : เปิด .Open() ให้ถูกตัว ถูกอินสแตนด้วยนะครับ

Date : 2013-07-25 11:28:29

By : 01000010

No. 6

Guest

Imports System.Data
Imports System.Data.SqlClient
Public Class Form2
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
 
    End Sub
 
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label2.Text = Today
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sQL As String
        sQL = "insert into Add(Date,Number,Namebook,Peice)"
        sQL = sQL & "VALUES('"
        sQL = sQL & TextBox1.Text & "','"
        sQL = sQL & TextBox2.Text & "','"
        sQL = sQL & TextBox3.Text & "')"
        Dim cmd As SqlCommand
        cmd = New SqlCommand
        With cmd
            .CommandType = CommandType.Text
            .CommandText = sQL
            .Connection = conn()
            .ExecuteNonQuery()   (มันขึ้น eroor ตรงนี้คับช่วยทีนะคับ)
        End With
        MsgBox("เพิ่มข้อมูลเรียบร้อยแล้ว")
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox2.Clear()
    End Sub
 
End Class

Date : 2014-03-28 10:48:05

By : TaTak

No. 7

Guest

กรุณาที่ครับผมเพิ่มเรียนยังไม่ค่อยเข้าใจ
นี้โค้ดผม

Code (VB.NET)

Private Sub ButtonSave_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonSave.Click
 
        If Not (IsNumeric(TextNumFloors.Text) OrElse Is Integer(TextNumFloors.Text)) Then
 
            MessageBox.Show("จำนวนชั้นต้องเป็นเลขจำนวนเต็ม")
            Exit Sub
 
        ElseIf Not (IsNumeric(TextRoomsPerFloor.Text) OrElse IsInteger(TextRoomsPerFloor.Text)) Then
 
            MessageBox.Show("จำนวนห้องในแต่ละชั้นต้องเป็นเลขจำนวนเต็ม")
            Exit Sub
 
        ElseIf Not IsNumeric(TextNumFloors.Text) Then
 
            MessageBox.Show("ค่าเช่าต้องเป็นตัวเลข")
            Exit Sub
        End If
 
        If hasRows Then
            sql = "UPDATA Ref SET " & "NumFloors = @floors, " & "RoomsPerFloor = @rooms, " & "Rental = @rent"
 
        Else
            sql = "INSERT INTO Ref(NumFloors,RoomsPerFloors,Rental) " & "VALUES(@floors, @rooms, @rent)"
        End If
 
        command = New SqlCommand(sql, connection)
        command.Parameters.Clear()
        command.Parameters.AddWithValue("floors", TextNumFloors.Text)
        command.Parameters.AddWithValue("rooms", TextRoomsPerFloor.Text)
        command.Parameters.AddWithValue("rent", TextRental.Text)
 
        Dim r As Integer = command.ExecuteNonQuery()
 
        If r = 1 Then
            MessageBox.Show("ปรับปรุงข้อมูล")
            connection.Close()
            FormRef_load(sender, e)
        Else
            MessageBox.Show("เกิดข้อผิดพลาด")
        End If
    End Sub

Date : 2015-09-08 17:03:14

By : Mekasith

No. 8

Guest

กรุณาช่วยที่ครับผมพึ่งเริ่มเรียนยังไม่ค่อยเข้าใจ
นี้โค้ดผม
ใส่ค่าไม่ได้

Date : 2015-09-08 17:07:52

By : Mekasith

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ช่วยผมด้วยมีปัญหา .ExecuteNonQuery()... ExecuteNonQuery requires an open and available Connection. The connection's current state is closed

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] ช่วยผมด้วยมีปัญหา .ExecuteNonQuery()... ExecuteNonQuery requires an open and available Connection. The connection's current state is closed

No. 1

No. 2

No. 3

No. 4

No. 5

No. 6

No. 7

No. 8

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

[.NET] ช่วยผมด้วยมีปัญหา .ExecuteNonQuery()... ExecuteNonQuery requires an open and available Connection. The connection's current state is closed