【发布时间】:2020-07-01 04:05:22
【问题描述】:
嗨,我正在尝试将新元素的信息存储在数据网格中,在应用程序打开时,信息就在那里,但是当我们关闭它并再次打开它时,所有新信息都消失了,有人可以帮忙吗?
Dim cmdSql As String
'If txtNumero.Text = "1" Then
cmdSql = "INSERT INTO Fatura (Cliente, Data, ValorTotal) " &
"VALUES ('" & txtCliente.Text & "', #" &
dataFatura.Value.ToString("dd/MM/yyyy") & "#, " &
Replace(txtValorTotal.Text.ToString, ",", ".") & ")"
GerirLigacao.ExecutarCmdSQL(cmdSql)
cmdSql = "SELECT TOP 1 Numero FROM Fatura ORDER BY Numero DESC"
Dim r As DataSet = GerirLigacao.obterDados(cmdSql)
txtNumero.Text = r.Tables(0).Rows(0).Item("Numero")
txtNrFatura.Text = txtNumero.Text
Dim msg = "Fatura guardada com sucesso"
Dim titulo = "Guardar"
Dim botoes = MessageBoxButtons.OK
Dim icone = MessageBoxIcon.Information
MessageBox.Show(msg, titulo, botoes, icone)
格里利加考
Public Shared Sub ExecutarCmdSQL(ByVal comando As String)
Try
Dim cmdSql As New OleDbCommand(comando, ligacao)
cmdSql.ExecuteNonQuery()
Catch ex As Exception
Dim msg = "Aconteceu um erro de execução." & vbNewLine
Dim botoes = MessageBoxButtons.OK
Dim icone = MessageBoxIcon.Error
MessageBox.Show(msg & ex.Message, "ERRO", botoes, icone)
End Try
End Sub
【问题讨论】:
-
要做的第一件事——你已经应该做的事情——是测试
ExecuteNonQuery返回的值。如果这不是零,那么数据正在被保存,问题是你如何寻找它。这在 Access 中并不少见,但我们需要先明确我们要解决的问题。 -
我同意 - 这里需要一些基本的故障排除。打开您的 MS Access 文件并查看数据是否在其中。