พอดีว่าจะทำระบบ E-Lerning แบบง่ายๆ ที่ใช้ภายในบริษัทฯ โดยทำ VB ใน Powerpoint
จขกท.เขียนโค้ดตามสื่อการสอนใน Internet
[Spoil] คลิกเพื่อดูข้อความที่ซ่อนไว้http://www.blwsc.ac.th/imath/TeachPowerPoint/TeachPowerPoint_ExamDB.asp
ด้านล่างเป็นโค้ดที่เขียน และต้องการให้ข้อมูล ชื่อผู้สอบ, ผลคะแนนสอบ และวันที่สอบไปเก็บข้อมูลไว้ในฐานยข้อมูล Access คะ
ไม่แน่ใจว่าติด error ตรงไหน รบกวนผู้รู้ช่วยดูให้หน่อยนะคะ จักขอบคุณเป็นอย่างยิ่งคะ
[Spoil] คลิกเพื่อดูข้อความที่ซ่อนไว้
Private Sub cmdNew_Click()
    ActivePresentation.SlideShowWindow.View.First
End Sub

Private Sub cmdShowresult_Click()
    Dim Score As Integer
    Dim Key(6) As Integer
    
    Key(1) = 3
    Key(2) = 4
    Key(3) = 2
    Key(4) = 4
    Key(5) = 1
    
    Dim i As Integer
    
    Score = 0
    
    For i = 1 To 5
        If choiceSelected(i) = Key(i) Then
            Score = Score + 1
        End If
    Next
    
    
    Call SaveScore("DBScore.mdb", SName, Score)
    
    
    MsgBox " Score = " & Score
        
End Sub


Private Sub SaveScore(DBfile As String, SName As String, Score As Integer)
    Dim Conn As New ADODB.Connection
    Dim Conn As New ADODB.Command

    Dim strConn As String
    Dim strSQL As String
    
    Dim DBPath As String
    
    DBPath = ActivePresentation.Path & "\" & DBfile
    
    strConn = "Provider=Microsoft.jet.OLEDB.4.0;Data Source =" & DBPath
    With Conn
        If .State = adStateOpen Then .Close
        .ConnectionString = strConn
        .Open
    End With
    
    strSQL = "INSERT INTO Score(SName, Score)  VALUES("
    strSQL = strSQL & " '" & SName & "', "
    strSQL = strSQL & " " & Score & ")"
    With Conn
        .ActiveConnection = Conn
        .CommandType = adCmdText
        .CommandText = strSQL
        .Execute
    End With
    
    
End Sub