Вставить в базу данных Access через VB / Visual Studio (2017) - PullRequest
Новая
       9

Вставить в базу данных Access через VB / Visual Studio (2017)

0 голосов
/ 08 октября 2018

Я пытаюсь разработать систему, которая воспроизводит игру викторины.В основном он разработан с 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

Кто-то можетпомогите мне, указав, что я делаю неправильно?Заранее спасибо.

1 Ответ

0 голосов
/ 09 октября 2018

Я изменил строку подключения, указав полный адрес базы данных, например:

"c: \ temp \ dbdesafioquiz.accdb"

...