Recordcount =» Não Tá Funcionando!

[Guest Oliveira]

Ele está fazendo conexão com o banco e tudo mais não está exibindo o total da cosulta correto! Só exibe 1 mesmo que na consulta tem mais de um dados.

MEUBANCO = "nn.md1"

SetAttr MEUBANCO, vbNormal

Set MyDb1 = DBEngine.Workspaces(0).OpenDatabase(MEUBANCO, False, False, ";PWD=1")

Set MyRs1 = MyDb1.OpenRecordset("Select * FROM Tabela1")

MsgBox MyRs1.RecordCount

O que mais que eu tenho que fazer ???

[Decio]

Não tem como você usar ADO? não se usa mais essa forma de acesso a dados.

Em todo caso tenta assim:

Set MyRs1 = MyDb1.OpenRecordset("Select * FROM Tabela1", dbOpenDynaset)

Se não me engano, eu fazia desta forma e funcionava.

[Guest Guest]

Eu mudei para ADO

MsgBox MyRs1.RecordCount

E aparesse no alerta "-1", e agora o que fazer ??

[Graymalkin]

Eu mudei para ADO

MsgBox MyRs1.RecordCount

E aparesse no alerta "-1", e agora o que fazer ??

Como você abre o ADODB.Recordset?

Abraços,

Graymalkin

[Joaozava]

Não sei como você esta fazendo pra abrir o Recordset, mas pra você utilizar o RecordCount você tem que definir o CursorLocation como adUseClient.

veja:

  MyRs1.CursorLocation = adUseClient

espero ter ajudado...

Abraços.

[jiraiaa]

cara poe o ado ai e faz assim

dim cnn as adodb.connection

dim strs as string

dim rs as adodb.recordset

set rs = new adodb.recordset

Cnn.Provider = "SQLOLEDB.1"

Cnn.Open "" <-- coloca a sua strind de conexao

cnn.cursorlocation = adusercliente

strs = "SELECT * FROM tabela 1"

rs.open strs, cnn, adOpenStatic, adLockReadOnly

if rs.eof then exit sub

msgbox rs.recordcount

pronto