|
|
Postada em 24/06/2013 12:13 hs
Bom dia Galerinha !!!
Estou com a dificuldade para efetuar a conexão entre um sisteminha que estou desenvolvendo, e um BD em access, na linha de código aonde é selecionada a tabela que esta com os dados que desejo efetuar a pesquisa...
Estou entrando nesse mundo agora e ainda um pouco perdido, se alguem puder eu mano o Print do erro para que seja melhor identificado.
O erro esta nessa linha:
tabela.Open("Select * from bdredes where Cod_cli = " & txtcod.Text & "", conecta, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
é emitido uma msgm de erro quando executo a aplicação, informando que (A conexão não pode ser usada para realizar esta operação. Ela está fechada ou é inválida neste contexto.)
Rogerio B. Dallaqua
|
|
TÓPICO EDITADO
|
|
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 25/06/2013 08:34 hs
Primeiro, abra o banco de dados:
Dim Conecta as new adodb.Connection
dim Tabela as new Adodb.Recordset
Conecta.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strLocalBD & "NomeBD.MDB;"
tabela.Open("Select * from bdredes where Cod_cli = " & txtcod.Text & "", conecta, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
if not tabela.EOF then
......
Endif
tabela.close
conecta.close
Obs. No Projeto precisa setar em "Project/References/Microsoft DAO 2.5/3.51 pra access 95 ou Microsoft DAO 3.6 para os mais recentes.
Setar também "Microsoft Active X Data Objetcts 2.1 ou (2.6) Library para acesso com ADO.
|
|
|
|
jhow jhow
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/06/2013 21:49 hs
Boa noite Carlos !Eu fiz a conexão da maneira que vc falou tudo ok !!porém quando eu insiro a referencia Microsoft ActiveX data objects 2.6Tudo que estiver (ADODB.CursorTypeEnum.adOpenStatic, DODB.LockTypeEnum.adLockOptimistic) ele grifa.E se retiro a referencia citada acima e insiro a DAO 3.6 ele informa:"Provedor não encontrado. É possível que ele não esteja instalado corretamente."Cara ta dificil viu kkk !!!!
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/06/2013 15:26 hs
Tenta assim:
tabela.Open("Select * from bdredes where Cod_cli = " & txtcod.Text & "", conecta,adOpenKeyset, adLockPessimistic)
|
|
TÓPICO EDITADO
|
|
|
|
