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

HOME > .NET Framework > Forum > syntax error ตรง คำสั่ง query แต่หาไม่เจอว่าผิดตรวไหนแต่สงสัยว่าเป็น insert statement



 

syntax error ตรง คำสั่ง query แต่หาไม่เจอว่าผิดตรวไหนแต่สงสัยว่าเป็น insert statement

 



Topic : 132101



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



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



ew
ex

ขึ้นแบบนี้เพราะอะไรหรอครับ พอดีลองแก้หลายวิธีแล้วทั้งเปลี่ย + เป็น & และเปลี่ยน ""



Tag : .NET, Ms Access, VB.NET






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2018-09-20 13:26:56 By : 2057240200974209 View : 1208 Reply : 30
 

 

No. 1



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



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


ลองดูที่ตัวแปร cmdStr ครับ ว่ามันได้ผลลัพธ์เป็นไร


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 13:37:20 By : Thaidevelopment.NET
 


 

No. 2



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



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

ตอบความคิดเห็นที่ : 1 เขียนโดย : Thaidevelopment.NET เมื่อวันที่ 2018-09-20 13:37:20
รายละเอียดของการตอบ ::
ขอโทษนะครับพอดีเป็นมือใหม่อะครับมาเขียนด้วย vb เพราะต้อทำโปรเจ็ค เช็คยังไงหรอคับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 13:39:13 By : 2057240200974209
 

 

No. 3



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



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


ลองฝึกใช้โหมด DEbug ครับ หาใน google ก็ได้ครับ แล้วทุกอย่างจะง่ายขึ้นเยอะ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 13:50:29 By : Thaidevelopment.NET
 


 

No. 4



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



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


ผิดที่ข้อมูลที่ใส่เข้าไปครับ
ลองแบบง่าย ๆ ก็คืออย่าใส่ตัว ' เข้าไปใน datagrid ครับ
ใส่แค่ตัวอักษรก็พอ
พวกสัญลักษณ์แปลก ๆ อย่าเพิ่งใส่
แล้วลองกด save ดูอีกทีครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 13:53:59 By : fonfire
 


 

No. 5



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



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

ตอบความคิดเห็นที่ : 4 เขียนโดย : fonfire เมื่อวันที่ 2018-09-20 13:53:59
รายละเอียดของการตอบ ::
คือจากแบบนี้ '" + DataGridView1.Rows(0).Cells(0).Value + "' เป็น " + DataGridView1.Rows(0).Cells(0).Value + " แบบนี้หรอคับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 14:15:55 By : 2057240200974209
 


 

No. 6



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



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


Code ยังไม่ต้องแก้ครับ

ขอถามก่อนว่า ข้อมูลที่บันทึกเข้าไปเป็นข้อมูลจริงไหมครับ
หรือแค่พิมพ์มั่ว ๆ เข้าไปใน datagrid เพื่อลง save ดู
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 14:21:47 By : fonfire
 


 

No. 7



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



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

ตอบความคิดเห็นที่ : 6 เขียนโดย : fonfire เมื่อวันที่ 2018-09-20 14:21:47
รายละเอียดของการตอบ ::
ข้อมูลจริงครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 14:26:24 By : 2057240200974209
 


 

No. 8



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



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


งั้นลองแก้แบบนี้ดูก่อนแล้วกันครับ

จาก
'" + DataGridView1.Rows(0).Cells(0).Value + "'

ลอง replace ' ด้วย '' แทนดูครับ
'" + replace(DataGridView1.Rows(0).Cells(0).Value,"'","''" + "'

หรือเปลี่ยนไปเขียนแบบใช้ parameter แทนก็ได้ครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 14:40:29 By : fonfire
 


 

No. 9



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



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


หรือเปลี่ยนไปเขียนแบบใช้ parameter แทนก็ได้ครับ
http://www.tutorialspanel.com/insert-update-delete-example-c-vb-net-using-executenonquery-method/
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 14:44:28 By : fonfire
 


 

No. 10



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



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

ตอบความคิดเห็นที่ : 9 เขียนโดย : fonfire เมื่อวันที่ 2018-09-20 14:44:28
รายละเอียดของการตอบ ::
พอดีข้อมูลที่ผมใส่าเข้าไปมันไม่ใช่จากการพิมพ์อะครับผม generate ขึ้นมา แบบนี้อะครับผมแคปโค้ดให้ดูน่าจะเข้าใจมากกว่าCode (VB.NET)
Imports System.Data
Imports System.Data.OleDb
Imports System
Imports System.Windows.Forms


Public Class Form1
    Dim dateselected As Date
    Dim i As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dateselected As Date = DateTimePicker1.Value
        Dim dateselected2 As Date = DateTimePicker2.Value
        Dim datetotal As Integer = dateselected2.Day - dateselected.Day
        Dim timeFormat As String = "ddd"


        If datetotal > 16 Then
            MsgBox("ช่วงวันที่เลือกเกิน 16 วัน กรุณาเลือกวันให้ไม่เกิน 16 วัน")
        ElseIf datetotal < 0 Then
            MsgBox("ช่วงวันที่เลือกไม่ถูกต้อง")
        Else
            For i As Integer = 0 To datetotal * 3 + 2
                DataGridView1.Columns.Add("column1", i)
                If i <= datetotal Then
                    DataGridView1.Rows(0).Cells(i).Value = Format(dateselected.AddDays(i), "dd")
                ElseIf i > datetotal And i <= datetotal * 2 + 1 Then
                    DataGridView1.Rows(0).Cells(i).Value = Format(dateselected2.AddDays(i - datetotal * 2 - 1), "ddd")
                ElseIf i > datetotal * 2 - 2 Then
                    If dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Mon" Then
                        DataGridView1.Rows(0).Cells(i).Value = "we*Fvm"
                    ElseIf dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Tue" Then
                        DataGridView1.Rows(0).Cells(i).Value = "t*Fg"
                    ElseIf dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Wed" Then
                        DataGridView1.Rows(0).Cells(i).Value = "Ak'¨[l;"
                    ElseIf dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Thu" Then
                        DataGridView1.Rows(0).Cells(i).Value = "Mumoaw;"
                    ElseIf dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Fri" Then
                        DataGridView1.Rows(0).Cells(i).Value = "aomMum"
                    ElseIf dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Sat" Then
                        DataGridView1.Rows(0).Cells(i).Value = "pae"
                    ElseIf dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Sun" Then
                        DataGridView1.Rows(0).Cells(i).Value = " "
                    End If
                End If
            Next
        End If
    End Sub

    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\meetingroom\Downloads\project\Datedata1.mdb"
        Dim objcon = New OleDbConnection(conStr)
        Dim dateselected As Date = DateTimePicker1.Value
        Dim dateselected2 As Date = DateTimePicker2.Value
        Dim datetotal As Integer = dateselected2.Day - dateselected.Day
        Dim cmdStr As String = " INSERT INTO datedata(Field1,Field2,Field3,Field4,Field5,Field6,Field7,Field8,Field9,Field10
                                                    ,Field11,Field12,Field13,Field14,Field15,Field16,Field17,Field18,Field19,Field20
                                                    ,Field21,Field22,Field23,Field24,Field25,Field26,Field27,Field28,Field29,Field30
                                                    ,Field31,Field32,Field33,Field34,Field35,Field36,Field37,Field38,Field39,Field40
                                                    ,Field41,Field42,Field43,Field44,Field45,Field46,Field47,Field48) " +
                            "VALUES('" + DataGridView1.Rows(0).Cells(0).Value + "','" + DataGridView1.Rows(0).Cells(1).Value + "','" + DataGridView1.Rows(0).Cells(2).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(3).Value + "','" + DataGridView1.Rows(0).Cells(4).Value + "','" + DataGridView1.Rows(0).Cells(5).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(6).Value + "','" + DataGridView1.Rows(0).Cells(7).Value + "','" + DataGridView1.Rows(0).Cells(8).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(9).Value + "','" + DataGridView1.Rows(0).Cells(10).Value + "','" + DataGridView1.Rows(0).Cells(11).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(12).Value + "','" + DataGridView1.Rows(0).Cells(13).Value + "','" + DataGridView1.Rows(0).Cells(14).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(15).Value + "','" + DataGridView1.Rows(0).Cells(16).Value + "','" + DataGridView1.Rows(0).Cells(17).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(18).Value + "','" + DataGridView1.Rows(0).Cells(19).Value + "','" + DataGridView1.Rows(0).Cells(20).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(21).Value + "','" + DataGridView1.Rows(0).Cells(22).Value + "','" + DataGridView1.Rows(0).Cells(23).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(24).Value + "','" + DataGridView1.Rows(0).Cells(25).Value + "','" + DataGridView1.Rows(0).Cells(26).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(27).Value + "','" + DataGridView1.Rows(0).Cells(28).Value + "','" + DataGridView1.Rows(0).Cells(29).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(30).Value + "','" + DataGridView1.Rows(0).Cells(31).Value + "','" + DataGridView1.Rows(0).Cells(32).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(33).Value + "','" + DataGridView1.Rows(0).Cells(34).Value + "','" + DataGridView1.Rows(0).Cells(35).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(36).Value + "','" + DataGridView1.Rows(0).Cells(37).Value + "','" + DataGridView1.Rows(0).Cells(38).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(39).Value + "','" + DataGridView1.Rows(0).Cells(40).Value + "','" + DataGridView1.Rows(0).Cells(41).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(42).Value + "','" + DataGridView1.Rows(0).Cells(43).Value + "','" + DataGridView1.Rows(0).Cells(44).Value + "',
                                    '" + DataGridView1.Rows(0).Cells(45).Value + "','" + DataGridView1.Rows(0).Cells(46).Value + "','" + DataGridView1.Rows(0).Cells(47).Value + "')"

        Dim objcmd = New OleDbCommand(cmdStr, objcon)
        Dim count As Integer = DataGridView1.RowCount * DataGridView1.ColumnCount
        objcon.Open()
        objcmd.ExecuteNonQuery()
        objcon.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class




ประวัติการแก้ไข
2018-09-20 14:55:24
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 14:53:09 By : 2057240200974209
 


 

No. 11



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



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


ผมไม่รู็ว่า Ak'¨[l; ตัวนี้คือไรนะครับ แต่ว่าน่าจะเกี่ยวกะตรงนี้แหละครับ ที่ทำให้ insert ไม่ผ่าน
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 15:38:33 By : Thaidevelopment.NET
 


 

No. 12



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



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

ตอบความคิดเห็นที่ : 11 เขียนโดย : Thaidevelopment.NET เมื่อวันที่ 2018-09-20 15:38:33
รายละเอียดของการตอบ ::
พอดีมันเป็นฟ้อนภาษาพม่าอะครับ ถ้าเปลี่ยน font เปน พม่า จะขึ้นเป็นภาษาพม่าแต่ถ้าไม่มีฟ้อนพม่าจะเป็นอังกฤษแบบนี้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 16:34:10 By : 2057240200974209
 


 

No. 13



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



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


ปกติตัว ' จะเป็นตัวแบ่งคำสั่งครับ
ถ้ามันมีโผล่มา 1 ตัวจะทำให้คำสั่งมันเพี้ยนครับ

ถ้าแก้แบบง่าย ๆ ก็เปลี่ยนจาก ' เป็น '' (จาก 1 อันเป็น 2 อัน เวลามันเข้าไปใน db มันจะเหลือแค่อันเดียว)
ก็จะได้คำสั่งแบบนี้

DataGridView1.Rows(0).Cells(i).Value = "Ak''¨[l;"

หรือไปใช้แบบ parameter แทน
ก็จะแก้ไขปัญหาได้ดีกว่าครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 16:42:11 By : fonfire
 


 

No. 14



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



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

ตอบความคิดเห็นที่ : 13 เขียนโดย : fonfire เมื่อวันที่ 2018-09-20 16:42:11
รายละเอียดของการตอบ ::
ถ้าเป็นแบบ parameter ตรง "VALUES('" + DataGridView1.Rows(0).Cells(0).Value +'") ใส่เปนอะไรอะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 16:48:42 By : 2057240200974209
 


 

No. 15



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



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

เอา cmdStr ที่ได้มาดู ครับ ว่าเต็มๆมันๆเป็นยังไง

ปล. ดูที่ data type ของแต่ละคอลัมน์ด้วยนะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 16:52:09 By : lamaka.tor
 


 

No. 16



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



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

ตอบความคิดเห็นที่ : 15 เขียนโดย : lamaka.tor เมื่อวันที่ 2018-09-20 16:52:09
รายละเอียดของการตอบ ::
ดูยังไงหรอคับพอดีไม่มีความรู้ด้านนี้เลย ทำได้ขนาดนี้ยูทูปล้วนๆ

ปล. เป็น string ทั้งหมดครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 16:53:50 By : 2057240200974209
 


 

No. 17



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



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


ใช้ debug เป็นไหมครับ
debug csharp
มาร์ค ที่หน้าบันทัดที่ต้องการให้หยุดตามภาพ สั่ง start พอทำงานมาถีงจุดที่ต้องการ ก็จะหยุด
dubud csharp2
ดูตัวแปรที่ต้องการ ถ้าต้องการ copy ก็ให้ คลิกขวาที่ line ที่ต้องการ เลือก copy value จะเอาไปทดสอบอะไรที่ไหนก็ว่าไป
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 19:24:58 By : Chaidhanan
 


 

No. 18



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



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


สอบถาม อ่านดูเห็นบอกว่ามีภาษาพม่า หมายถีงเป็น multi language เหรอครับ

ได้กำหนด field type เป็นอะไรครับ

ถ้าเป็น nvarchar ต่อstring แบบนี้ ต้องมี N นำหน้าข้อมูลนะครับ เช่น N'ภาษาต่างๆ'

แนะนำให้ใช้ db tool ในการคิวรี่ครับ จะแก้ปัญหาเรื่อง unicode ได้เป็นอย่างดี
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-20 19:35:33 By : Chaidhanan
 


 

No. 19



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



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

ตอบความคิดเห็นที่ : 18 เขียนโดย : Chaidhanan เมื่อวันที่ 2018-09-20 19:35:33
รายละเอียดของการตอบ ::
พอดีจะเอาข้อมูลลง access อะครับล้ะเวลาเรียกไปใช้ในโรปแกรมอื่นมันจะเป็นภาษาพม่าอะครับ

ปล. ผมมือใหม่มากครัใช้ debug ไม่เป็นต้องฝึกใชเโปรแกรมนี้เพราะพี่ที่ดูแลนักศึกษาฝึกานบังคับให้ใช้
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-21 08:33:53 By : 2057240200974209
 


 

No. 20



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



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

ตอบความคิดเห็นที่ : 16 เขียนโดย : 2057240200974209 เมื่อวันที่ 2018-09-20 16:53:50
รายละเอียดของการตอบ ::
ง่ายๆก็ใช้วิธี

MessageBox.Show(cmdStr)

แล้วก็ดูได้เลยครับ
ใส่มันข้างล่าง ก่อน objcmd.ExecuteNonQuery() เลยครับ
ครั้งหน้าถ้าอยากตรวจสอบอะไร ก็ใช้ประมาณนี้ได้เลย
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-21 09:57:49 By : lamaka.tor
 


 

No. 21



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



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

ตอบความคิดเห็นที่ : 20 เขียนโดย : lamaka.tor เมื่อวันที่ 2018-09-21 09:57:49
รายละเอียดของการตอบ ::
ขอบคุณพี่มากครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-21 10:04:53 By : 2057240200974209
 


 

No. 22



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



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

ตอบความคิดเห็นที่ : 20 เขียนโดย : lamaka.tor เมื่อวันที่ 2018-09-21 09:57:49
รายละเอียดของการตอบ ::
ลองแล้วครับมันได้
result
ซึ่งถูกต้องตามต้องการแต่ พอพ้นคำสั่งนั้นขึ้น
err
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-21 10:10:03 By : 2057240200974209
 


 

No. 23



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



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


คุณลองเปลี่ยน Ak'¨[l; ตัวนี้เป็นตัวอื่นดูครับ แล้วลอง ใหม่ เปลี่ยนเป็น AAA ก็ได้คับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-21 10:12:25 By : Thaidevelopment.NET
 


 

No. 24



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



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

ตอบความคิดเห็นที่ : 23 เขียนโดย : Thaidevelopment.NET เมื่อวันที่ 2018-09-21 10:12:25
รายละเอียดของการตอบ ::
ได้ครับเดี๋ยวจะลองดูครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-21 10:15:04 By : 2057240200974209
 


 

No. 25



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



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

ตอบความคิดเห็นที่ : 23 เขียนโดย : Thaidevelopment.NET เมื่อวันที่ 2018-09-21 10:12:25
รายละเอียดของการตอบ ::
ลองแล้วกลายเป็นขึ้น error แบบนี้แทนครับ
asd
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-21 10:18:17 By : 2057240200974209
 


 

No. 26



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



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


แสดงว่าได้แล้วครับ เกิดจากตัวนั้นแหละ ที่ insert ไม่ได้ ส่วนที่ Error ตอนนี้คือ Column กับ Value ไม่เท่ากันครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-21 10:19:57 By : Thaidevelopment.NET
 


 

No. 27



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



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

ตอบความคิดเห็นที่ : 26 เขียนโดย : Thaidevelopment.NET เมื่อวันที่ 2018-09-21 10:19:57
รายละเอียดของการตอบ ::
คือจำตวน field ที่จะ insert กับ value ใช่มั้ยครับ

ปล. ถ้าใช่ลองเช็คดูแล้วครับ field มี 1 - 48 ส่วน value มี 0 - 47
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-21 10:22:40 By : 2057240200974209
 


 

No. 28



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



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


ลองเอาตารางที่ insert มาดูหนน่อยคับ ว่าหน้าตาเป็นยังไง มีกี่ Field
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-21 10:46:15 By : Thaidevelopment.NET
 


 

No. 29



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



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

ตอบความคิดเห็นที่ : 28 เขียนโดย : Thaidevelopment.NET เมื่อวันที่ 2018-09-21 10:46:15
รายละเอียดของการตอบ ::
Code (VB.NET)
Imports System.Data
Imports System.Data.OleDb
Imports System
Imports System.Windows.Forms


Public Class Form1
    Dim dateselected As Date
    Dim i As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dateselected As Date = DateTimePicker1.Value
        Dim dateselected2 As Date = DateTimePicker2.Value
        Dim datetotal As Integer = dateselected2.Day - dateselected.Day
        Dim timeFormat As String = "ddd"


        If datetotal > 16 Then
            MsgBox("ช่วงวันที่เลือกเกิน 16 วัน กรุณาเลือกวันให้ไม่เกิน 16 วัน")
        ElseIf datetotal < 0 Then
            MsgBox("ช่วงวันที่เลือกไม่ถูกต้อง")
        Else
            For i As Integer = 0 To datetotal * 3 + 2
                DataGridView1.Columns.Add("column1", i)
                If i <= datetotal Then
                    DataGridView1.Rows(0).Cells(i).Value = Format(dateselected.AddDays(i), "dd")
                ElseIf i > datetotal And i <= datetotal * 2 + 1 Then
                    DataGridView1.Rows(0).Cells(i).Value = Format(dateselected2.AddDays(i - datetotal * 2 - 1), "ddd")
                ElseIf i > datetotal * 2 - 2 Then
                    If dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Mon" Then
                        DataGridView1.Rows(0).Cells(i).Value = "we*Fvm"
                    ElseIf dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Tue" Then
                        DataGridView1.Rows(0).Cells(i).Value = "t*Fg"
                    ElseIf dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Wed" Then
                        DataGridView1.Rows(0).Cells(i).Value = "aaa"
                    ElseIf dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Thu" Then
                        DataGridView1.Rows(0).Cells(i).Value = "Mumoaw;"
                    ElseIf dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Fri" Then
                        DataGridView1.Rows(0).Cells(i).Value = "aomMum"
                    ElseIf dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Sat" Then
                        DataGridView1.Rows(0).Cells(i).Value = "pae"
                    ElseIf dateselected2.AddDays(i - datetotal * 3 - 2).ToString(timeFormat) Like "Sun" Then
                        DataGridView1.Rows(0).Cells(i).Value = " "
                    End If
                End If
            Next
        End If
    End Sub

    Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\meetingroom\Downloads\project\Datedata1.mdb"
        Dim objcon = New OleDbConnection(conStr)
        Dim dateselected As Date = DateTimePicker1.Value
        Dim dateselected2 As Date = DateTimePicker2.Value
        Dim datetotal As Integer = dateselected2.Day - dateselected.Day
        Dim cmdStr As String = " INSERT INTO datedata(Field1,Field2,Field3,Field4,Field5,Field6,Field7,Field8,Field9,Field10
                                                    ,Field11,Field12,Field13,Field14,Field15,Field16,Field17,Field18,Field19,Field20
                                                    ,Field21,Field22,Field23,Field24,Field25,Field26,Field27,Field28,Field29,Field30
                                                    ,Field41,Field42,Field43,Field44,Field45,Field46,Field47,Field48) " +
                            "VALUES('" & DataGridView1.Rows(0).Cells(0).Value & "','" & DataGridView1.Rows(0).Cells(1).Value & "','" & DataGridView1.Rows(0).Cells(2).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(3).Value & "','" & DataGridView1.Rows(0).Cells(4).Value & "','" & DataGridView1.Rows(0).Cells(5).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(6).Value & "','" & DataGridView1.Rows(0).Cells(7).Value & "','" & DataGridView1.Rows(0).Cells(8).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(9).Value & "','" & DataGridView1.Rows(0).Cells(10).Value & "','" & DataGridView1.Rows(0).Cells(11).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(12).Value & "','" & DataGridView1.Rows(0).Cells(13).Value & "','" & DataGridView1.Rows(0).Cells(14).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(15).Value & "','" & DataGridView1.Rows(0).Cells(16).Value & "','" & DataGridView1.Rows(0).Cells(17).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(18).Value & "','" & DataGridView1.Rows(0).Cells(19).Value & "','" & DataGridView1.Rows(0).Cells(20).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(21).Value & "','" & DataGridView1.Rows(0).Cells(22).Value & "','" & DataGridView1.Rows(0).Cells(23).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(24).Value & "','" & DataGridView1.Rows(0).Cells(25).Value & "','" & DataGridView1.Rows(0).Cells(26).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(27).Value & "','" & DataGridView1.Rows(0).Cells(28).Value & "','" & DataGridView1.Rows(0).Cells(29).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(30).Value & "','" & DataGridView1.Rows(0).Cells(31).Value & "','" & DataGridView1.Rows(0).Cells(32).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(33).Value & "','" & DataGridView1.Rows(0).Cells(34).Value & "','" & DataGridView1.Rows(0).Cells(35).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(36).Value & "','" & DataGridView1.Rows(0).Cells(37).Value & "','" & DataGridView1.Rows(0).Cells(38).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(39).Value & "','" & DataGridView1.Rows(0).Cells(40).Value & "','" & DataGridView1.Rows(0).Cells(41).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(42).Value & "','" & DataGridView1.Rows(0).Cells(43).Value & "','" & DataGridView1.Rows(0).Cells(44).Value & "',
                                    '" & DataGridView1.Rows(0).Cells(45).Value & "','" & DataGridView1.Rows(0).Cells(46).Value & "','" & DataGridView1.Rows(0).Cells(47).Value & "')"

        Dim objcmd = New OleDbCommand(cmdStr, objcon)
        Dim count As Integer = DataGridView1.RowCount * DataGridView1.ColumnCount
        objcon.Open()
        MessageBox.Show(cmdStr)
        objcmd.ExecuteNonQuery()
        objcon.Close()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class

โค้ดล้าสุดครับ
ปล. มีวิธีใส่ single quote ใน string มั้ยครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-21 10:55:55 By : 2057240200974209
 


 

No. 30



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



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

ได้แล้วครับขอขอบคุณพี่ๆทุกคนมากนะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2018-09-21 11:58:43 By : 2057240200974209
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : syntax error ตรง คำสั่ง query แต่หาไม่เจอว่าผิดตรวไหนแต่สงสัยว่าเป็น insert statement
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 01
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 อัตราราคา คลิกที่นี่