Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,036

HOME > .NET Framework > Forum > code บันทึก แก้ไข ลบ ข้อมูล ของ vb2010 + sql server 2008



 

code บันทึก แก้ไข ลบ ข้อมูล ของ vb2010 + sql server 2008

 



Topic : 085417



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



สถานะออฟไลน์




อยากทราบโค้ดบันทึกข้อมูลครับ ตอนนี้ผมเขียนโปรแกรม vb 2010 ใช้ sql server 2008 เป็นฐานข้อมูล บันทึกไม่ได้ซักทีครับ ช่วยแนะนำหน่อยครับ



Tag : Ms SQL Server 2008







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2012-10-15 09:07:53 By : pirasak View : 55496 Reply : 38
 

 

No. 1



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

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

ติดปัญหาอะไรครับ การ Insert ใช้ผ่าน ADO.NET กับ NameSpace ของ SqlClient สามารถดูได้จากบทความของ ASP.NET กับ SQL Server ครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-10-15 09:16:28 By : mr.win
 


 

No. 2

Guest


Code (VB.NET)
Dim Conn As OleDbConnection
Dim cmd As OleDbCommand
Dim sql as string

Conn = New OleDbConnection("Provider=sqloledb;server=" & SVName & ";database=" & DBName & ";uid=" & UID & ";pwd=")
Conn.Open()

sql = "insert into tablename(id,name) select (select isnull(max(id),0) + 1 from tablename),me.txtname.text"

sql = "update tablename set name='xxx' where id="& me.txtid.text

sql = "delete tablename where id="& me.txtid.text

Try

cmd = New OleDbCommand(Sql, Conn)
cmd.ExecuteNonQuery()

Catch ex As Exception
MessageBox.Show("ets_mc_plan Insert Data Incomplete as" & ex.Message, "Insert Data Error !!!", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End Try

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-10-15 09:20:16 By : thep
 

 

No. 3



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



สถานะออฟไลน์


ช่วยดูให้หน่อยครับ

Code (VB.NET)
 Dim sqlADD As String 'เก็บคำสั่ง sql สำหรับเพิ่มข้อมูล
        Dim cm As New SqlCommand

        If txtid.Text = "" Or txtname.Text = "" Or txtsur.Text = "" Or txtno.Text = "" Or txtmoo.Text = "" Or txttumbon.Text = "" Or txtdistrict.Text = "" Or txtprovince.Text = "" Or txtzip.Text = "" Or mttel.Text = "" Or txtex.Text = "" Then
            MessageBox.Show("กรุณากรอกข้อมูลให้ครบด้วยครับ..", "คำเตือน", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)
        Else
            MessageBox.Show("คุณต้องการบันทึกข้อมูลใช่หรือไม่?", "ยืนยัน", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

            sqlADD = "INSERT INTO teacher(t_id, t_name, t_sur, t_no, t_moo, t_road, t_tumbon, t_district, t_province, t_zip, t_tel, t_exp, t_pic)"
            sqlADD &= " VALUE ( '" & txtid.Text & "','" & txtname.Text & "' , '" & txtsur.Text & "' , '" & txtno.Text & "','" & txtmoo.Text & "','" & txttumbon.Text & "', '" & txtdistrict.Text & "','" & txtprovince.Text & "','" & txtzip.Text & "','" & mttel.Text & "','" & txtex.Text & "')"
            With cm
                .CommandType = CommandType.Text
                .CommandText = sqlADD
                '.Connection = Conn
                .ExecuteNonQuery()
            End With
            MessageBox.Show("เพิ่มข้อมูลเรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-10-15 11:16:37 By : pirasak
 


 

No. 4



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

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

Error ?
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-10-15 11:38:41 By : mr.win
 


 

No. 5



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



สถานะออฟไลน์
Facebook

คำว่า VALUE ครับ ต้องมี S ต่อท้าย
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-10-15 11:39:55 By : lee_latee
 


 

No. 6



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



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 4 เขียนโดย : mr.win เมื่อวันที่ 2012-10-15 11:38:41
รายละเอียดของการตอบ ::
.......เวลาคลิกปุ่ม บันทึก แล้วไม่มีอะไรเกิดขึ้นเลยครับ..!! ผมก็พึ่งหัดใช้ ไม่รู้จะแก้ไขยังไง

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-10-15 11:47:05 By : pirasak
 


 

No. 7



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



สถานะออฟไลน์


มันขึ้น Eror ตรงนี้ครับ .ExecuteNonQuery()
ช่วยดูให้หน่อย

Code (VB.NET)
Private Sub btsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsave.Click
        Dim sqlADD As String 'เก็บคำสั่ง sql สำหรับเพิ่มข้อมูล
        Dim cm As New SqlCommand

        
        If txtid.Text = "" Or txtname.Text = "" Or txtsur.Text = "" Or txtno.Text = "" Or txtmoo.Text = "" Or txttumbon.Text = "" Or txtdistrict.Text = "" Or txtprovince.Text = "" Or txtzip.Text = "" Or mttel.Text = "" Or txtex.Text = "" Then
            MessageBox.Show("กรุณากรอกข้อมูลให้ครบด้วยครับ..", "คำเตือน", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)
            clear()

        Else
            MessageBox.Show("คุณต้องการบันทึกข้อมูลใช่หรือไม่?", "ยืนยัน", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

            sqlADD = "INSERT INTO teacher(t_id, t_name, t_sur, t_no, t_moo, t_road, t_tumbon, t_district, t_province, t_zip, t_tel, t_exp, t_pic)"
            sqlADD &= " VALUES ( '" & txtid.Text & "','" & txtname.Text & "' , '" & txtsur.Text & "' , '" & txtno.Text & "','" & txtmoo.Text & "','" & txttumbon.Text & "', '" & txtdistrict.Text & "','" & txtprovince.Text & "','" & txtzip.Text & "','" & mttel.Text & "','" & txtex.Text & "')"
            'Dim com As New SqlCommand(sqlADD, conn)
            With cm
                .CommandType = CommandType.Text
                .CommandText = sqlADD
                .Connection = conn
               .ExecuteNonQuery()
            End With
            MessageBox.Show("เพิ่มข้อมูลเรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
            clear()


        End If



    End Sub



ประวัติการแก้ไข
2012-10-15 16:56:32
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-10-15 16:55:39 By : pirasak
 


 

No. 8



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

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

เอา Error มาดูครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-10-16 09:13:37 By : mr.win
 


 

No. 9



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



สถานะออฟไลน์


aden
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-11-29 16:04:56 By : pirasak
 


 

No. 10



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



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 8 เขียนโดย : mr.win เมื่อวันที่ 2012-10-16 09:13:37
รายละเอียดของการตอบ ::
..ช่วยดูให้หน่วยคับ ตาม โพสต์ที่ 6

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-11-30 10:03:59 By : pirasak
 


 

No. 11

Guest


เหมือน t_road จะหายไปนะครับตอน Insert
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-11-30 11:47:48 By : Casper
 


 

No. 12



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

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

รู้สึก Connection จะหายครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-11-30 22:50:01 By : mr.win
 


 

No. 13



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



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 12 เขียนโดย : mr.win เมื่อวันที่ 2012-11-30 22:50:01
รายละเอียดของการตอบ ::
Code (VB.NET)
Public Sub loaddata()
        Dim sqlQuery As String = "SELECT * FROM sj_id"
        Dim sqlAdapter As New SqlDataAdapter
        Dim sqlcommand As New SqlCommand
        Dim TABLE As New DataTable
        Dim i As Integer

        With sqlcommand
            .CommandText = sqlQuery
            .Connection = sconnection
        End With
        With sqlAdapter
            .SelectCommand = sqlcommand
            .Fill(TABLE)
        End With

        ListView1.Items.Clear()

        For i = 0 To TABLE.Rows.Count - 1
            With ListView1
                .Items.Add(TABLE.Rows(i)("sj_id"))
                With .Items(.Items.Count - 1).SubItems
                    .Add(TABLE.Rows(i)("sj_id"))
                    .Add(TABLE.Rows(i)("sj_name"))
                    .Add(TABLE.Rows(i)("unit"))


                End With
            End With
        Next
    End Sub


ช่วยดูโค้ดให้หน่อยคับ เออเร่อ ตรง .Fill(TABLE)

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-12-18 13:34:05 By : pirasak
 


 

No. 14

Guest


รบกวนดูโค้ดให้หน่อยค่ะไม่รู้ติดอะไรค่ะ พอกดเพิ่มข้อมูลแล้วมันขึ้น MessageBox ไม่สามารถเพิ่มได้เนื่องจาก Unclosed quotation mark after ther character string 'ข้อมูลที่กรอก)'. iIncorrect syntax near 'ข้อมูลที่กรอก)'.ค่ะ
เหมือนติดตรงที่ขีดเส้นใต้อ่ะค่ะ รบกวนดูให้หน่อยนะค่ะ


Code (VB.NET)
Dim sqlEmployee As String = ""
        Dim comEmployee As SqlCommand = New SqlCommand
        Dim tmpMSG As String = ""

        If (txtEmpID.Text = "") Or (txtEmpName.Text = "") Or (txtEmpPosition.Text = "") Or (txtEmpTel.Text = "") Or (txtUser.Text = "") Or (txtPass.Text = "") Then
            MessageBox.Show("กรุณาป้อนข้อมูลสมาชิกให้ครบ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txtEmpID.Focus()
            Exit Sub
        End If

        Try
            Select Case ActionFlag
                Case "Add"
                    sqlEmployee = "INSERT INTO Employee (EmployeeID,Emp_Name,Emp_Tel,"
                    sqlEmployee &= " Emp_Position, Username, Password)"
                    sqlEmployee &= " VALUES ('" & txtEmpID.Text & "',"
                    sqlEmployee &= "'" & txtEmpName.Text & "',"

                    If OptMale.Checked = True Then
                        sqlEmployee &= "'M',"
                    ElseIf OptFeMale.Checked = True Then
                        sqlEmployee &= "'F',"
                    End If

                    sqlEmployee &= "'" & txtEmpPosition.Text & "',"
                    sqlEmployee &= "'" & txtEmpTel.Text & "',"
                    sqlEmployee &= "'" & txtUser.Text & "',"
                    sqlEmployee &= "'" & txtPass.Text & "')"
With Conn
                If .State = ConnectionState.Open Then .Close()
                .ConnectionString = strConn
                .Open()
            End With

            If ActionFlag = "Add" Then
                tmpMSG = "คุณต้องการเพิ่มข้อมูล ใช่หรือไม่ ?"
            ElseIf ActionFlag = "Edit" Then
                tmpMSG = "คุณต้องการแก้ไขข้อมูล ใช่หรือไม่ ?"
            End If

            If MessageBox.Show(tmpMSG, "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                With comEmployee
                    .CommandType = CommandType.Text
                    .CommandText = sqlEmployee
                    .Connection = Conn
                    .ExecuteNonQuery()
                End With
            End If
        Catch ErrProcess As Exception
            MessageBox.Show("ไม่สามารถเพิ่มสมาชิกใหม่ได้ เนื่องจาก " & ErrProcess.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End Try

        MessageBox.Show("บันทึกลงฐานข้อมูล เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-12-20 03:57:29 By : teaw
 


 

No. 15



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



สถานะออฟไลน์


ลองอันนี้ดูนะครับไม่รู้ถูกไหม


Code
sqlEmployee = "INSERT INTO Employee (EmployeeID,Emp_Name,Emp_Sex,Emp_Tel,"
sqlEmployee &= " Emp_Position, Username, Password)"
sqlEmployee &= " VALUES ('" & txtEmpID.Text & "',"
sqlEmployee &= "'" & txtEmpName.Text & "',"

If OptMale.Checked = True Then
sqlEmployee &= "'M',"
ElseIf OptFeMale.Checked = True Then
sqlEmployee &= "'F',"
End If

sqlEmployee &= "'" & txtEmpTel.Text & "',"
sqlEmployee &= "'" & txtEmpPosition.Text & "',"

sqlEmployee &= "'" & txtUser.Text & "',"
sqlEmployee &= "'" & txtPass.Text & "')"

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-12-21 11:50:57 By : ghosting789
 


 

No. 16

Guest


ได้แล้วค่ะ ขอบคุณมากค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-12-27 23:35:19 By : Teaw
 


 

No. 17

Guest


รบกวนอีกครั้งค่ะ

Code (VB.NET)
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim sqlMember As String = ""
        Dim comMember As SqlCommand = Conn.CreateCommand()
        Dim tmpMSG As String = ""


        If (txtMemberID.Text = "") Or (txtName.Text = "") Or (txtAddress.Text = "") Or (txtTel.Text = "") Then
            MessageBox.Show("กรุณาป้อนข้อมูลสมาชิกให้ครบ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            txtMemberID.Focus()
            Exit Sub
        End If

        If cboPosition.Text = "" Then
            MessageBox.Show("กรุณาระบุประเภทสมาชิก  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            cboPosition.Focus()
            Exit Sub
        End If

        Try
            Select Case ActionFlag
                Case "Add"
                    sqlMember = "INSERT INTO Member (MemberID,Mem_Num,Mem_Name,Address,Sex,Tel,PositionID)"
                    sqlMember &= " VALUES ('" & lblMemID.Text & "',"
                    sqlMember &= "'" & txtMemberID.Text & "',"
                    sqlMember &= "'" & txtName.Text & "',"
                    sqlMember &= "'" & txtAddress.Text & "',"

                    If OptMale.Checked = True Then
                        sqlMember &= "'M',"
                    ElseIf OptFemale.Checked = True Then
                        sqlMember &= "'F',"
                    End If

                    sqlMember &= "'" & txtTel.Text & "',"
                    sqlMember &= "'" & CStr(cboPosition.SelectedValue) & "',"

                    If CStr(cboPosition.SelectedValue) = "1" Or CStr(cboPosition.SelectedValue) = "2" Then
                        sqlMember &= "'0','1')"
                    ElseIf CStr(cboPosition.SelectedValue) = "0" Then
                        sqlMember &= "'1','0')"
                    End If

                Case "Edit"
                    sqlMember = "UPDATE Member "
                    sqlMember &= " SET Mem_Num='" & txtMemberID.Text & "',"
                    sqlMember &= " Mem_Name='" & txtName.Text & "',"
                    sqlMember &= " Address='" & txtAddress.Text & "',"
                    If OptMale.Checked = True Then
                        sqlMember &= " Sex='M',"
                    ElseIf OptFemale.Checked = True Then
                        sqlMember &= " Sex='F',"
                    End If

                    sqlMember &= " Tel='" & txtTel.Text & "',"
                    sqlMember &= " PositionID='" & CStr(cboPosition.SelectedValue) & "'"
                    sqlMember &= " WHERE (MemberID='" & lblMemID.Text & "')"
            End Select

            With Conn
                If .State = ConnectionState.Open Then .Close()
                .ConnectionString = strConn
                .Open()
            End With


            If ActionFlag = "Add" Then
                tmpMSG = "คุณต้องการเพิ่มข้อมูล ใช่หรือไม่ ?"
            ElseIf ActionFlag = "Edit" Then
                tmpMSG = "คุณต้องการแก้ไขข้อมูล ใช่หรือไม่ ?"
            End If

            If MessageBox.Show(tmpMSG, "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                With comMember
                    .CommandType = CommandType.Text
                    .CommandText = sqlMember
                    .Connection = Conn
                    .ExecuteNonQuery()
                End With
            End If
        Catch ErrProcess As Exception
            MessageBox.Show("ไม่สามารถเพิ่มสมาชิกใหม่ได้ เนื่องจาก " & ErrProcess.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End Try

        MessageBox.Show("บันทึกลงฐานข้อมูล เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)

        grbSearch.Enabled = True

        ControlStatus(False)

        btnAdd.Enabled = False
        btnEdit.Enabled = False

        btnSave.Visible = False
        btnCancel.Visible = False
        ClearData()
        grdEquipNotReturn.DataSource = Nothing

        btnPrint.Enabled = False

        cmdMoveFirst.Enabled = False
        cmdMovePrevious.Enabled = False
        cmdMoveNext.Enabled = False
        cmdMoveLast.Enabled = False

        lblShowPositions.Text = ""
        txtSearch.Text = ""
        txtSearch.Focus()
    End Sub

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-12-30 01:49:02 By : Teaw
 


 

No. 18

Guest


jรูปทีขึ้น Error ของโพส 17 แก้ให้ตรงกับ Column แล้วทำไมยังขึ้นอีกค่ะ

Insert error
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-12-30 02:07:50 By : Teaw
 


 

No. 19

Guest


ขึ้นเออเร่อตรงเอ็กซคิ้วค่ะช่วยดูให้หน่อยนะค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-25 23:09:24 By : tang
 


 

No. 20

Guest


ตอบความคิดเห็นที่ : 19 เขียนโดย : tang เมื่อวันที่ 2014-11-25 23:09:24
รายละเอียดของการตอบ ::
....พี่ๆช่วยดูหน่อยนะค่ะ ขอร้องละค่ะ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-25 23:15:12 By : tang
 


 

No. 21



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 20 เขียนโดย : tang เมื่อวันที่ 2014-11-25 23:15:12
รายละเอียดของการตอบ ::
type ไม่ตรงครับ (datetime)Otdate.text //ต้องทำให้เป็น datetime ก่อน

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-26 08:20:09 By : lamaka.tor
 


 

No. 22



โพสกระทู้ ( 9,583 )
บทความ ( 2 )



สถานะออฟไลน์


.parameters.AddWithValue("@dot", SqlDbType.Date).Value = Otdate.text
น่าจะเขียนแบบนี้หรือเปล่า (ไม่ชำนาญ)
.parameters.AddWithValue("@dot", DateTime.Parse(Otdate.text) )
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-26 08:32:46 By : Chaidhanan
 


 

No. 23



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



สถานะออฟไลน์


ไม่เคยใช้เขียนแบบ parameter addvalue นะ
เคยแต่เขียนแบบนี้

Code (VB.NET)
dim sql as string
sql = "INSERT INTO OT(No_OT,Date_OT)"
sql &= " VALUES('{0}','{1}'"
sql = String.Format(sql,lblNo_OT.Text,Format(Otdate.text,"MM/dd/yyyy")


หรือเขียนต่อข้อความแบบธรรมดาก็ได้

Code (VB.NET)
dim sql as string
sql = "INSERT INTO OT(No_OT,Date_OT)"
sql &= " VALUES("
sql &= "'" & lblNo_OT.Text & "'"
sql &= ",'" & Format(Otdate.text,"MM/dd/yyyy") & "')"

สาเหตุที่เขียนแบบนี้เพราะมันเขียนสั้นกว่าแล้วก็อ่านได้ง่ายกว่าครับ


และถ้าตอนนี้ยังแก้ปัญหาไม่ได้ให้ลอง debug ดูตัวแปร Odate.text ดูครับว่ามันเป็นค่าอะไรอยู่ทำไมถึงเปลี่ยนเป็น Datetime ไม่ได้


ประวัติการแก้ไข
2014-11-26 09:21:48
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-26 09:21:06 By : deksoke
 


 

No. 24

Guest


ใช้แบบต่อ string ระวังเจอ sql injection
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-11-26 09:45:26 By : ห้ามตอบเกินวันละ 2 กระทู้
 


 

No. 25

Guest


รูปภาพ


Code (VB.NET)
        Dim dtset As New DataSet()
        If code.Text = "" Then

            bname.Text = ""
            gtype.Text = ""
            gday.Text = ""
            gnum.Text = ""
            price.Text = ""

            MsgBox("กรุณากรอกข้อมูลให้ครบด้วยทุกช่องด้วย", MsgBoxStyle.Information, "ระะบบแจ้งเตือน")

        Else
            ds.Clear()
            Dim cn As New OleDbCommandBuilder(da)
            objcurrencymanager.EndCurrentEdit()
            Dim irecordchanged As Integer = da.Update(ds, "st_save")
            MsgBox("บันทึกข้อมูลสมาชิกลงฐานข้อมูลเรียบร้อยแล้ว" & ControlChars.Lf & _
                    "จำนวนเรคคอร์ดที่มีการเปลี่ยนแปลงเท่ากับ " & irecordchanged & " เรคคอร์ด", _
                    , "บันทึกข้อมูลสมาชิก")
            dtset.Clear()
            code.Text = ""
            bname.Text = ""
            gtype.Text = ""
            gday.Text = ""
            gnum.Text = ""
            price.Text = ""
        End If



พอดีว่าผมทำหน้าบันทึกใน vb.2005 แต่มาเปิดใน vb.2012 แล้วมันบันทึกไม่ได้น่ะคัพ ช่วยที...
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-01-18 14:37:12 By : นิรนาม
 


 

No. 26

Guest


Convert.ToDateTime(Otdate.Text).ToString("MM/dd/yyyy")

ก่อนจะรันโปรแกรมก็กำหนด CurrentCulture ="en-US" ด้วยนะครับ ปัญหาเรื่องวันที่ก็หมดไป
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-01-18 18:40:52 By : proogrammer ด้อยปัญญา
 


 

No. 27

Guest


ช่วยดูไห้หน่อยค่ะมันรันไม่ได้

Code (VB.NET)
Dim sqlADD As String 'เก็บคำสั่ง sql สำหรับเพิ่มข้อมูล
Dim cm As New StdPicture
sqlADD = "INSERT INTO "
sqlADD = "INSERT INTO vacancies_Job(code,order,Product_Name,number,Tel,send,mail,address)"
sqlADD = "VALUES ('" & code.Text & "','" & order.Text & "','" & Product_Name.Text & "','" & Tel.Text & "','" & send.Text & "','" & mail.Text & "','" & address.Text & "',)"
'ใช้ oledbcommand ในการเพิ่มข้อมูล
With cm
    .CommandType = CommandType.Text
    .CommandText = sqlADD
    .Connection = Conn
    .Transaction = tr
    .Execute NonQuery()
End With

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-02-23 17:08:57 By : patteera
 


 

No. 28



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ตอบความคิดเห็นที่ : 27 เขียนโดย : patteera เมื่อวันที่ 2015-02-23 17:08:57
รายละเอียดของการตอบ ::

ลอง messagebox sqlADD มาดูครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-02-23 17:20:13 By : lamaka.tor
 


 

No. 29

Guest


ช่วยเขียนโปแกรม vb +SQL หน่อยคร๊ หัยแจ้งเตือนพลาสปอตหมดอายุล่วงหน้า2เดือนอ่ะคร๊
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-05-26 16:59:48 By : ploy
 


 

No. 30

Guest


รบกวนขอโค๊ดชุดคำสั่งกดแป้น 1 2 3 4 5 ทุกๆ40วินาทีหน่อยค่ะ vb2010 ค่ะขอบคุณค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2015-08-25 17:21:14 By : ขอบคุณจ๊ะ
 


 

No. 31

Guest


ช่วยบอกการทำปุ่มค้นหาให้หน่อยค่ะ พอดีพึ่งหัดทำ
ขอบคุณค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-02-02 17:59:47 By : bee
 


 

No. 32

Guest


Code (VB.NET)
 Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        Try

            If txtCusID.Text = "" Then
                MessageBox.Show("Please Select Data", "Update", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                txtCusID.Focus()
                Exit Sub
            End If
            cm = New OleDbCommand("UPDATE tbFile SET FileNo=@FileNo,Date=@Date,CustomerID=@CustomerID,CustomerName=@CustomerName,TypeName=@TypeName,FileID=@FileID,FileName=@FileName,FilePath1=@FilePath1,FilePath2=@FilePath2,FilePath3=@FilePath3,Remark=@Remark Where FileNo=@FileNo", conn)
            cm.Parameters.AddWithValue("@FileNo", txtFileNo.Text)
            cm.Parameters.AddWithValue("@Date", Format(CDate(dtpDate.Text), "yyyy-MM-dd"))
            cm.Parameters.AddWithValue("@CustomerID", txtCusID.Text)
            cm.Parameters.AddWithValue("@CustomerName", txtCusName.Text)
            cm.Parameters.AddWithValue("@TypeName", cbType.Text)
            cm.Parameters.AddWithValue("@FileID", txtFileID.Text)
            cm.Parameters.AddWithValue("@FileName", txtFileName.Text)
            cm.Parameters.AddWithValue("@FilePath1", txtSave1.Text)
            cm.Parameters.AddWithValue("@FilePath2", txtSave2.Text)
            cm.Parameters.AddWithValue("@FilePath3", txtSave3.Text)
            cm.Parameters.AddWithValue("@Remark", txtRemark.Text)
            cm.ExecuteNonQuery()


            MessageBox.Show("Update successful", "Update", MessageBoxButtons.OK, MessageBoxIcon.Information)

            ShowFile()
            AutoFileNo()
            AllClear()
        Catch ex As Exception

        End Try
    End Sub

แนะนำน่อยครับ เวลาคลิกปุ่มแล้วไม่มีอะไรเกีดขื้นเลย แต่พอเอา cm.ExecuteNonQuery() ออก มันค่อยขื้น messagebox มาครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-05-24 17:18:09 By : มือใหม่
 


 

No. 33



โพสกระทู้ ( 9,583 )
บทความ ( 2 )



สถานะออฟไลน์


ย้าย cm.Parameters.AddWithValue("@FileNo", txtFileNo.Text) ไปไว้อันสุดท้าย

แล้วะ เอา FileNo=@FileNo, ใน statement ออก
จำนวน parameter มันไม่เท่ากัน
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-05-24 21:37:55 By : Chaidhanan
 


 

No. 34



โพสกระทู้ ( 4,440 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

ตัวอย่างครับ
http://www.informit.com/articles/article.aspx?p=382852&seqNum=4
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-05-25 08:29:45 By : lamaka.tor
 


 

No. 35

Guest


พอจะมีโค้ด C# ของ VB 2013 ไหมคะ โค้ดมันหายากมากเลย พอดีทำ เพิ่ม ลบ เเก้ไข อัพเดต อยู่ค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-11-25 10:10:05 By : MoMay
 


 

No. 36



โพสกระทู้ ( 9,583 )
บทความ ( 2 )



สถานะออฟไลน์


ปกติโปรแกรม vs เขาจะมี sample มี document ให้มาด้วยนะครับ
มีครบทุกอย่างเลย แค่ต้องอ่านเท่านั้นเอง
และที่สำคัญ ถ้าคุณอ่านคุณจะได้ความรู้เยอะมากกๆๆๆๆ

สมัยผมเรียนรู้การใช้ vb ผมอ่านจาก document มันนี่แหล่ะครับ
อ่านมันตั้งแต่หน้าแรกยันหน้า .... (เท่าที่มีเวลาอ่าน ยังอ่านไม่จบจนบัดนี้ 55555 )
แต่รับรองคุณจะได้ความรู้อย่างแท้จริง อันไหนแปลไม่ออก ก็อาศัย พี่กูร์ เอาครับ

สมัยก่อนผมไม่มีพี่กูร์ ต้องเปิด dict ซึ่งบางตัวมันก็ไม่มีต้อง apply (เดา 555) เอาเอง
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-11-25 10:24:09 By : Chaidhanan
 


 

No. 37

Guest


ตอนนี้ติดปัญหา ทำหน้าของมูลพื้นฐานไม่ได้ ปุ๋มเพิ่มลบ แก้ไข บันทึก ดึงข้อมูลไม่โชว์ไม่ได้
รบกวนหน่อยค่ะ ทำไม่ได้จริงๆ. และไม่เก่งในโค้ดเลย
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2019-08-21 17:27:18 By : Pr
 


 

No. 38



โพสกระทู้ ( 9,583 )
บทความ ( 2 )



สถานะออฟไลน์


ไปที่ละ step สร้างหน้าจอ ได้หรือยัง ยังไม่ต้องเชื่อม database
สร้างหน้าจอ ได้แล้ว ควบคุมปุ่ม ได้หรือยัง กดแล้ว เข้าไปยัง code ถูกต้องหรือเปล่า แสดง alert เมื่อกดปุ่ม จะได้รู้ว่าใช่

เมื่อสร้าง ปุ่ม โต้ตอบได้แล้ว
ก็ เริ่มติดต่อกับ database ใสมันใน code ที่รับการกดปุ่มนั่นแหล่ะ ยังไม่ต้องออกแบบให้มันวิลิศมาหรา
insert ได้ก่อน แล้วค่อยไป ทำเรื่อง อ่านข้อมูล เอาให้เข้าใจ

ส่วนการแสดงผล ใช้ เครื่องมือ ของ database แสดงข้อมูลไปก่อน ฝึกไปทีละขั้นเดี๋ยวก็ได้
แต่ถ้าอยากได้โค๊ดเป็นตัวอย่าง แค่ขยันหาเท่านั้น เดี๋ยวก็เจอ ไม่ต้องพึงพาให้ใครหาให้หรอก

เมื่อเขียนโค๊ดแล้วเกิด error แก้ไขเองไม่ได้ ค่อยเอา error มาถาม

ส่วนคำว่าไม่เก่งโค๊ดเลย เมื่ออยากมาทางนี้ก็ต้อง ขวนขวายหน่อยล่ะ

หรือจะให้คนอื่นเขาทำให้ฟรี คิดใหม่เลยถ้าคิดแบบนั้น
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2019-08-22 06:06:11 By : Chaidhanan
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : code บันทึก แก้ไข ลบ ข้อมูล ของ vb2010 + sql server 2008
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 00
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่