Canexão ao banco de dados

[Taiany Jessica 0]

oi pessoal... Eu me Chamo Taiany e eu sou principiante em programação. Estou tentando conectar meu primeiro projeto em VB no banco de dados, porém acaba dando erro.O erro q está me atrapalhando é o erro de numero 3706. Que diz que o Provedor não está sendo encontrardo e é possivel que ele não esteja instalado corretamente. ADODB.Connection.Bom, eu já coloquei o Activex Data Objects e nos códigos os nomes das tabelas do banco de dados Access estam corretas!! Bom pessoal, eu já não sei o que fazer, fiz algumas pesquisas na internet, mas ainda não obtive nenhum resultado satisfatório. Obrigada pela atenção ...

 

Taiany http://forum.imasters.com.br/public/style_emoticons/default/natal_smile.gif

[Claudio Neto 3]

Olá Taiany, seja bem vinda ao fórum.

 

Se o banco de dados que está utilizando é Access, é meio impossível que ele não esteja instalado corretamente né, rs...

 

Precisamos então saber o que está havendo, faça o seguinte, poste aqui seu código que está utilizando para a conexão com o banco e diga qual é a linha que está acusando o erro.

 

Abraços...

[Taiany Jessica 0]

É verdade, é impossivel o access não estar instalado corretamente. rsrs ... Bom, os comandos que eu utilizei foram esses:

 

Private Sub cmdcad_Click()
On Error GoTo ControleErro
	Dim objConn As New ADODB.Connection
	Dim strSQL As String

	'conectar ao banco de dados
	objConn.Open " Provider=Microsoft.Jet.OLEDB4.0;Data Source=" & App.Path & "\FireHorseLibrary.mdb;Persist securyty Info=False"

	'Montar o comando SQL.  Obs Apóstrofe em campos de texto

	strSQL = " INSERT INTO cadastro_obras"
	strSQL = strSQL & " VALUES ( ' " & txtcod.Text
	strSQL = strSQL & " , '" & txtobra.Text & "'"
	strSQL = strSQL & " , '" & txtaut.Text & "'"
	strSQL = strSQL & " , '" & txtedt.Text & "'"
	strSQL = strSQL & " , '" & txtedç.Text & "'"
	strSQL = strSQL & " , '" & cmbtipo.Text & "'"
	strSQL = strSQL & " , '" & cmbseç.Text & "'"

	'Executar o comando
	objConn.Execute strSQL
	Exit Sub
ControleErro:
MsgBox "Erro: " & Err.Number & "-" & Err.Description & "-" & Err.Source, vbCritical, "cadastro_obras"
   
End Sub

O estranho é que não é apontada a linha de comando que tem erro. Quando eu executo o projeto e clico no botão Cadastrar a unica coisa que aparece é a seguinte mensagem : "Erro:3706- Provedor não encontrado.É possível que ele não esteja instalado corretamente.-ADODB.Connection"

 

Bom, conto com a juda de vocês ... Obrigada desde já!! Beijos

[Claudio Neto 3]

Taiany, na verdade ele não aponta a linha de erro por causa do seu tratamento de erro.

 

Clique com o botão da direita do mouse sobre seu código, vá em Toggle e selecione Break on All Errors.

 

Isso fará que seu tratamento seja desativado e te mostre a linha.

 

Só adiantando, dê uma olhada nisso:

 

strSQL = " INSERT INTO cadastro_obras"
strSQL = strSQL & " VALUES ( ' " & txtcod.Text ---> Você esqueceu de fechar o apóstrofe '
strSQL = strSQL & " , '" & txtobra.Text & "'"
strSQL = strSQL & " , '" & txtaut.Text & "'"
strSQL = strSQL & " , '" & txtedt.Text & "'"
strSQL = strSQL & " , '" & txtedç.Text & "'"
strSQL = strSQL & " , '" & cmbtipo.Text & "'"
strSQL = strSQL & " , '" & cmbseç.Text & "'" ---> Você não fechou o parêntese )

Abraços

[Thiago Thamiel 0]

Taiany, na verdade ele não aponta a linha de erro por causa do seu tratamento de erro.

 

Clique com o botão da direita do mouse sobre seu código, vá em Toggle e selecione Break on All Errors.

 

Isso fará que seu tratamento seja desativado e te mostre a linha.

 

Só adiantando, dê uma olhada nisso:

 

strSQL = " INSERT INTO cadastro_obras"
strSQL = strSQL & " VALUES ( ' " & txtcod.Text ---> Você esqueceu de fechar o apóstrofe '
strSQL = strSQL & " , '" & txtobra.Text & "'"
strSQL = strSQL & " , '" & txtaut.Text & "'"
strSQL = strSQL & " , '" & txtedt.Text & "'"
strSQL = strSQL & " , '" & txtedç.Text & "'"
strSQL = strSQL & " , '" & cmbtipo.Text & "'"
strSQL = strSQL & " , '" & cmbseç.Text & "'" ---> Você não fechou o parêntese )

Abraços

Só aproveitando,

pelo que vi, voce esta inserindo na tabela: "cadastro_obras" , show..

Em quais colunas ?, isso também pode estar gerando problema, não sei se isso ai funciona, talvez funcione se voce tiver apenas as colunas que esta tentando inserir, se continuar o erro tente mudar o seu insert ..

Ex. INSERT INTO TABELA (COLUNA1,COLUNA2) VALUES (VALOR1, VALOR2)

 

ABRAÇO!