Question

我正在尝试开发可重现问答游戏的系统。基本上，它是使用vb（vs 2017）和Microsoft Access数据库开发的。在玩家选择了错误答案后的某个时间点，系统会使用名称，严谨问题的数量和最高分数来编译结果。值得一提的是，它应该将结果记录在数据库中。

我的代码如下：

Sub RegistraJogo（）

    Try
        Dim Conn As New OleDbConnection

        Conn.ConnectionString = "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=DbDesafioQuiz.accdb"
        Conn.Open()
        Dim cmd = Conn.CreateCommand
        cmd.CommandText = "INSERT INTO TbRecordes (Nome, Data, Pontos, Acertadas) VALUES (@Jogador, @Datas, @Pts, @Corretas)"
        cmd.Parameters.AddWithValue("@Jogador", LbJogador.Text) 'nome do jogador
        cmd.Parameters.AddWithValue("@Datas", CStr(Now())) 'data do jogo
        cmd.Parameters.AddWithValue("@Pts", CStr(PontosTotais * QtdRespondidas)) 'variáveis com valores de pontos e qtd de questões resp
        cmd.Parameters.AddWithValue("@Corretas", QtdRespondidas) 'qtd de questões respondidas
        cmd.ExecuteNonQuery()

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

    receivedData = 0

End Sub

有人可以帮助我，指出我做错了什么？预先感谢。

Answer 1

我更改了连接字符串，并输入了数据库的完整地址，例如：

“ c：\ temp \ dbdesafioquiz.accdb”

通过VB / Visual Studio（2017）插入Access数据库

1 个答案: