หน้าแรก
 การบ้าน
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  แจ้งเรื่องที่ต้องการ
 บทความ
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 แบบเรียนฟรี
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 ซอร์สโค้ด
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 บริการจากเรา
  เปิดท้าย... ขายโค้ด
  DoodeeHosting
  รับออกแบบ พัฒนาเว็บไซต์
  Freeware
  อัตราค่าโฆษณา
  รายชื่อลูกค้า
  สถิติผู้เข้าเว็บ
 ดาว์นโหลด
 ค้นหาข้อมูล
 กระดานสนทนา
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
  อื่นๆ
 กระดานงาน
 ลิงค์เว็บ
 เกี่ยวกับผม
 อัตราค่าโฆษณา
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
โปรแกรมเบอร์ดี (BerDee)
โปรแกรมเบอร์ดี (Android)
เกมส์เป่ายิ้งฉุบ
เกมส์เป่ายิ้งฉุบ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ติดต่อสอบถามมาได้ตลอดนะ...
2015-07-29 13:35:58
  ถ้าผมต้องการเว็บที่พัฒน...
2015-01-18 15:33:54
  ถ้าผมต้องการเว็บที่พัฒน...
2015-01-18 15:32:51
  ติดต่อสอบถามเข้ามาได้นะ...
2014-01-06 12:47:38
  ถ้ายังหาคนสอนไม่ได้ ก็ลอ...
2013-07-06 01:04:37
  สนใจส่งขอบเขตมาคุยราคาก...
2013-03-24 18:54:20
  ถ้ายังไม่มีคนรับงานติดต...
2012-12-16 19:18:14
  สนใจคะ ติดต่อ 0905076277...
2012-11-12 11:07:46
  รับทำโปรเจ็คนักศึกษาหรื...
2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  ขอดู...
2021-01-04 23:56:45
  ขอโค้ดเพ...
2020-12-09 23:02:09
  แล้ว ?...
2020-12-09 10:56:34
  จ้า...
2020-10-18 16:53:21
  พอดีผมเห...
2020-05-31 21:49:43
  ช่วย แสดง...
2020-04-27 11:21:00
  ได้การบ้...
2020-04-27 11:18:56
  ได้การบ้...
2020-04-27 11:02:44
  <a href="https://www.g...
2020-03-10 17:07:03
  ไม่อยากเ...
2020-03-10 17:05:36
  Homework comment
  โจทย์การบ้าน c++ เขียนรูปแ...
2020-04-06 11:01:33
  แบบนี้ขอเป็น ภาษา php หน่อย...
2019-09-18 14:36:34
  ผมไม่อยากให้คุณได้คะแนน...
2019-04-27 01:29:07
  อาจารย์เขาบอกแนวข้อสอบม...
2019-04-27 00:44:29
  ขอสอบถามการเขียน c++ ครับ เ...
2018-04-02 12:19:21
  โค้ดตัวอย่างศึกษาให้เข้...
2017-11-26 14:50:05
  คำนวณค่าน้ำโดยรับค่ามิเ...
2017-11-20 23:15:26
  ขอบคุณมากครับ...
2017-08-16 18:27:25
  ทำเอง งง เอง กะลังทำใหม่ค...
2017-04-18 18:40:46
  ทำเอง งง เอง กะลังทำใหม่ค...
2017-04-18 18:37:54
  Article comment
  ต้องการ ให้เขียน โปรแกรม ...
2019-12-09 11:39:58
  รับเขียน arx จาก vc++ 2017 ล็อคโปร...
2019-09-19 09:48:09
  ทำการ register ไฟล์ที่ชื่อ mswinsck.oc...
2019-09-17 14:05:56
  ใน vb 6 ไม่มี component winsock เลยค่ะ ส...
2019-09-03 10:31:02
  รบกวนขอสอบถามหน่อยนะครั...
2019-03-04 05:31:04
  สามารถนำตัวหนังสือจากภา...
2018-12-25 08:54:32
  มีcode ของ VB ไหมค่ะ ถ้ามีรบกว...
2017-09-28 16:50:02
  น่าจะได้ครับ ไม่เคยลอง
...

2017-07-11 09:59:35
  สามารถใช้ต่อกับ anycast ได้ไห...
2017-07-05 10:12:35
  ครับ คุณ "ติด" แล้วลองนึกต...
2016-06-18 15:21:09
  9Mcode comment
  อยากได้...
2014-02-21 08:52:19

Link Exchange

อัตราค่าโฆษณา
Statistics of Sourcecode in Thailand
 
 Webboard

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

กระทู้ #2813 [Vb]

อยากได้โค้ด ปุ้ม บันทีก ลบ แก้ไข

ช่อยหน่อยนะครับ....ต้องการมากเลย จะทำโปรแกรมให้ได้ 80% ก่อน วันที่ 26 กุมภา 2553 อ่ะครับ.....ช่วยหน่อยนะครับ พี่ๆๆๆ
จากคุณ : crvtom / crvtom@hotmail.com [2010-02-15 02:20:43]  

119.42.80.100 ความคิดเห็น #27795 (จาก IP: 119.42.80.100)
โค้ด VB 2005 นะครับ
จากคุณ : crvtom / crvtom@hotmail.com [2010-02-15 02:29:10]

203.144.240.232 ความคิดเห็น #27796 (จาก IP: 203.144.240.232)
ผมรับทำให้ใหมครับ ถ้า 80 % 3 วันเสร็จพร้อมสอน CODE
cshnet_dotnet@hotmail.com
จากคุณ : WINCOMMON [2010-02-16 20:06:27]

61.7.134.4 ความคิดเห็น #27797 (จาก IP: 61.7.134.4)
คิดในราคาเท่าไร.....ครับ ....อยาก ทราบก่อน อ่ะครับ.....
จากคุณ : crvtom [2010-02-16 20:30:45]

113.53.79.64 ความคิดเห็น #27798 (จาก IP: 113.53.79.64)
ผมสอนเอาๆไหม

.net สินะ ฟรี ๆ ครับ

แอดมาเลย ๆ

k1nGdOm_h4ck@hotmail.com
จากคุณ : ปาล์ม / k1nGdOm_h4ck@hotmail.com [2010-02-16 20:48:13]

119.42.125.84 ความคิดเห็น #27800 (จาก IP: 119.42.125.84)
ขอบคุณครับ แอด..ไปแล้วนะครับ.....^^
จากคุณ : crvtom [2010-02-16 23:02:43]

203.158.196.192 ความคิดเห็น #28058 (จาก IP: 203.158.196.192)
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Public Class frmOne
Dim myConn As New SqlConnection
Dim myCom As New SqlCommand
Dim myDa As SqlDataAdapter
Dim myDs As New DataSet
Dim myDr As SqlDataReader
Dim myTs As SqlTransaction
Dim strCon As String = ConfigurationManager.ConnectionStrings("workproject.My.MySettings.myDB").ConnectionString
Dim strSql As String
Dim ID As String
Dim bb As Integer


Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
If MessageBox.Show("คุณต้องการออกจากโปรแกรม", " กรุณาตรวจสอบ", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
Me.Close()
End If
End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
ID = "insert"
txtUser.Enabled = True
txtPass.Enabled = True
txtName.Enabled = True
txtLname.Enabled = True
txtTel.Enabled = True
txtAddress.Enabled = True
btnAdd.Enabled = True
btnUpdate.Enabled = False
btnDelete.Enabled = False
btnSave.Enabled = True
btnCancel.Enabled = True

txtUser.Clear()
txtPass.Clear()
txtName.Clear()
txtLname.Clear()
txtTel.Clear()
txtAddress.Clear()
txtUser.Focus()

End Sub

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

Dim r As Integer
Dim n As String


If txtUser.Text.Trim = "" Then ' คำสั่งตรวจสอบชื่อเข้าใช้ซ้ำกันในฐานข้อมูลและเช็คค่าว่าง
MessageBox.Show("ชื่อเข้าใช้ซ้ำกรุณาป้อนชื่อใหม่")
Exit Sub
txtUser.Focus()
ElseIf txtPass.Text.Trim = "" Then
MessageBox.Show("กรุณาป้อนรหัสผ่าน")
Exit Sub
txtPass.Focus()
ElseIf txtName.Text.Trim = "" Then
MessageBox.Show("กรุณาป้อนชื่อ")
Exit Sub
txtName.Focus()
ElseIf txtLname.Text.Trim = "" Then
MessageBox.Show("กรุณาป้อนนามสกุล")
Exit Sub
txtLname.Focus()
ElseIf txtTel.Text.Trim = "" Then
MessageBox.Show("กรุณาป้อนเบอร์โทรศัพท์")
Exit Sub
txtTel.Focus()
ElseIf txtAddress.Text.Trim = "" Then
MessageBox.Show("กรุณาป้อนที่อยู่")
Exit Sub
txtAddress.Focus()

Else

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

myConn.Open()
myTs = myConn.BeginTransaction
myCom = New SqlCommand
myCom.Connection = myConn
myCom.Transaction = myTs

If radAdmin.Checked = True Then
n = radAdmin.Text
ElseIf radAdmis.Checked = True Then
n = radAdmis.Text
Else
n = radEmp.Text
End If


If ID = "insert" Then
strSql = "insert into User_System values(@User_ID,@User_pass,@User_name,@User_Lname,@Tel,@Address,@Ustatus)"
MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "Succesed...", MessageBoxButtons.OK, MessageBoxIcon.Information)
ElseIf ID = "update" Then
strSql = "update User_System set User_pass = @User_pass,User_name = @User_name,User_Lname = @User_Lname,Tel = @Tel,Address = @Address,Ustatus = @Ustatus where User_ID = @User_ID"
MessageBox.Show("แก้ไขข้อมูลเรียบร้อยแล้ว")
End If

End If
myCom.Parameters.Clear()
myCom.Parameters.AddWithValue("@User_ID", txtUser.Text)
myCom.Parameters.AddWithValue("@User_pass", txtPass.Text)
myCom.Parameters.AddWithValue("@User_name", txtName.Text)
myCom.Parameters.AddWithValue("@User_Lname", txtLname.Text)
myCom.Parameters.AddWithValue("@Tel", txtTel.Text)
myCom.Parameters.AddWithValue("@Address", txtAddress.Text)
myCom.Parameters.AddWithValue("@Ustatus", n)

myCom.CommandText = strSql
r = myCom.ExecuteNonQuery
myTs.Commit()
txtUser.Enabled = True

myConn.Close()


txtUser.Enabled = False
txtPass.Enabled = False
txtAddress.Enabled = False
txtLname.Enabled = False
txtTel.Enabled = False
txtName.Enabled = False


frmOne_Load(sender, e)
txtUser.Clear()
txtPass.Clear()
txtName.Clear()
txtLname.Clear()
txtTel.Clear()
txtAddress.Clear()
radAdmin.Checked = False
radAdmis.Checked = False
radEmp.Checked = False

End Sub

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Me.Close()

End Sub

Private Sub frmOne_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

txtUser.Enabled = False
txtPass.Enabled = False
txtName.Enabled = False
txtLname.Enabled = False
txtTel.Enabled = False
txtAddress.Enabled = False

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

myConn.ConnectionString = strCon
myConn.Open()

strSql = "select User_ID,User_name,User_Lname,Tel,Address,Ustatus from User_System"
myDa = New SqlDataAdapter(strSql, myConn)
myDs = New DataSet
myDs.Clear()
myDa.Fill(myDs, "tbUser")
dgvData.DataSource = myDs.Tables("tbUser")

dgvData.Columns(0).HeaderText = "ชื่อเข้าใช้"
dgvData.Columns(1).HeaderText = "ชื่อ"
dgvData.Columns(2).HeaderText = "นามสกุล"
dgvData.Columns(3).HeaderText = "เบอร์โทร"
dgvData.Columns(4).HeaderText = "ที่อยู่"
dgvData.Columns(5).HeaderText = "สถานะ"

dgvData.Columns(0).Width = 100
dgvData.Columns(1).Width = 100
dgvData.Columns(2).Width = 100
dgvData.Columns(3).Width = 80
dgvData.Columns(4).Width = 250
dgvData.Columns(5).Width = 80

Label12.Text = status
Label13.Text = nl
End Sub



Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
Dim r As Integer

If myConn.State = ConnectionState.Open Then
myConn.Close()
End If
myConn.ConnectionString = strCon
myConn.Open()

strSql = "delete from User_System where User_ID = '" & txtUser.Text & "'"
If MessageBox.Show("คุณต้องการลบข้อมูล", "Delete...", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
myCom = New SqlCommand
myCom.CommandType = CommandType.Text
myCom.CommandText = strSql
myCom.Connection = myConn
r = myCom.ExecuteNonQuery()

frmOne_Load(sender, e)
End If

End Sub


Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
ID = "update"
btnAdd.Enabled = False
btnUpdate.Enabled = True
btnDelete.Enabled = False
btnSave.Enabled = True
btnExit.Enabled = True
btnCancel.Enabled = True

txtUser.Enabled = False
txtPass.Enabled = True
txtName.Enabled = True
txtLname.Enabled = True
txtTel.Enabled = True
txtAddress.Enabled = True

txtPass.Focus()

End Sub

Private Sub dgvData_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellClick

rowdgv = dgvData.Rows(e.RowIndex).Cells(0).Value
If dgvData.Rows.Count > 0 Then

txtUser.Text = dgvData.Rows(e.RowIndex).Cells(0).Value
txtName.Text = dgvData.Rows(e.RowIndex).Cells(1).Value
txtLname.Text = dgvData.Rows(e.RowIndex).Cells(2).Value
txtTel.Text = dgvData.Rows(e.RowIndex).Cells(3).Value
txtAddress.Text = dgvData.Rows(e.RowIndex).Cells(4).Value


If dgvData.Rows(e.RowIndex).Cells(5).Value = "ผู้ดูแลระบบ" Then
radAdmin.Checked = True
ElseIf dgvData.Rows(e.RowIndex).Cells(5).Value = "ผู้บริหาร" Then
radAdmis.Checked = True
Else
radEmp.Checked = True
End If
End If
End Sub

Private Sub txtPass_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPass.KeyPress
Select Case Asc(e.KeyChar)
Case 47 To 58
e.Handled = False
Case 8, 13, 46 ' Backspace = 8, Enter = 13, Delete = 46
e.Handled = False
Case Else
e.Handled = True
End Select

End Sub

Private Sub txtTel_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTel.KeyPress
Select Case Asc(e.KeyChar)
Case 47 To 58
e.Handled = False
Case 8, 13, 46 ' Backspace = 8, Enter = 13, Delete = 46
e.Handled = False
Case Else
e.Handled = True
End Select
End Sub
End Class
จากคุณ : notipe / nichi-yobi@msn.com [2010-11-24 16:31:17]

203.158.196.192 ความคิดเห็น #28059 (จาก IP: 203.158.196.192)
ก็ประมาณนี้นะค่ะ เพิ่ม ลบ แก้ไข ข้อมูลได้
เพราะตอนนี้ทำโปรเจค ใช้ vb.net เขียนอยู่ เชื่อมกับ sqlServer 2005 อยู่ค่ะ
จากคุณ : notipe / nichi-yobi@msn.com [2010-11-24 16:47:37]

223.205.89.195 ความคิดเห็น #28065 (จาก IP: 223.205.89.195)
ขอบคุณ มากนะครับ ..... ทุกๆๆท่านเลยนะครับ......โค้ดบันทึกแก้ไขลบ ได้หมดแล้วครับ แต่ เหลือ ออกรายงาน คลิทตรันรีพอร์ท ....ครับ ออกไม่ได้ เลย ช่วย หน่อยได้ไมครับ ^^
จากคุณ : crvtom / crvtom@hotmail.com [2010-11-30 18:56:25]

110.78.178.116 ความคิดเห็น #29175 (จาก IP: 110.78.178.116)
มีใครพอจะแปลงเป็น C# ได้บ้างครับ
อยากได้
จากคุณ : kan / kan.ounkaew@gmail.com [2014-12-09 09:34:39]
ตอบกระทู้
  • ห้ามการโฆษณา หากต้องการติดต่อหาลูกค้า ติดต่อโฆษณาโดยตรงได้ที่ webmaster@sourcecode.in.th
  • ห้ามใช้คำหยาบและคำพูดที่ไม่เหมาะสม
  • ขอสงวนสิทธิหากตรวจพบ ข้อความที่ไม่เหมาะสม ข้อความนั้นจะถูกลบทันที
ชื่อ
อีเมล์
รายละเอียด

- - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -

 
 
หัวแปลง Mini DisplayPort to HDMI Adapter หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
หัวแปลง Mini DisplayPort to HDMI Adapter สำหรับเครื่อง macbook air/pro, mac mini
คลิปสอนเขียนโปรแกรม
เรียนเขียนโปรแกรมดอทเน็ต
เรียนเขียนโปรแกรมแอนดรอยด์
เรียนเขียนโปรแกรมเบล็คเบอร์รี่
เรียนเขียนโปรแกรมซี ซีพลัสพลัส
เรียนเขียนโปรแกรมจาวา
เรียนการใช้งานลินุกส์
เรียนการเขียนโปรแกรมวินโดว์โฟน
เรียนการเขียนโปรแกรมพีเฮชพี มายเอสคิวเอล
9M Blog บอกเล่าเรื่องราว การเขียนโปรแกรมของ นายเอ็ม
บริการ ถ่ายภาพรับปริญญา
อัตราค่าโฆษณา
 
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
แบบสำรวจ
Freelance รับพัฒนาโปรแกรม

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

สงวนลิขสิทธิ์ ห้ามคัดลอก ทำซ้ำ แก้ไข ดัดแปลง ไม่ว่าในรูปแบบใด โดยไม่ได้รับอนุญาตเป็นลายลักษณ์อักษร
เลขทะเบียนพาณิชย์อิเล็กทรอนิกส์จากกระทรวงพาณิชย์: 7100503002000
Copyright 2001 SourceCode.in.th