USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Troca sql de uma query(consulta) no banco de dados
Postada em 22/10/2003 por Andre      Clique aqui para enviar email para o autor  nnn
'Sub troca SQl da consulta no banco de dados
Public Sub TrocaSQL(NomeConsulta As String, SQL As String)
  Dim Ncon As Integer, NomeCon As String, ConAtual As Integer
  Ncon = vgDb.QueryDefs.Count
  ConAtual = 0
  Do While ConAtual < Ncon
    NomeCon = vgDb.QueryDefs(ConAtual).Name
    If NomeCon = NomeConsulta Then
      vgDb.QueryDefs(ConAtual).SQL = SQL
      Exit Do
    End If
    ConAtual = ConAtual + 1
  Loop
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página