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

mariogx

Inserir dados no acess a partir do vb 2005

4 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:

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


Dim sql As New OleDbCommand

sql = ("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 & "'") 

dataAdapter.InsertCommand = New OleDb.OleDbCommand(sql, ligacao)

ligacao.Open()

dataAdapter.InsertCommand.ExecuteNonQuery()

ligacao.Close()

Mas antes de tentar isto altera os caracteres especias como "ç" ou "ã"

nota : dataAdapter é uma variavel do tipo dataAdapter

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

tinha também esse problema e foi assim que resolvi.

Dim sql As New OleDbCommand

sql = ("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 & "'")

dataAdapter.InsertCommand = New OleDb.OleDbCommand(sql, ligacao)

ligacao.Open()

dataAdapter.InsertCommand.Connection=ligacao

dataAdapter.InsertCommand.ExecuteNonQuery()

ligacao.Close()

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

não é mais facil usar parametros do que inserir tudo logo de uma vez ?:S

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