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,038

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



 

[.NET] 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 : 55539 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)
01.Dim Conn As OleDbConnection
02.Dim cmd As OleDbCommand
03.Dim sql as string
04. 
05.Conn = New OleDbConnection("Provider=sqloledb;server=" & SVName & ";database=" & DBName & ";uid=" & UID & ";pwd=")
06.Conn.Open()
07. 
08.sql = "insert into tablename(id,name) select (select isnull(max(id),0) + 1 from tablename),me.txtname.text"
09. 
10.sql = "update tablename set name='xxx' where id="& me.txtid.text
11. 
12.sql = "delete tablename where id="& me.txtid.text
13. 
14.Try
15. 
16.cmd = New OleDbCommand(Sql, Conn)
17.cmd.ExecuteNonQuery()
18. 
19.Catch ex As Exception
20.MessageBox.Show("ets_mc_plan Insert Data Incomplete as" & ex.Message, "Insert Data Error !!!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
21. 
22.End Try

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

 

No. 3



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



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


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

Code (VB.NET)
01.Dim sqlADD As String 'เก็บคำสั่ง sql สำหรับเพิ่มข้อมูล
02.       Dim cm As New SqlCommand
03. 
04.       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
05.           MessageBox.Show("กรุณากรอกข้อมูลให้ครบด้วยครับ..", "คำเตือน", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)
06.       Else
07.           MessageBox.Show("คุณต้องการบันทึกข้อมูลใช่หรือไม่?", "ยืนยัน", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
08. 
09.           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)"
10.           sqlADD &= " VALUE ( '" & txtid.Text & "','" & txtname.Text & "' , '" & txtsur.Text & "' , '" & txtno.Text & "','" & txtmoo.Text & "','" & txttumbon.Text & "', '" & txtdistrict.Text & "','" & txtprovince.Text & "','" & txtzip.Text & "','" & mttel.Text & "','" & txtex.Text & "')"
11.           With cm
12.               .CommandType = CommandType.Text
13.               .CommandText = sqlADD
14.               '.Connection = Conn
15.               .ExecuteNonQuery()
16.           End With
17.           MessageBox.Show("เพิ่มข้อมูลเรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
18. 
19.       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)
01.Private Sub btsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsave.Click
02.        Dim sqlADD As String 'เก็บคำสั่ง sql สำหรับเพิ่มข้อมูล
03.        Dim cm As New SqlCommand
04. 
05.         
06.        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
07.            MessageBox.Show("กรุณากรอกข้อมูลให้ครบด้วยครับ..", "คำเตือน", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)
08.            clear()
09. 
10.        Else
11.            MessageBox.Show("คุณต้องการบันทึกข้อมูลใช่หรือไม่?", "ยืนยัน", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
12. 
13.            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)"
14.            sqlADD &= " VALUES ( '" & txtid.Text & "','" & txtname.Text & "' , '" & txtsur.Text & "' , '" & txtno.Text & "','" & txtmoo.Text & "','" & txttumbon.Text & "', '" & txtdistrict.Text & "','" & txtprovince.Text & "','" & txtzip.Text & "','" & mttel.Text & "','" & txtex.Text & "')"
15.            'Dim com As New SqlCommand(sqlADD, conn)
16.            With cm
17.                .CommandType = CommandType.Text
18.                .CommandText = sqlADD
19.                .Connection = conn
20.               .ExecuteNonQuery()
21.            End With
22.            MessageBox.Show("เพิ่มข้อมูลเรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
23.            clear()
24. 
25. 
26.        End If
27. 
28. 
29. 
30.    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)
01.Public Sub loaddata()
02.        Dim sqlQuery As String = "SELECT * FROM sj_id"
03.        Dim sqlAdapter As New SqlDataAdapter
04.        Dim sqlcommand As New SqlCommand
05.        Dim TABLE As New DataTable
06.        Dim i As Integer
07. 
08.        With sqlcommand
09.            .CommandText = sqlQuery
10.            .Connection = sconnection
11.        End With
12.        With sqlAdapter
13.            .SelectCommand = sqlcommand
14.            .Fill(TABLE)
15.        End With
16. 
17.        ListView1.Items.Clear()
18. 
19.        For i = 0 To TABLE.Rows.Count - 1
20.            With ListView1
21.                .Items.Add(TABLE.Rows(i)("sj_id"))
22.                With .Items(.Items.Count - 1).SubItems
23.                    .Add(TABLE.Rows(i)("sj_id"))
24.                    .Add(TABLE.Rows(i)("sj_name"))
25.                    .Add(TABLE.Rows(i)("unit"))
26. 
27. 
28.                End With
29.            End With
30.        Next
31.    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)
01.Dim sqlEmployee As String = ""
02.        Dim comEmployee As SqlCommand = New SqlCommand
03.        Dim tmpMSG As String = ""
04. 
05.        If (txtEmpID.Text = "") Or (txtEmpName.Text = "") Or (txtEmpPosition.Text = "") Or (txtEmpTel.Text = "") Or (txtUser.Text = "") Or (txtPass.Text = "") Then
06.            MessageBox.Show("กรุณาป้อนข้อมูลสมาชิกให้ครบ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
07.            txtEmpID.Focus()
08.            Exit Sub
09.        End If
10. 
11.        Try
12.            Select Case ActionFlag
13.                Case "Add"
14.                    sqlEmployee = "INSERT INTO Employee (EmployeeID,Emp_Name,Emp_Tel,"
15.                    sqlEmployee &= " Emp_Position, Username, Password)"
16.                    sqlEmployee &= " VALUES ('" & txtEmpID.Text & "',"
17.                    sqlEmployee &= "'" & txtEmpName.Text & "',"
18. 
19.                    If OptMale.Checked = True Then
20.                        sqlEmployee &= "'M',"
21.                    ElseIf OptFeMale.Checked = True Then
22.                        sqlEmployee &= "'F',"
23.                    End If
24. 
25.                    sqlEmployee &= "'" & txtEmpPosition.Text & "',"
26.                    sqlEmployee &= "'" & txtEmpTel.Text & "',"
27.                    sqlEmployee &= "'" & txtUser.Text & "',"
28.                    <u>sqlEmployee &= "'" & txtPass.Text & "')"</u>
29.With Conn
30.                If .State = ConnectionState.Open Then .Close()
31.                .ConnectionString = strConn
32.                .Open()
33.            End With
34. 
35.            If ActionFlag = "Add" Then
36.                tmpMSG = "คุณต้องการเพิ่มข้อมูล ใช่หรือไม่ ?"
37.            ElseIf ActionFlag = "Edit" Then
38.                tmpMSG = "คุณต้องการแก้ไขข้อมูล ใช่หรือไม่ ?"
39.            End If
40. 
41.            If MessageBox.Show(tmpMSG, "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
42.                With comEmployee
43.                    .CommandType = CommandType.Text
44.                    .CommandText = sqlEmployee
45.                    .Connection = Conn
46.                    .ExecuteNonQuery()
47.                End With
48.            End If
49.        Catch ErrProcess As Exception
50.            MessageBox.Show("ไม่สามารถเพิ่มสมาชิกใหม่ได้ เนื่องจาก " & ErrProcess.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
51.            Exit Sub
52.        End Try
53. 
54.        MessageBox.Show("บันทึกลงฐานข้อมูล เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
55.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)
001.Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
002.        Dim sqlMember As String = ""
003.        Dim comMember As SqlCommand = Conn.CreateCommand()
004.        Dim tmpMSG As String = ""
005. 
006. 
007.        If (txtMemberID.Text = "") Or (txtName.Text = "") Or (txtAddress.Text = "") Or (txtTel.Text = "") Then
008.            MessageBox.Show("กรุณาป้อนข้อมูลสมาชิกให้ครบ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
009.            txtMemberID.Focus()
010.            Exit Sub
011.        End If
012. 
013.        If cboPosition.Text = "" Then
014.            MessageBox.Show("กรุณาระบุประเภทสมาชิก  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
015.            cboPosition.Focus()
016.            Exit Sub
017.        End If
018. 
019.        Try
020.            Select Case ActionFlag
021.                Case "Add"
022.                    sqlMember = "INSERT INTO Member (MemberID,Mem_Num,Mem_Name,Address,Sex,Tel,PositionID)"
023.                    sqlMember &= " VALUES ('" & lblMemID.Text & "',"
024.                    sqlMember &= "'" & txtMemberID.Text & "',"
025.                    sqlMember &= "'" & txtName.Text & "',"
026.                    sqlMember &= "'" & txtAddress.Text & "',"
027. 
028.                    If OptMale.Checked = True Then
029.                        sqlMember &= "'M',"
030.                    ElseIf OptFemale.Checked = True Then
031.                        sqlMember &= "'F',"
032.                    End If
033. 
034.                    sqlMember &= "'" & txtTel.Text & "',"
035.                    sqlMember &= "'" & CStr(cboPosition.SelectedValue) & "',"
036. 
037.                    If CStr(cboPosition.SelectedValue) = "1" Or CStr(cboPosition.SelectedValue) = "2" Then
038.                        sqlMember &= "'0','1')"
039.                    ElseIf CStr(cboPosition.SelectedValue) = "0" Then
040.                        sqlMember &= "'1','0')"
041.                    End If
042. 
043.                Case "Edit"
044.                    sqlMember = "UPDATE Member "
045.                    sqlMember &= " SET Mem_Num='" & txtMemberID.Text & "',"
046.                    sqlMember &= " Mem_Name='" & txtName.Text & "',"
047.                    sqlMember &= " Address='" & txtAddress.Text & "',"
048.                    If OptMale.Checked = True Then
049.                        sqlMember &= " Sex='M',"
050.                    ElseIf OptFemale.Checked = True Then
051.                        sqlMember &= " Sex='F',"
052.                    End If
053. 
054.                    sqlMember &= " Tel='" & txtTel.Text & "',"
055.                    sqlMember &= " PositionID='" & CStr(cboPosition.SelectedValue) & "'"
056.                    sqlMember &= " WHERE (MemberID='" & lblMemID.Text & "')"
057.            End Select
058. 
059.            With Conn
060.                If .State = ConnectionState.Open Then .Close()
061.                .ConnectionString = strConn
062.                .Open()
063.            End With
064. 
065. 
066.            If ActionFlag = "Add" Then
067.                tmpMSG = "คุณต้องการเพิ่มข้อมูล ใช่หรือไม่ ?"
068.            ElseIf ActionFlag = "Edit" Then
069.                tmpMSG = "คุณต้องการแก้ไขข้อมูล ใช่หรือไม่ ?"
070.            End If
071. 
072.            If MessageBox.Show(tmpMSG, "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
073.                With comMember
074.                    .CommandType = CommandType.Text
075.                    .CommandText = sqlMember
076.                    .Connection = Conn
077.                    .ExecuteNonQuery()
078.                End With
079.            End If
080.        Catch ErrProcess As Exception
081.            MessageBox.Show("ไม่สามารถเพิ่มสมาชิกใหม่ได้ เนื่องจาก " & ErrProcess.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
082.            Exit Sub
083.        End Try
084. 
085.        MessageBox.Show("บันทึกลงฐานข้อมูล เรียบร้อยแล้ว !!!", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
086. 
087.        grbSearch.Enabled = True
088. 
089.        ControlStatus(False)
090. 
091.        btnAdd.Enabled = False
092.        btnEdit.Enabled = False
093. 
094.        btnSave.Visible = False
095.        btnCancel.Visible = False
096.        ClearData()
097.        grdEquipNotReturn.DataSource = Nothing
098. 
099.        btnPrint.Enabled = False
100. 
101.        cmdMoveFirst.Enabled = False
102.        cmdMovePrevious.Enabled = False
103.        cmdMoveNext.Enabled = False
104.        cmdMoveLast.Enabled = False
105. 
106.        lblShowPositions.Text = ""
107.        txtSearch.Text = ""
108.        txtSearch.Focus()
109.    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,590 )
บทความ ( 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)
1.dim sql as string
2.sql = "INSERT INTO OT(No_OT,Date_OT)"
3.sql &= " VALUES('{0}','{1}'"
4.sql = String.Format(sql,lblNo_OT.Text,Format(Otdate.text,"MM/dd/yyyy")


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

Code (VB.NET)
1.dim sql as string
2.sql = "INSERT INTO OT(No_OT,Date_OT)"
3.sql &= " VALUES("
4.sql &= "'" & lblNo_OT.Text & "'"
5.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)
01.Dim dtset As New DataSet()
02.If code.Text = "" Then
03. 
04.    bname.Text = ""
05.    gtype.Text = ""
06.    gday.Text = ""
07.    gnum.Text = ""
08.    price.Text = ""
09. 
10.    MsgBox("กรุณากรอกข้อมูลให้ครบด้วยทุกช่องด้วย", MsgBoxStyle.Information, "ระะบบแจ้งเตือน")
11. 
12.Else
13.    ds.Clear()
14.    Dim cn As New OleDbCommandBuilder(da)
15.    objcurrencymanager.EndCurrentEdit()
16.    Dim irecordchanged As Integer = da.Update(ds, "st_save")
17.    MsgBox("บันทึกข้อมูลสมาชิกลงฐานข้อมูลเรียบร้อยแล้ว" & ControlChars.Lf & _
18.            "จำนวนเรคคอร์ดที่มีการเปลี่ยนแปลงเท่ากับ " & irecordchanged & " เรคคอร์ด", _
19.            , "บันทึกข้อมูลสมาชิก")
20.    dtset.Clear()
21.    code.Text = ""
22.    bname.Text = ""
23.    gtype.Text = ""
24.    gday.Text = ""
25.    gnum.Text = ""
26.    price.Text = ""
27.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)
01.Dim sqlADD As String 'เก็บคำสั่ง sql สำหรับเพิ่มข้อมูล
02.Dim cm As New StdPicture
03.sqlADD = "INSERT INTO "
04.sqlADD = "INSERT INTO vacancies_Job(code,order,Product_Name,number,Tel,send,mail,address)"
05.sqlADD = "VALUES ('" & code.Text & "','" & order.Text & "','" & Product_Name.Text & "','" & Tel.Text & "','" & send.Text & "','" & mail.Text & "','" & address.Text & "',)"
06.'ใช้ oledbcommand ในการเพิ่มข้อมูล
07.With cm
08.    .CommandType = CommandType.Text
09.    .CommandText = sqlADD
10.    .Connection = Conn
11.    .Transaction = tr
12.    .Execute NonQuery()
13.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)
01.Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
02. 
03.       Try
04. 
05.           If txtCusID.Text = "" Then
06.               MessageBox.Show("Please Select Data", "Update", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
07.               txtCusID.Focus()
08.               Exit Sub
09.           End If
10.           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)
11.           cm.Parameters.AddWithValue("@FileNo", txtFileNo.Text)
12.           cm.Parameters.AddWithValue("@Date", Format(CDate(dtpDate.Text), "yyyy-MM-dd"))
13.           cm.Parameters.AddWithValue("@CustomerID", txtCusID.Text)
14.           cm.Parameters.AddWithValue("@CustomerName", txtCusName.Text)
15.           cm.Parameters.AddWithValue("@TypeName", cbType.Text)
16.           cm.Parameters.AddWithValue("@FileID", txtFileID.Text)
17.           cm.Parameters.AddWithValue("@FileName", txtFileName.Text)
18.           cm.Parameters.AddWithValue("@FilePath1", txtSave1.Text)
19.           cm.Parameters.AddWithValue("@FilePath2", txtSave2.Text)
20.           cm.Parameters.AddWithValue("@FilePath3", txtSave3.Text)
21.           cm.Parameters.AddWithValue("@Remark", txtRemark.Text)
22.           cm.ExecuteNonQuery()
23. 
24. 
25.           MessageBox.Show("Update successful", "Update", MessageBoxButtons.OK, MessageBoxIcon.Information)
26. 
27.           ShowFile()
28.           AutoFileNo()
29.           AllClear()
30.       Catch ex As Exception
31. 
32.       End Try
33.   End Sub

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


 

No. 33



โพสกระทู้ ( 9,590 )
บทความ ( 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,590 )
บทความ ( 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,590 )
บทความ ( 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-2025 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่