เนื้อหาของบทความนี้จะเกี่ยวกับข้อสอบ ppt หากคุณกำลังมองหาข้อสอบ pptมาวิเคราะห์กับMukilteo Montessoriในหัวข้อข้อสอบ pptในโพสต์Powerpoint VBA : การสร้างแบบทดสอบที่เก็บคะแนนลงฐานข้อมูลนี้.

สารบัญ

สรุปเนื้อหาที่เกี่ยวข้องเกี่ยวกับข้อสอบ pptในPowerpoint VBA : การสร้างแบบทดสอบที่เก็บคะแนนลงฐานข้อมูลล่าสุด

ชมวิดีโอด้านล่างเลย

ที่เว็บไซต์Mukilteo Montessoriคุณสามารถอัปเดตความรู้ของคุณนอกเหนือจากข้อสอบ pptสำหรับข้อมูลเชิงลึกที่เป็นประโยชน์มากขึ้นสำหรับคุณ ที่เว็บไซต์Mukilteo Montessori เราอัปเดตเนื้อหาใหม่และถูกต้องทุกวันสำหรับคุณเสมอ, ด้วยความปรารถนาที่จะให้ข่าวที่ดีที่สุดสำหรับคุณ ช่วยให้คุณบันทึกข้อมูลบนอินเทอร์เน็ตได้อย่างละเอียดที่สุด.

การแบ่งปันที่เกี่ยวข้องกับหัวข้อข้อสอบ ppt

Powerpoint VBA สร้างแบบทดสอบที่เก็บคะแนนในฐานข้อมูล

SEE ALSO  การเตรียมแปลงปลูกและวิธีการปลูกมันสำปะหลัง | สังเคราะห์เนื้อหาที่ถูกต้องที่สุดเกี่ยวกับมัน สํา ปะ หลัง ปลูก ใน ดิน อะไร

ภาพถ่ายบางส่วนที่เกี่ยวข้องกับเนื้อหาของข้อสอบ ppt

Powerpoint VBA : การสร้างแบบทดสอบที่เก็บคะแนนลงฐานข้อมูล
Powerpoint VBA : การสร้างแบบทดสอบที่เก็บคะแนนลงฐานข้อมูล

นอกจากการอ่านเนื้อหาของบทความนี้แล้ว Powerpoint VBA : การสร้างแบบทดสอบที่เก็บคะแนนลงฐานข้อมูล คุณสามารถหาข้อมูลเพิ่มเติมได้ที่ด้านล่าง

คลิกที่นี่

ข้อมูลบางส่วนที่เกี่ยวข้องกับข้อสอบ ppt

#Powerpoint #VBA #การสรางแบบทดสอบทเกบคะแนนลงฐานขอมล.

Powerpoint VBA,Visual Basic For Applications.

SEE ALSO  41 การประเมินสื่อการสอนและหลักการประเมินสื่อการสอน | ข้อมูลรายละเอียดมากที่สุดเกี่ยวกับการ ประเมิน สื่อ

Powerpoint VBA : การสร้างแบบทดสอบที่เก็บคะแนนลงฐานข้อมูล.

ข้อสอบ ppt.

หวังว่าข้อมูลบางส่วนที่เราให้ไว้จะเป็นประโยชน์กับคุณ ขอบคุณมากสำหรับการดูข้อมูลข้อสอบ pptของเรา

22 thoughts on “Powerpoint VBA : การสร้างแบบทดสอบที่เก็บคะแนนลงฐานข้อมูล | ข้อมูลทั้งหมดเกี่ยวกับข้อสอบ pptที่สมบูรณ์ที่สุด

  1. น้องเหมียว💗 says:

    เสียงนี้คุ้นมากๆ เหมือนกับเคยเรียนที่เดียวกันพักด้วยกันมาก่อน

  2. sumalin buaaroonsaengsawang says:

    ทำตามอาจารย์แล้วค่ะ มีผิดหลายครั้ง ต้องมีนั่งดูทีละจุด จนทำสำเร็จค่ะ ขอบคุณมากค่ะ

  3. Khemika Chitprapai says:

    ถ้าต้องการเก็บคะแนนและข้อมูลลง Excel ล่ะคะ สามารถทำได้ไหม ถ้าได้ต้องใส่คำสั่งอะไรคะ ขอบคุณค่ะ

  4. Prasit Srikacha says:

    อาจารย์ครับถ้าจะจัดเก็บลงใน Excel เขียนคำสั่งยังไงครับผมไม่มีพื้นฐานเรื่องเขียนโปรแกรมครับ

  5. สมชาย มณฑา says:

    ครูพอจะมีช่องทางติดต่ออื่นไหมครับจะส่งโคชให้ครับติดปัญหา ไม่พบ ISAM

  6. Huaybon School says:

    อยากให้สอนวิธีแลนดอม ข้อสอบด้วยครับ บางทีเด็กนั่งใกล้กันข้อสอบเหมือนกันจะลอกกันเองครับ

  7. Akira says:

    อาจารย์ค่ะทำไมไม่ได้ลองทำตามอาจารย์แล้วติดตรง .Execute ขึ้นแถบเหลืองๆ ลบกวนหน่อยนะค่ะ
    นี้code นะค่ะ
    Private Sub cmdResult_Click()
    Dim Answer(4) As String
    Answer(1) = "D"
    Answer(2) = "B"
    Answer(3) = "C"
    Answer(4) = "D"

    Dim Score As Integer
    Dim i As Integer

    Score = 0
    For i = 1 To 4
    If ChoiceSelected(i) = Answer(i) Then
    Score = Score + 1
    End If
    Next
    Dim strSQL As String
    strSQL = "INSERT INTO tblscore (SName, Score) VALUES ("
    strSQL = strSQL & " ' " & SName & "', "
    strSQL = strSQL & " " & Score & ")"

    Dim comm As New ADODB.Command
    With comm
    .ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActivePresentation.Path & "Database2.accdb" & ";Persist Security Info=False;"
    .CommandText = "strSQL"
    .CommandType = adCmdText
    .Execute
    End With

    MsgBox ("complete! Yore score is " & Score)
    End Sub

  8. A'Jack AK15 says:

    ขอถามหน่อยคับ พอดีมันติด error ตั้งแต่ตรง ช้อยตัวเลือกเลยอ่ะคับ ทั้งที่ โค้ชก็เหมือนกันเลย

  9. พิษณุวัฒน์ สุรฤทธิพงศ์ says:

    สามารถเอาลงแสดงในหน้าเว็บได้ไหมครับ

  10. Fido Smallass says:

    ผมทำตามแล้ว แต่ไม่แสดงผลรับครับ ทำไง เกี่ยวข้องกับที่เก็บไฟล์ไหม แนะนำด้วยครับ

  11. Somnuek Samart says:

    สวัสดีครับ อาจารย์ ก่อนอื่นต้องขอขอบคุณอาจาย์ ที่นำความรู้มาสอบ ผมมีปัญหาตรงแบบทดสอบผมมีหลายข้อ แต่พอกดตรวจข้อสอบ Score 0 ตลอดครับ( ตอบถูกแล้วนะครับ ) ควรจะดูแก้ไขตรงไหนครับ

  12. Pang Punya' says:

    สอบถามค่ะ เนื่องจากลองทำตามอาจารย์แล้ว ตอนรันผล Score ดูคะแนนรวม มันนิ่งไปเลยแล้วก็ไม่มีข้อมูลไปเก็บที่ Access ด้วย ตรงนี้เกิดจากอะไรได้บ้างคะ

  13. Noon Pongsuwan says:

    รบกวนถามหน่อยนะคะ พอทำเสร็จแล้วตรวจคะแนน
    มันขึ้นว่า "การเปลี่ยนแปลงที่คุณร้องขอไม่สำเร็จ เนื่องจากอาจจะเกิดการสร้างค่าซ้ำในดัชนีในคีย์หลัก หรือในความสัมพันธ์ให้เปลี่ยนข้อมูลที่มีค่าซ้ำกัน เอาดัชนีออก หรือกำหนดค่าดัชนีใหม่เพื่ออนุญาติให้มีรายการที่ซ้ำกันแล้วลองอีกครั้ง"
    และขึ้นสีเหลืองที่.Execute ด้วยคะ

  14. Es Zolic says:

    สวัสดีครับคุณครูพอดีผมมีปัญหามันเออเรอครับ มันเออเรอว่าคำสั่ง SQL ผิดครับ ดูโค้ดผมที ผมเหลืองที่ EXEcute
    Dim strSQL As String
    strSQL = "INSERT INTO tblscore(sname,score) VALUES("
    strSQL = strSQL & " '" & sname & "', "
    strSQL = strSQL & " " & score & ")"

    Dim comm As New ADODB.Command
    With comm
    .ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActivePresentation.Path & "DBexam.accdb" & ";Persist Security Info=False;"
    .CommandText = "strSQL"
    .CommandType = adCmdText
    .Execute

  15. Sakonwan Shanngen says:

    รบกวนถามหน่อยนะคะ
    พอทำเสร็จแล้วกดตรงตรวจคำตอบแล้วมันขึ้น Error ว่า
    Run – time Error '91':
    Object variable or With block variable not set
    อ่ะค่ะ
    ต้องแก้ปัญหายังไงคะ
    มันขึ้นสีเหลืองตรงบรรทัด
    .ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActivePresentation.Path & "DBExam2.accdb" & ";Persist Security Info=False;"

  16. Jek Jekkey says:

    ขอโทษครับ คืออยากจะทราบเพิ่มเติมเกี่ยวกับวิธีการสุ่มอะครับ เราต้องสุ่มโดยใช้ query ก่อนใช่รึเปล่าครับ แล้วค่อยให้ไปแสดงใน form หรือว่าสุ่มใน form ได้เลย

  17. Jek Jekkey says:

    ขอโทษครับ ผมมีการบ้านให้สร้างฐานข้อมูลข้อสอบ(Exam bank) อะครับ แล้วก็ต้องสามารถสุ่มข้อสอบออกมาใช้ได้หลายชุดเพื่อใช้กับ หลาย section โดยตัวข้อสอบจะมีข้อที่มันเหมือนกันด้วยอะครับ เช่นมีข้อสอบทั้งหมด 10 ข้อ ต้องมีข้อที่เหมือนกันในแต่ละชุดข้อสอบ 5 ข้อไรงี้อะครับ ไม่ทราบว่าพอจะไกด์ผมได้มั้ยครับว่ามันควรทำยังไง

  18. Alice Valencia says:

    รบกวนถามนะคะ คือหนูสร้างข้อสอบ 20 ข้อ ใส่โค๊ดตรงตามที่ครูอธิบายในคลิปหมดละ ทีนี้เปลี่ยนแค่จำนวนข้อในวงเล็บ คือ Dim Answer(20) As String และตรงส่วนนี้ คือ For i = 1 To 20

    แล้วมันขึ้นแถบเหลืองในบรรที่ If ChoiceSelected(i) = Answer(i) Then ค่ะ ควรจะแก้อย่างไรดีคะ

    นี่คือโค๊ดที่ใช้เขียนนะคะ ควรแก้ตรงไหน ช่วยแนะนำด้วยค่ะ

    Option Base 1

    Private Sub cmdResult_Click()
    Dim Answer(20) As String
    Answer(1) = "A"
    Answer(2) = "C"
    Answer(3) = "D"
    Answer(4) = "B"
    Answer(5) = "C"
    Answer(6) = "A"
    Answer(7) = "D"
    Answer(8) = "B"
    Answer(9) = "A"
    Answer(10) = "D"
    Answer(11) = "B"
    Answer(12) = "C"
    Answer(13) = "D"
    Answer(14) = "B"
    Answer(15) = "A"
    Answer(16) = "C"
    Answer(17) = "C"
    Answer(18) = "A"
    Answer(19) = "C"
    Answer(20) = "A"

    Dim Score As Integer
    Dim i As Integer

    Score = 0
    For i = 1 To 20
    If ChoiceSelected(i) = Answer(i) Then
    Score = Score + 1
    End If
    Next

    Dim strSQL As String
    strSQL = "INSERT INTO tblScore(SName, Score)VALUES("
    strSQL = strSQL & " '" & SName & "', "
    strSQL = strSQL & " " & Score & ")"

    Dim comm As New ADODB.Command
    With comm
    .ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActivePresentation.Path & "DBExam.accdb" & ";Persist Security Info=False;"
    .CommandText = strSQL
    .CommandType = adCmdText
    .Execute
    End With

    MsgBox ("Complete! Your Score is " & Score)
    End Sub

  19. Alice Valencia says:

    ขอบคุณมากๆเลยนะคะ ที่ได้เจอลิ๊งนี้ ขอบคุณครูมากเลย หนูกำลังต้องการข้อมูลนี้อยู่พอดี แก้โค๊ดเท่าไหร่ก็เออเร่อ ไม่เออเร่อก็รันไม่ได้ ถ้าติดปัญหาตรงไหน ขออนุญาติถามนะคะ

ใส่ความเห็น

อีเมลของคุณจะไม่แสดงให้คนอื่นเห็น