Jump to content


colares

Member Since 11/04/2010
Offline Last Active 12/04/2010, 14:40
-----

Topics I've Started

Vb X Firebird (Select Count)

11/04/2010, 02:23

Meus caros,

não consigo colocar o valor da contagem em uma variavel.

meu código está na seguinte situação:

If Conf = 6 Then
sql_prod = "INSERT INTO PRODUTOS (COD_PROD, DESCRICAO, UNIDADE, FORNECEDOR) VALUES (" & Val(MSK_codprod) & ", '" & TXT_descprod & "', '" & CMB_un & "', '" & TXT_forn & "');"
temp = MSK_codprod
Set Rsp = Db.Execute(sql_prod)
limpa_produtos
SQL = " select count (cod_prod) as contar from produtos"
Set Rsp = Db.Execute(SQL)
MsgBox "Registro Gravado Com Sucesso!!!", vbInformation
Label1.Caption = "Total de " + Format(Conta, "00000") + " produtos cadastrados!!!"
MSK_codprod = Format(temp + 1, "00000")
MSK_codprod.SetFocus
Exit Sub
End If

Como será que posso ter uma variável com o resultado da contagem?

valews!!!

IPB Skin By Virteq