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

Registered : 108,457

HOME > .NET Framework > Forum > VB 2010 กับ Access 2007 บันทึกข้อมูลแล้วไม่ลงฐานข้อมูล



 

VB 2010 กับ Access 2007 บันทึกข้อมูลแล้วไม่ลงฐานข้อมูล

 



Topic : 108741



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



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




ผมทำตาม



แล้วทำไมเวลาผมกดบันทึกข้อมูล ใหม่ต่อลงไป พอปิดโปรแกรมเปิดใหม่ ข้อมูลผม ไม่ได้เพิ่มลงไปเลยในฐานข้อมูล access

แนะนำทีครับ งง กำลังศึกษา VB ครับ

ขอบคุณครับ



Tag : .NET, Ms Access, VB.NET, Windows







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2014-05-29 11:02:18 By : akarawoot View : 7533 Reply : 11
 

 

No. 1



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



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


เอาโค๊ดมาดูหน่อยครับ พอดีที่ทำงาน บล๊อค Youtube อะครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-05-29 11:06:27 By : CPU4Core
 


 

No. 2



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



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


Code (VB.NET)
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'TelbookDataSet.Table1' table. You can move, or remove it, as needed.
        Me.Table1TableAdapter.Fill(Me.TelbookDataSet.Table1)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Table1BindingSource.AddNew()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Table1BindingSource.RemoveCurrent()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Table1BindingSource.EndEdit()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Table1TableAdapter.Update(TelbookDataSet.Table1)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Table1BindingSource.MovePrevious()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Table1BindingSource.MoveNext()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.Close()
    End Sub
End Class



นี่ครับง่ายๆ พอบันทึกมันก็ใส่ลงฐานข้อมูลให้ครับ แต่พอปิดเปิดใหม่ไม่ลงฐานข้อมูล Access
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-05-29 11:13:07 By : akarawoot
 

 

No. 3

Guest


มันไม่บันทึกลง Access อ่ะครับ พอปิดโปรแกรมแล้วลองไปเปิด access ดูกลับพบว่าข้อมูลเหมือนเดิม ไม่ได้บันทึกใหม่เลย
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-05-29 11:17:57 By : Mr.Beer
 


 

No. 4



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



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


ผมีตัวอย่างนึงเป็นการ ใช้ VB2010 + MSACCESS2007

เหมือนกับของคุณ แต่มันมีแค่ TEXTBOX กับ ปุ่มกด อย่างละอัน

พอดีผมทำให้น้องคนนึงดูตัวอย่างอะครับ

ลองโหลดไปศึกษาดูนะครับ

ปล มันเป็นไฟล์ proj ของ VB เลยะนะครับ

http://www.upload-thai.com/dl/275a8eec03178287a924aab65172f58b

ปล ผมไม่ค่อยได้เขียนตามวิธีที่คุณถามอะครับ เลยตอบไม่ได้ แหะ ๆ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-05-29 11:25:21 By : CPU4Core
 


 

No. 5



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



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


ขอบคุณสำหรับแนวทางครับ แต่ผมยังคล่องใจระหว่างเลือกฐานข้อมูล MySQL ดี หรือ Access ดีครับ

จะใช้ต่อไป อันไหนอนาคตสดใสกว่า
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-05-29 13:09:37 By : akarawoot
 


 

No. 6



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



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


ถ้าอยากจะ ใช้เป็นแนว Server หลาย ๆเครื่องใช้ ฐานเดียวกัน ก็ MySQL

แต่ถ้า StandAlone ก็ Access ก็ได้ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-05-29 13:13:58 By : CPU4Core
 


 

No. 7

Guest


เกิดจากอะไร เป็นเหมือนกัน
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-10-30 01:09:23 By : vinai55
 


 

No. 8

Guest


ดูจากคำสั่งจากปุ่มต่าง ๆ แล้ว ... มันก็ไม่น่าที่จะบันทึกข้อมูลลงไปใน Database ได้นะครับ เพราะทุกปุ่ม ดูแล้ว ยังขาดคำสั่ง เช่น

Table1TableAdapter.Name = textbox1.text
Table1TableAdapter.SurName = textbox2.text
Table1TableAdapter.Id = textbox3.text
Table1TableAdapter.Address = textbox4.text
Table1TableAdapter.Tel = textbox5.text

ประมาณนี้ครับ เพราะว่าในการบันทึกข้อมูลแบบนี้คุณต้องกดปุ่ม 2 ปุ่มเพื่อรับข้อมูลคือ

Button1_Click เพราะมีคำสั่ง .AddNew

และ Button3_Click เพราะมีคำสั่ง .Update

จริง ๆ แล้วน่าจะเป็นคำสั่งที่อยู่ในปุ่มเดียวกันดังนี้ครับ


Table1BindingSource.AddNew
Table1TableAdapter.Name = textbox1.text
Table1TableAdapter.SurName = textbox2.text
Table1TableAdapter.Id = textbox3.text
Table1TableAdapter.Address = textbox4.text
Table1TableAdapter.Tel = textbox5.text
Table1BindingSource.Update
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-10-30 06:51:02 By : ละอ่อน
 


 

No. 9



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



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

ตอบความคิดเห็นที่ : 7 เขียนโดย : vinai55 เมื่อวันที่ 2016-10-30 01:09:23
รายละเอียดของการตอบ ::
ถ้าใช้ TableAdapter จะไปยากอะไรละครับ
ลาก data มาลงในฟอร์มมันก็จะมี Navigator มาให้อยู่แล้ว
โค้ดเดียวสำหรับ save(inser/update/delete) ก็มีกันยุแค่เนี๊ยะ
Code (C#)
this.Validate();
this.sett_Post_ProvinceBindingSource.EndEdit();
this.tableAdapterManager.UpdateAll(this.postCodeDataSet);

https://www.thaicreate.com/community/csharp-database-display-wizard-ban-ban.html


ตอบความคิดเห็นที่ : 8 เขียนโดย : ละอ่อน เมื่อวันที่ 2016-10-30 06:51:02
รายละเอียดของการตอบ ::
Table1TableAdapter เป็น TableAdapter ครับ
มันไม่มีของแบบนั้นตั้งแต่แรกอยู่แล้ว ครับ
เพราะจะใช้ Binding ใน TextBox แทน


ตอบความคิดเห็นที่ : 2 เขียนโดย : akarawoot เมื่อวันที่ 2014-05-29 11:13:07
รายละเอียดของการตอบ ::
หากเอาโค้ดนี้มาแก้แบบบ้านๆก็จะได้ประมาณนี้
Code (C#)
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
me.Validate()      
Table1BindingSource.EndEdit()'ชื่ออะไรก็ว่ากันไป
Table1TableAdapter.UpdateAll(this.DataSet)'ชื่ออะไรก็ว่ากันไป
End Sub






ปล.ทั้งนี้ ก็ต้อง ทำ Binding ใน TextBox หรือ control ต่างๆด้วยนะครับถึงจะใช้ตามที่บอกได้ผล
คำตอบแบบบ้านๆก็น่าจะประมาณนั้นแหละครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-10-30 11:09:37 By : lamaka.tor
 


 

No. 10

Guest


Code
Imports System.Data.SqlClient

Public Class frm_add

Private Sub btt_add1_Click(sender As Object, e As EventArgs) Handles btt_add1.Click
Dim cn As New SqlConnection("Server=MR-TFP3T1B2E2IJ\SQLEXPRESSS; Database = 603data; Integrated Security=true")
Dim sql As String
Dim cmd As New SqlCommand
If txt_add_id.Text = "" Or txt_add_number.Text = "" Or txt_add_sex.Text = "" Or txt_add_name.Text = "" Or txt_add_lastname.Text = "" Or txt_add_nickname.Text = "" Or txt_add_birthday.Text = "" Or txt_add_blood.Text = "" Or txt_add_nationality.Text = "" Or txt_add_origin.Text = "" Or txt_add_religion.Text = "" Or txt_add_sex2.Text = "" Or txt_add_weight.Text = "" Or txt_add_height.Text = "" Or txt_add_id13.Text = "" Or txt_add_address.Text = "" Or txt_add_tumbol.Text = "" Or txt_add_district.Text = "" Or txt_add_province.Text = "" Or txt_add_zipcode.Text = "" Or txt_add_numberphone.Text = "" Or txt_add_motto.Text = "" Or txt_add_email.Text = "" Or txt_add_facebook.Text = "" Or txt_add_lineee.Text = "" Or txt_add_ig.Text = "" Then
MessageBox.Show("กรุณากรอกข้อมูลให้ครบด้วยครับ..", "คำเตือน", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning)
Else
MessageBox.Show("คุณต้องการบันทึกข้อมูลใช่หรือไม่?", "ยืนยัน", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

sql = "insert into 603tb(id,number,sex,name,lastname,nickname,birthday,blood,nationality,origin,religion,sex2,weight,height,id13,address,tumbol,district,province,zipcode,phonenumber,motto,email,facebook,line,ig)"
sql &= " values ( '" & txt_add_id.Text & "','" & txt_add_number.Text & "','" & txt_add_sex.Text & "','" & txt_add_name.Text & "','" & txt_add_lastname.Text & "','" & txt_add_nickname.Text & "','" & txt_add_birthday.Text & "','" & txt_add_blood.Text & "','" & txt_add_nationality.Text & "','" & txt_add_origin.Text & "','" & txt_add_religion.Text & "','" & txt_add_sex2.Text & "','" & txt_add_weight.Text & "','" & txt_add_height.Text & "','" & txt_add_id13.Text & "','" & txt_add_address.Text & "','" & txt_add_tumbol.Text & "','" & txt_add_district.Text & "','" & txt_add_province.Text & "','" & txt_add_zipcode.Text & "','" & txt_add_numberphone.Text & "','" & txt_add_motto.Text & "','" & txt_add_email.Text & "','" & txt_add_facebook.Text & "','" & txt_add_lineee.Text & "','" & txt_add_ig.Text & "')"
With cmd
.CommandType = CommandType.Text
.CommandText = sql
.Connection = cn
.ExecuteNonQuery()
End With
MessageBox.Show("เพิ่มข้อมูลเรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

End Sub

Private Sub btt_add2_Click(sender As Object, e As EventArgs) Handles btt_add2.Click
frm_main.Show()
Me.Close()
End Sub
End Class

ช่วยหน่อยค่ารันไม่ผ่านสักที ติดตรง .ExecuteNonQuery()
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-03-11 02:31:47 By : ช่วยหน่อยต้องส่งงานพุ่งนี้แล้ว
 


 

No. 11



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



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

Error ว่า
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-03-11 13:07:12 By : lamaka.tor
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : VB 2010 กับ Access 2007 บันทึกข้อมูลแล้วไม่ลงฐานข้อมูล
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม , รับทำบัญชี , โรงงานผลิตครีม , สำนักงานบัญชี , รับจดทะเบียนบริษัท , Pangpond , รถมือสอง

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