Ir para conteúdo
Fórum Script Brasil

Pesquisar na Comunidade

Mostrando resultados para as tags ''duvida banco de dados access''.

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Fóruns

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Encontrar resultados em...

Encontrar resultados que...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Encontrado 1 registro

  1. Bom dia. Estou com uma duvida muito incomodativa, sobre banco de dados access. La vai. Estou desenvolvendo um programinha que faz cadastros das informações das rodas, com o banco de dados access. chamei o banco de dados desta maneira: Imports System.Data Imports System.Data.OleDb Module db Public Function GetConnection() As OleDbConnection Dim sql As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\adonias\Desktop\teste\teste.accdb" Return New OleDbConnection(sql) End Function End Module até ai ok. criei a pagina de cadastro com os seguintes campos de teste: txtnome.text txtnumero.text e abri o seguinte codigo na pagina: Imports System.Data Imports System.Data.OleDb Public Class Form1 Private Sub gravar() Using con As OleDbConnection = GetConnection() Try con.Open() Dim sql As String = "insert into teste (nome,numero) values(?,?)" Dim cmd As OleDbCommand = New OleDbCommand(sql, con) cmd.Parameters.Add(New OleDb.OleDbParameter("@nome", txtnome.Text)) cmd.Parameters.Add(New OleDb.OleDbParameter("@numero", txtnumero.Text)) txtnome.Text = "" txtnumero.Text = "" cmd.ExecuteNonQuery() MsgBox("Salvo com Sucesso", MsgBoxStyle.Information) Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub btmsalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btmsalvar.Click gravar() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btminfor.Click Form2.Show() End Sub End Class até ai tudo bem novamente, consigo cadastrar vai para o banco de dados, esta tudo correto. Depois criei mais uma pagina de consulta, com os seguintes campos datagridview, btnvisualizar, txtnome, txtnumero. fiz desta maneira porque vai aparecer no datagrid as informaçoes do banco de dados, ao selecionar a informação abrir pressionando o botao visualizar, que vai aparecer nos campos txtnome e txtnumero, codigo usado: Imports System.Data Imports System.Data.OleDb Public Class Form2 Private Sub carregar() Using con As OleDbConnection = GetConnection() Try con.Open() Dim sql As String = "select nome from teste" Dim cmd As OleDbCommand = New OleDbCommand(sql, con) Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd) Dim dt As DataTable = New DataTable da.Fill(dt) dgr.DataSource = dt Catch ex As Exception Finally con.Close() End Try End Using End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load carregar() End Sub Private Sub data() Dim dr As OleDbDataReader = Nothing Using con As OleDbConnection = GetConnection() Try con.Open() Dim sql As String = "select nome,numero from teste where nome" & dgr.CurrentRow().Cells(0).Value() Dim cmd As OleDbCommand = New OleDbCommand(sql, con) dr = cmd.ExecuteReader(CommandBehavior.SingleRow) If dr.HasRows Then dr.Read() End If txtnome.Text = dr.Item("nome") txtnumero.Text = dr.Item("numero") Catch ex As Exception MsgBox(ex.Message) Finally con.Close() dr.Close() End Try End Using End Sub Private Sub btmv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btmv.Click data() End Sub End Class Porem da erro gostaria de saber o porque? o erro que da é este: Erro:{"Object reference not set to an instance of an object."} e no programa marca a seguinte linha de codigo: dr.Close() em amarelo Obrigado e precisando muito desta força. admpatiosantos@gmail.com marco antonio
×
×
  • Criar Novo...