Jump to content


Photo

Vb X Firebird (Select Count)


  • Faça o login para participar
Nenhuma resposta neste tópico

#1 colares

colares

    Novato no fórum

  • Usuários
  • 1 posts
  • Sexo:Masculino
  • Localidade:manaus,amazonas

Posted 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!!!




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq