ADO - Onde está o erro??


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: ADO - Onde está o erro??

Josefh Hennyere

SALVADOR
BA - BRASIL

ENUNCIADA !

Postada em 22/04/2005 06:45 hs

Tenho um projeto e estou tentando converter as funções do DAO para o ADO seguindo orintações de uma apostila. O problema é que não estou conseguindo o retorno de valores para os campos que anteriormente funcionavam perfeitamente.

O erro está em uma das funções abaixo:

DAO
Public db as DAO.Database
Public Rs As DAO.Recordset

ADO
Public Rs As ADODB.Recordset
Public db As ADODB.Connection

DAO
    Set db = OpenDatabase(app.path & "db.mdb", False, True, "MS Access;PWD=123")

ADO
    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "db.mdb" & " ;Jet OLEDB:Database Password=123;"

Consulta:
Dim strSQL as String
strSQL = "SELECT * From ceps"

DAO
    Set Rs = db.OpenRecordset(strSQl)

ADO
    Rs.Open strSQl, db

Alguém pode me ajudar??

Poca

SETE LAGOAS
MG - BRASIL

ENUNCIADA !

Postada em 22/04/2005 08:04 hs

Amigo,

para ADO eu uso assim e funciona muito bem:

Dim cnBD As Connection, rsBD As Recordset

Set cnBD = New Connection
Set rsBD = New Recordset

cnBD.CursorLocation = adUseClient

cnBD.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Plano"

rsBD.Open "SELECT * From ceps", cnBD, adOpenStatic, adLockOptimistic

espero ter ajudado.

Imagine um sistema (.exe) que vc pode programar códigos fontes dentro dele, mesmo com ele estando em execução no momento e ainda trabalhando em rede!

Ficou confuso ??? Não entendeu como isso é possível ???

Componente: Macro pra VB6 / Desenvolvido por Kraysler.

O teu sistema fica com recursos parecido com o que a linguagem SAP oferece. OBS.: Linguagem SAP = R$ 80.000,00 , talvez seja por isso que vc não tenha ouvido falar nela.

Baixe um aplicativo Demo do componente: http://www.macrovb.cjb.net

Rochª

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 22/04/2005 09:38 hs

No exemplo do Poca para pegar o valor do rstdb use

txt_nome = rstdb.Fields("nome").Value

Tenho uma apostila que ajuda a converter DAO para ADO, coloquei na secao de apostilas mais nao foi liberada ainda. Se quizer me avise que te envio.

__________________________________________________________________________

Qualquer coisa post

Rochª

Página(s): 1/1