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

HOME > .NET Framework > Forum > อยากทราบว่า วิธีเพิ่ม แก้ไขข้อมูล หลายตารางในคราวเดียว VB+Access ทำอย่างไรครับ help



 

อยากทราบว่า วิธีเพิ่ม แก้ไขข้อมูล หลายตารางในคราวเดียว VB+Access ทำอย่างไรครับ help

 



Topic : 101616



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



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



อยากทราบว่า วิธีเพิ่ม แก้ไขข้อมูล หลายตารางในคราวเดียว VB+access ทำอย่างไรครับ
พอดีผมทำการเพิ่มข้อมูล โดยกดปุ่มเพิ่มข้อมูล แล้วเพิ่มข้อมูล insert เข้าทั้ง2ตารางในครั้งเดียว แล้วเกิด error แบบนี้
แต่ insert อันแรกเข้านะครับ


ผิดพลาดinsert

พอมีวิธีบางไหมครับ ขอปรมาจารย์คนไหนก็ได้ช่วยหน่อยครับ ฐานข้อมูล access นะครับ[/size]



Tag : .NET, Ms Access, Crystal Report, Win (Windows App), VS 2010 (.NET 4.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2013-10-13 10:19:53 By : seksuncm56 View : 1152 Reply : 8
 

 

No. 1

Guest


เอาโค้ดในส่วนนั้นมาดูหน่อยครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-10-13 12:02:23 By : 44
 


 

No. 2



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



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

ตอบความคิดเห็นที่ : 1 เขียนโดย : 44 เมื่อวันที่ 2013-10-13 12:02:23
รายละเอียดของการตอบ ::
Code (VB.NET)
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim comadd As OleDbCommand = New OleDbCommand
Dim num0 As String = 0
setcombovalue()
Dim NamePic As String = Now.Date.ToString("ddMMyy") & Now.TimeOfDay.Hours.ToString("00") & Now.TimeOfDay.Minutes.ToString("00") & ".jpg"
Dim Openfile As String = OpenFileDialog1.FileName
If BtStatus = "Add" Then
sqlconn = "INSERT into tblmember(mem_id,mem_name,mem_add,mem_sex,mem_tel,mem_email,mem_con,mem_pic) VALUES('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox6.Text & "','" & tmpFileName & "')"
                With comadd
                    .CommandType = CommandType.Text
                    .CommandText = sqlconn
                    .Connection = Conn
                .ExecuteNonQuery()
            End With
            sqlconn1 = "INSERT into sharesale(mem_id,share_amount,share_price,share_date,share_emp,share_sta) VALUES(" & TextBox1.Text & ", 0,0,ลงทะเบียนใหม่,'" & TextBox7.Text & "',ลงทะเบียนใหม่)"
            With comadd
                .CommandType = CommandType.Text
                .CommandText = sqlconn1
                .Connection = Conn
                .ExecuteNonQuery()
            End With       'ส่วนนี้เป็นส่วน ตาราง 2คับ error ตามด้านบน
 ElseIf BtStatus = "Edit" Then
            If tmpFileName <> "" Then
                sqlconn = " UPDATE tblmember SET mem_name='" & TextBox2.Text & "',mem_add='" &TextBox3.Text& "',mem_sex='" & TextBox4.Text & "',mem_tel='" & TextBox5.Text & "',mem_email='" & TextBox6.Text & "',mem_con='" & datemem & "',share_total='" & Nothing & "',mem_pic='" & tmpFileName & "' WHERE mem_id = '" & TextBox1.Text & "'"
            Else
                sqlconn = " UPDATE tblmember SET mem_name='" & TextBox2.Text & "',mem_add='" & TextBox3.Text & "',mem_sex='" & TextBox4.Text & "',mem_tel='" & TextBox5.Text & "',mem_email='" & TextBox6.Text & "',mem_con='" & datemem & "',share_total='" & Nothing & "' WHERE mem_id = '" & TextBox1.Text & "'"
            End If
            With comadd
                .CommandType = CommandType.Text
                .CommandText = sqlconn
                .Connection = Conn
                .ExecuteNonQuery()
            End With
End sub


Imports System.Data
Imports System.Data.OleDb
Public Class Form2
Dim Conn As New OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As New DataSet
Dim dt As New DataTable
Dim dr As DataRow
Dim IsFind As Boolean = False
Dim sqlconn As String = ""
Dim sqlconn1 As String = ""
Dim BtStatus As String
Dim PicSelect As String
Dim datemem As String
Dim tmpFileName As String = ""




ประวัติการแก้ไข
2013-10-13 17:28:29
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-10-13 17:27:35 By : seksuncm56
 

 

No. 3

Guest


ตรวจสอบใหม่ครับ VALUES(" & TextBox1.Text & ", 0,0,ลงทะเบียนใหม่,'" & TextBox7.Text & "',ลงทะเบียนใหม่)"

ลองเช็คดูว่าผิดตัวไหน เพราะว่ามันไม่มีค่าที่จะส่งไปดำเนินการ

ผมว่าน่าจะผิดตรง ลงทะเบียนใหม่
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-10-14 01:14:12 By : 111111111
 


 

No. 4



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



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

ตอบความคิดเห็นที่ : 3 เขียนโดย : 111111111 เมื่อวันที่ 2013-10-14 01:14:12
รายละเอียดของการตอบ ::
ผมยังงงอยู่เลยครับ พอจะมีตัวอย่างบางไหมครับ พอดีตรง เลข 0 ผมจะใส่ในฟิวด์ว่าค่าเป็น 0 เพราะค่าฟิวด์นั้นเป็น ชนิดตัวเลข
และตรง share_date กับ share_sta ผมจะลงค่าในฟิวด์ินั้นว่า ลงทะเบียนใหม่ ครับ ตั้งฟิวด์นี้เป็นชนิด สตริงครับ




แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-10-14 09:12:40 By : seksuncm56
 


 

No. 5

Guest


แก้ VALUES(" & TextBox1.Text & ", 0,0,ลงทะเบียนใหม่,'" & TextBox7.Text & "',ลงทะเบียนใหม่)"

เป็น VALUES(" & TextBox1.Text & ", '0','0','ลงทะเบียนใหม่','" & TextBox7.Text & "','ลงทะเบียนใหม่')"

เอาไปวางทับดูครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-10-14 11:28:10 By : hachi
 


 

No. 6



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



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

ขยายความ ถ้าข้อมูลใน Table ฐานข้อมูลเป็น String ต้องมี ' คั่นระหว่างข้อความด้วยครับ


ประวัติการแก้ไข
2013-10-14 14:35:24
2013-10-14 14:35:48
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-10-14 14:34:52 By : 01000010
 


 

No. 7



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



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

ได้แล้วครับ ขอบคุรทุกคนมากครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-10-15 10:18:09 By : seksuncm56
 


 

No. 8

Guest


ใช้ข้อมูลเดียวแต่ให้อัพเดทสองตารางทำยังไงค่ะ รบกวนด้วยค่ะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-11-06 12:16:19 By : ความรู้น้อย
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : อยากทราบว่า วิธีเพิ่ม แก้ไขข้อมูล หลายตารางในคราวเดียว VB+Access ทำอย่างไรครับ help
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 04
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 อัตราราคา คลิกที่นี่