通过VB / Visual Studio(2017)插入Access Database



我正在尝试开发一个重现问答游戏的系统。基本上它是用vb(与2017相比(和微软访问数据库开发的。 在玩家选择错误答案后的某个时间点,系统会编制带有名称、问题数量和最高分的结果。 之后,它应该在数据库中记录结果,但是,它不会成功。

我的代码遵循以下:

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

有人可以帮助我,指出我做错了什么?提前谢谢。

我更改了连接字符串,放置了数据库的完整地址,例如:

"C:\temp\dbdesafioquiz.accdb">

最新更新