Ir para conteúdo
Fórum Script Brasil

Carlosdm

Membros
  • Total de itens

    2
  • Registro em

  • Última visita

Posts postados por Carlosdm

  1. Boa tarde, pessoal.

    Tenho um programa feito em vb.net com banco de dado em access. O banco de dados precisa ser compartilhado em uma rede para que mais de um usuário possa editar o banco de dados do access. A conexão do programa com o access quando não está em rede é realizada a partir deste comando e funciona perfeitamente:
    Imports System.Data.OleDb
    Module estoque
    Public cnn As New System.Data.OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= c:\app\db.accdb")
    End Module

    Quando eu altero o datasource para z:\db.accdb que é o local onde eu realizei o mapeamento da rede, as consultas com select funcionam perfeitamente, porém quando executo algum botão com insert ou com update ele dá o seguinte erro:

    A first chance exception of type 'System.Data.OleDb.OleDbException' occurred in System.Data.dll

    Additional information: Operation must use an updateable query.

    Eu já coloquei permissão de segurança para controle total (editar) banco de dados.

    Alguém sabe o que pode estar ocorrendo?

    Até mais.

  2. Boa tarde pessoal!

    Estou com um problema na atualização da minha listview a partir de um banco de dados do access.

    Meu problema é o seguinte, o código só funciona se no access eu colocar os tipos de dados "texto curto", se eu colocar como número a listagem não é feita.

    Segue o comando:

    Private Sub refreshdata()
    If Not cnn.State = ConnectionState.Open Then cnn.Open()
    Dim dt As New DataTable
    Dim ds As New DataSet
    ds.Tables.Add(dt)
    Dim da As New OleDb.OleDbDataAdapter("select * from tb_cestoque", cnn)
    da.Fill(dt)
    Dim myrow As DataRow
    For Each myrow In dt.Rows
    ListView1.Items.Add(myrow.Item(0))
    ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(1))
    ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(2))
    ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(myrow.Item(3))
    Next
    cnn.Close()
    End Sub
    Alguém sabe o que pode ser?
×
×
  • Criar Novo...