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