none
Notepad para guardar na base de dados RRS feed

  • Pergunta

  • Boa tarde,

    Eu criei um pequeno notepad e gostava de saber como faço para guardar o ficheiro/texto que criei no notepad na base de dados em vez de guardar no computador. Com o objectivo de depois quando volta-se a abrir o notepad na aplicação aparece-se já lá a informação que eu tinha escrito na ultima vez.

    Não sei se me consegui explicar bem. 

    Cumps

    segunda-feira, 19 de maio de 2014 13:43

Todas as Respostas

  • Bom dia Bug5s,

    Ve se é isso:

    Private Sub Command1_Click()
        
        dialog1.ShowSave
        If Trim(dialog1.filename) <> "" Then
            Salvar_Arquivo
        End If
    
    End Sub
    
    Public Function Salvar_Arquivo()
    
        Open dialog1.filename For Output As #1
        Print #1, Text1
        Close #1
        
    End Function
    
    Private Sub Command2_Click()
        
        dialog1.ShowOpen
        If Trim(dialog1.filename) <> "" Then
            Abrir_Arquivo
        End If
        
    End Sub
    
    Public Function Abrir_Arquivo()
    Dim Arquivo
        
        Open dialog1.filename For Input As #1
        Input #1, Arquivo
        Text1 = Arquivo
        Close #1
        
    End Function

    http://forum.imasters.com.br/topic/32822-salvar-arquivo-txt/

    http://pt.wingwit.com/P/visual-basics-programming/95979.html#.U3oX3_ldV-E

    Fico no aguardo para saber se funcionou ok?

    Att,


    segunda-feira, 19 de maio de 2014 14:37
  • Boa tarde, obrigado pela sua ajuda desde já!

    Eu de momento tenho o seguinte código para o notepad. Mas não percebi onde teria de adaptar o codigo que me deu, e como faria a ligação à base de dados.

    Public Class Form3
    
        Private Sub NovoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NovoToolStripMenuItem.Click
            ' Novo
            If TextBox1.Modified Then
                Dim ask As MsgBoxResult
                ask = MsgBox("Deseja guardar as alterações?", MsgBoxStyle.YesNoCancel, "Novo Documento")
                If ask = MsgBoxResult.No Then
                    TextBox1.Clear()
                ElseIf ask = MsgBoxResult.Cancel Then
                ElseIf ask = MsgBoxResult.Yes Then
                    SaveFileDialog1.ShowDialog()
                    My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False)
                    TextBox1.Clear()
                End If
            Else
                TextBox1.Clear()
            End If
        End Sub
    
        Private Sub AbrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbrirToolStripMenuItem.Click
            ' Abrir
            If TextBox1.Modified Then
    
                Dim ask As MsgBoxResult
                ask = MsgBox("Deseja guardar as alterações?", MsgBoxStyle.YesNoCancel, "Abrir Documento")
                If ask = MsgBoxResult.No Then
                    OpenFileDialog1.ShowDialog()
                    TextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
                ElseIf ask = MsgBoxResult.Cancel Then
                ElseIf ask = MsgBoxResult.Yes Then
                    SaveFileDialog1.ShowDialog()
                    My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text, False)
                    TextBox1.Clear()
                End If
            Else
    
                OpenFileDialog1.ShowDialog()
                TextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
            End If
        End Sub
    
        Private Sub GuardarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarToolStripMenuItem.Click
            ' Guardar
            SaveFileDialog1.ShowDialog()
            Dim nomeFile As String
            nomeFile = SaveFileDialog1.FileName + ".txt"
    
            If My.Computer.FileSystem.FileExists(nomeFile) Then
                ' Caso o FileName já exista
                Dim ask As MsgBoxResult
                ask = MsgBox("Este ficheiro já existe, deseja substituir?", MsgBoxStyle.YesNo, "Ficheiro Existente")
    
                If ask = MsgBoxResult.No Then
                    SaveFileDialog1.ShowDialog()
    
                ElseIf ask = MsgBoxResult.Yes Then
    
                    My.Computer.FileSystem.WriteAllText(nomeFile, TextBox1.Text, False)
                End If
    
            Else
                My.Computer.FileSystem.WriteAllText(nomeFile, TextBox1.Text, False)
            End If
        End Sub
    
        Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click
            Me.Close()
        End Sub
    
        Private Sub DesfazerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesfazerToolStripMenuItem.Click
            If TextBox1.CanUndo Then
                TextBox1.Undo()
            Else
            End If
        End Sub
    
        Private Sub CortarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CortarToolStripMenuItem.Click
            My.Computer.Clipboard.Clear()
            If TextBox1.SelectionLength > 0 Then
                My.Computer.Clipboard.SetText(TextBox1.SelectedText)
            End If
            TextBox1.SelectedText = ""
        End Sub
    
        Private Sub CopiarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopiarToolStripMenuItem.Click
            My.Computer.Clipboard.Clear()
            If TextBox1.SelectionLength > 0 Then
                My.Computer.Clipboard.SetText(TextBox1.SelectedText)
            End If
        End Sub
    
        Private Sub ColarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColarToolStripMenuItem.Click
            If My.Computer.Clipboard.ContainsText Then
                TextBox1.Paste()
            End If
        End Sub
    
        Private Sub FindToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FindToolStripMenuItem.Click
            Dim a As String
            Dim b As String
            a = InputBox("Texto que deseja procurar..")
            b = InStr(TextBox1.Text, a)
            If b Then
                TextBox1.Focus()
                TextBox1.SelectionStart = b - 1
                TextBox1.SelectionLength = Len(a)
            Else
                MsgBox("Texto não encontrado.")
            End If
        End Sub
    
        Private Sub FonteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FonteToolStripMenuItem.Click
            FontDialog1.ShowDialog()
            TextBox1.Font = FontDialog1.Font
        End Sub
    
        Private Sub CorDaFonteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CorDaFonteToolStripMenuItem.Click
            ColorDialog1.ShowDialog()
            TextBox1.ForeColor = ColorDialog1.Color
        End Sub
    
        Private Sub EsquercaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsquercaToolStripMenuItem.Click
            TextBox1.TextAlign = HorizontalAlignment.Left
            EsquercaToolStripMenuItem.Checked = True
            CentroToolStripMenuItem.Checked = False
            DireitaToolStripMenuItem.Checked = False
        End Sub
    
        Private Sub CentroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CentroToolStripMenuItem.Click
            TextBox1.TextAlign = HorizontalAlignment.Center
            EsquercaToolStripMenuItem.Checked = False
            CentroToolStripMenuItem.Checked = True
            DireitaToolStripMenuItem.Checked = False
        End Sub
    
        Private Sub DireitaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DireitaToolStripMenuItem.Click
            TextBox1.TextAlign = HorizontalAlignment.Right
            EsquercaToolStripMenuItem.Checked = False
            CentroToolStripMenuItem.Checked = False
            DireitaToolStripMenuItem.Checked = True
        End Sub
    
    End Class
    Cumps

    segunda-feira, 19 de maio de 2014 15:23
  • Alguem que me consiga dar uma ajuda?
    terça-feira, 20 de maio de 2014 11:35
  • BuG5s, boa tarde.

    Você está fazendo um código que grava os dados no HD....mas na descrição da dúvida você disse base de dados...

    Por acaso você se confundiu ou realmente quer um programa que grave em um banco de dados (ex. SQL Server, MySQL, Oracle, etc) ?

    Abraços !


    Diego Murakami View Diego Murakami's LinkedIn profile - MCP, MS
    * Por favor "Marcar como Resposta" caso esta for útil para sua dúvida.

    sexta-feira, 23 de maio de 2014 17:14