Привет. Я пытаюсь сохранить информацию о новом элементе в сетке данных. В открытом приложении информация есть, но когда мы ее закрываем и открываем снова, вся новая информация исчезает, кто-то может помочь?
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)
Gerirligacao
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