Jump to content

Inserir dados em acsses a partir de vb 2005


mariogx
 Share

Recommended Posts

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!!!

Link to comment
Share on other sites

perdido_e_sozinho

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

ser.gifsartim.gif

Link to comment
Share on other 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

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.