• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

heber_3666

Como gravar um um ficheiro numa base de dados?

12 mensagens neste tópico

Pessoal, o meu professor mandou me fazer um trabalho em Visual Basic em que eu insiro os dados do utilizador e depois esses mesmos dados devem ficar gravados numa base de dados ja criada.

O problema está em eu conseguir aceder as tabelas da base de dados e conseguir gravar para la o ficheiro e consultar as informações.

Precisava que alguem me desse algumas dicas ou alguns sites para eu poder fazer o projecto.

Comprimentos

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas e bem vindo ao forum.

Esqueceste de dizer que servidor de base de dados( access, mysql , ms sql server 2005, etc...) Para guardar ficheiros tens que usar BLOBs , Bynary Large Objects...

Procura no google sobre blobs.

Jorge

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

tamos a usar o Visual Basic juntamente com o SQL Server

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

tamos a usar o Visual Basic juntamente com o SQL Server

Que versao do vb e que bades de dados usas?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tipo o nosso problema e mesmo...trabalhar com a base de dados....porque nos ja temos as ligações feitas e...ja fazemos leituras para a base de dados....não sabemos é trabalhar com elas em background...no código ninguem se ta a safar....pricipalmente eu porque estou a trabalhar a parte de facturação....Agradecia imenso se me dessem as sintaxes para poder trabalhar com os campos das varias tabelas da basede dados...

thanks

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Private Function comprobarUsuario( _
ByVal nombre As String, _
        ByVal clave As String) As Boolean
        Dim cmd As Integer

        Dim cnn As SqlClient.SqlConnection = Nothing

        cnn = New SqlClient.SqlConnection(database1.Cnn)
        cnn.Open()
        Try
            Dim cnn As SqlClient.SqlConnection = Nothing
          
                Return False
            Catch ex As Exception
                MessageBox.Show("Erro na ligação á base de dados: " & vbCrLf & _
                            ex.Message, "Utilizador", MessageBoxButtons.OK, _
                            MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
                Return False

            Catch ex As Exception
                MessageBox.Show("ERROR al conectar a la base de datos: " & vbCrLf & _
                            ex.Message, "Comprobar usuario", MessageBoxButtons.OK, _
                            MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
                Return False

            Finally
            End Try
            If Not cnn Is Nothing Then
                Try

                Catch ex As Exception

                End Try


            End If
            cnn.Dispose()
        Dim t As Integer = CInt(cnn.Database1())
            cnn.Close()

            If Not cnn Is Nothing Then
                cnn.Dispose()
            End If

            Return True
    End Function

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Assumindo que tens ms sql server 2005

Tens que alterar a connectrion string.

Este procediemnto insere uma imagem numa tabela chamada blob_teste.

Private Sub File2SqlBlob(ByVal SourceFilePath As String)
       Try

           Dim cn As New SqlConnection("integrated security=SSPI;data source=(local);persist security info=False;initial catalog=dinefer")
           Dim cmd As New SqlCommand("INSERT INTO blob_teste VALUES(@Picture,@filename)")
           Dim fs As New System.IO.FileStream(SourceFilePath, IO.FileMode.Open, IO.FileAccess.Read)
           Dim b(fs.Length() - 1) As Byte
           fs.Read(b, 0, b.Length)
           fs.Close()
           Dim P As New SqlParameter("@Picture", SqlDbType.Image, b.Length, ParameterDirection.Input, False, 0, 0, Nothing, DataRowVersion.Current, b)
           ''Dim P As New SqlParameter("@Picture", SqlDbType.Image, b.Length, ParameterDirection.Input, False, 0, 0, Nothing, DataRowVersion.Current, b)
           cmd.Parameters.Add(P)
           Dim P1 As New SqlParameter("@Filename", SqlDbType.VarChar, 256, ParameterDirection.Input, False, 0, 0, Nothing, DataRowVersion.Current, SourceFilePath)
           cmd.Parameters.Add(P1)

           cn.Open()
           cmd.Connection = cn
           cmd.ExecuteNonQuery()
           cn.Close()
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sim tens que alterar a connection string para o teu servidor.

E tens que ter uma tabela para la meter o ficheiro.

create table blob_teste  ( imagem image not null, camimho varchar(512) not null )

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

axas que me podes dar uma ajuda a fazer o trabalho?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora