VC6 COM SQL SERVER

USUARIO.EXCLUIDOS 27/08/2007 18:20:33
#232975
Estou desenvolvendo em VB6 com SQL SERVER 2000, porem não estou conseguindo utilizar as recordset corretamente, todas consultas retornam com -1...

sempre utilizei assim com o Access...

Global gdb As New ADODB.Connection

Global tbLogin As New ADODB.Recordset
Global tbCLIENTE As New ADODB.Recordset
Global tbFONE_CLIENTE As New ADODB.Recordset
Global tbPRODUTO As New ADODB.Recordset

essas consultas funcionam corretamente dentro do SQL...

SQL = "SELECT * FROM tb_clientes WHERE cpf = " & varCpfCliente & ""
Set tbCLIENTE = gdb.Execute(SQL)


Agradeço a ajuda
RODRIGOGBGOMES 28/08/2007 11:25:20
#233042
ué... retorna "-1" na contagem de registros?

e se fizer assim :
ssql = "SELECT * FROM tb_clientes WHERE cpf ='" & varCpfCliente & "'"

set Tb = Conexao.Execute(ssql)

'inclui as aspas simples. tenta ai
USUARIO.EXCLUIDOS 28/08/2007 11:41:26
#233048 Resposta escolhida
faça assim

rst.Open "SELECT * FROM tb_clientes WHERE cpf = " & varCpfCliente & ""
, cnn, adOpenKeyset, adLockOptimistic, adCmdText
USUARIO.EXCLUIDOS 04/09/2007 13:12:41
#234031
Continua com o recordCout -1...
seré q tem alguma configuração no proprio SQL SERVER 2000
USUARIO.EXCLUIDOS 04/09/2007 13:57:47
#234049
JNA_JS isso acontece com todos os registros ou vc esta procurando um CPF especifico ?
USUARIO.EXCLUIDOS 04/09/2007 13:58:49
#234050
Eu creio que não é do SQL Server o problema não, mas sim a forma como é aberto o RecordSet.

Tente assim:
SQL = "SELECT * FROM tb_clientes WHERE cpf = " & varCpfCliente & ""
set tbCLIENTE = New ADODB.Recordset
a.Open SQL,gdb,3
USUARIO.EXCLUIDOS 04/09/2007 16:03:27
#234104
Acontece em todos...
USUARIO.EXCLUIDOS 04/09/2007 16:57:03
#234122
Citação:

LANDOSP escreveu:
JNA_JS isso acontece com todos os registros ou vc esta procurando um CPF especifico ?



Vlw Alexandre... conseguimos resolver...
Tópico encerrado , respostas não são mais permitidas
Voltar