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

mariogx

Inserir dados em acsses a partir de vb 2005

3 mensagens neste tópico

Boas!!!!

Tou k problemas a inserir dados na base de dados a partir du vb 2005...

o erro encontra-se no comando executenonquery..

o erro é o seguinte: ExecuteNonQuery: Connection property has not been initialized.

o código é este:

Imports System.Data.OleDb

______________________________________________________________________________________________

Public Class NaoDocentes

    Dim ds1 As New DataSet()

    Dim ligação As New OleDbConnection("Provider =Microsoft.Jet.OLEDB.4.0;data source =dados.mdb")

...

...

...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'inserir dados

Dim valor As Integer

ligação.Open() 'abrir a ligação

Dim sql As New OleDbCommand("insert into doc(ID,Nome,Gabinete,Extensão,Telefone,DS,User,Pass) values('" & txtid.Text & "','" & txtnome.Text & "','" & txtgab.Text & "','" & txtex.Text & "','" & txttel.Text & "','" & combods.SelectedValue & "','" & txtuser.Text & "','" & txtpass.Text & "'")

valor = sql.ExecuteNonQuery()

ligação.Close() 'fechar a ligação

End Sub

HELP ME!!!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas!!!!

Tou k problemas a inserir dados na base de dados a partir du vb 2005...

o erro encontra-se no comando executenonquery..

o erro é o seguinte: ExecuteNonQuery: Connection property has not been initialized.

o código é este:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'inserir dados

Dim valor As Integer

ligação.Open() 'abrir a ligação

Dim sql As New OleDbCommand("insert into doc(ID,Nome,Gabinete,Extensão,Telefone,DS,User,Pass) values('" & txtid.Text & "','" & txtnome.Text & "','" & txtgab.Text & "','" & txtex.Text & "','" & txttel.Text & "','" & combods.SelectedValue & "','" & txtuser.Text & "','" & txtpass.Text & "'")

valor = sql.ExecuteNonQuery()

ligação.Close() 'fechar a ligação

End Sub

HELP ME!!!

Não incluiste o código para a ligação ao access, pelo que não permite dar-mos grande ajuda.

Outro conselho não user ~ e ç em nomes de variáveis.

Existe um artigo na revista que talvez te seja útil, que te ajudará a melhorar o teu código.

Com os melhores cumprimentos,

Sérgio Matias

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas!!!!

Tou k problemas a inserir dados na base de dados a partir du vb 2005...

o erro encontra-se no comando executenonquery..

o erro é o seguinte: ExecuteNonQuery: Connection property has not been initialized.

o código é este:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'inserir dados

Dim valor As Integer

ligação.Open() 'abrir a ligação

Dim sql As New OleDbCommand("insert into doc(ID,Nome,Gabinete,Extensão,Telefone,DS,User,Pass) values('" & txtid.Text & "','" & txtnome.Text & "','" & txtgab.Text & "','" & txtex.Text & "','" & txttel.Text & "','" & combods.SelectedValue & "','" & txtuser.Text & "','" & txtpass.Text & "'")

valor = sql.ExecuteNonQuery()

ligação.Close() 'fechar a ligação

End Sub

HELP ME!!!

Não incluiste o código para a ligação ao access, pelo que não permite dar-mos grande ajuda.

Outro conselho não user ~ e ç em nomes de variáveis.

Existe um artigo na revista que talvez te seja útil, que te ajudará a melhorar o teu código.

Com os melhores cumprimentos,

Sérgio Matias

Ja acrecentei a parte de ligação à basa de dados..assim ja ksgs ajudar.me?? :P

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