Forgot Password ??

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

	Registered : 109,037

HOME > .NET Framework > Forum > ของ code การบันทึก วันที่ลง datebase โดยเก็บเป็น date และ code โชว์ใน DataGridView

ของ code การบันทึก วันที่ลง datebase โดยเก็บเป็น date และ code โชว์ใน DataGridView

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

golf

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

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Try
If status = "add" Then
If mstphone.Text <> "" And Txtname.Text <> "" And Txtaddress.Text <> "" Then

cm = New MySqlCommand
Dim strinsert As String = "insert into member value('"
strinsert &= Txtid.Text & "','"
strinsert &= Txtname.Text & "','"
strinsert &= Txtaddress.Text & "','"
strinsert &= mstPhone.Text & "','"
strinsert &= dtpMb.Text & "')"

connection()

With cm
.CommandType = CommandType.Text
.CommandText = strinsert
.Connection = conn
.ExecuteNonQuery()

MessageBox.Show("เพิ่มข้อมูลเรียบร้อยแล้วค่ะ", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Question)
End With

openbtn()
closetxt()
showdata()
dtgmember.Enabled = True
MessageBox.Show("ระบบได้จัดเก็บข้อมูลเรียบร้อยแล้ว")
Else

MessageBox.Show("คุณกรอกข้อมูลไม่ครบค่ะ", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Question)

End If

ElseIf status = "edit" Then
If mstPhone.Text <> "" And Txtname.Text <> "" And Txtaddress.Text <> "" Then
Dim strupdate As String = " update member set mb_name='"
strupdate &= Txtname.Text & "',mb_address='"
strupdate &= Txtaddress.Text & "',mb_tel='"
strupdate &= mstPhone.Text & "',mb_date='"
strupdate &= dtpMb.Text & "'where mb_id='"
strupdate &= Txtid.Text & "'"

connection()

With cm
.CommandType = CommandType.Text
.CommandText = strupdate
.Connection = conn
.ExecuteNonQuery()
MessageBox.Show("แก้ไขข้อมูลเรียบร้อยแล้ว !!!")
End With
showdata()
status = "save"
closetxt()
openbtn()
MessageBox.Show("ระบบได้จัดเก็บข้อมูลเรียบร้อยแล้ว")
dtgmember.Enabled = True
Else
MessageBox.Show("กรุณากรอกข้อมูลให้ครบด้วยนะคะ")
Txtname.Focus()

End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub

Sub showdata()

Try
Dim strselect As String = " select * from member " ' ประกาศตัวแปล Select
connection()
ds.Clear()

With da ' dataAdapter
.SelectCommand = New MySqlCommand(strselect, conn)
.Fill(ds, "member") ' data set ที่อยู่ในตาราง
End With
With dtgmember ' show dgv
.DataSource = ds.Tables("member")
.Columns(0).HeaderText = "รหัสสมาชิก"
.Columns(1).HeaderText = "ชื่อ-นามสกุล"
.Columns(2).HeaderText = "ที่อยู่"
.Columns(3).HeaderText = "เบอร์โทรศัพท์"
.Columns(4).HeaderText = "วันท่ีเป็นสมาชิก"
.Columns(0).Width = 100
.Columns(1).Width = 100
.Columns(2).Width = 220
.Columns(3).Width = 100
.Columns(4).Width = 120
.AllowUserToAddRows = False ' ไม่ยอมให้ add ใน dgv
.AllowUserToResizeColumns = False ' ไม่มีการปรับตาราง
.AllowUserToResizeColumns = False
.AllowUserToResizeRows = False
.ReadOnly = True
.Show()
End With

Catch ex As Exception

End Try
End Sub

Tag : .NET, VB.NET, VS 2010 (.NET 4.x)

Date : 2011-11-01 16:17:53

By : golfcs

View : 943

Reply : 4

No. 1

golf

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

ช่วยดูให้หน่อยคับ มันไม่เก็บลง datebase

Date : 2011-11-01 16:19:16

By : golfcs

No. 2

T-BEK

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

Dim strinsert As String = "insert into member value('"
strinsert &= Txtid.Text & "','"
strinsert &= Txtname.Text & "','"
strinsert &= Txtaddress.Text & "','"
strinsert &= mstPhone.Text & "','"
strinsert &= dtpMb.Text & "')"

=>VALUES

Date : 2011-11-01 16:52:26

By : unlum

No. 3

vbcrazy

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

ผิดตรง SQL Statement อะครับ

INSERT INTO member (column1,column2,column3) VALUES ('" & Txtid.Text & "','" & Txtname.Text & "',...)

Date : 2011-11-01 22:56:24

By : vbcrazy

No. 4

Mr.com

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

เรียน ม.อุบลใช้ปะ เขียนcode แบบนี้

Date : 2011-11-02 10:23:04

By : Testprogram

ค้นหาข้อมูล

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

Re : ของ code การบันทึก วันที่ลง datebase โดยเก็บเป็น date และ code โชว์ใน DataGridView

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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