ADICIONAR CAMPOS EM TABELAS DO BD NO CLIENTE

CBTECH 18/07/2005 12:44:19
#94726

Jean Jedson ou outro que puder ajudar, desculpe por voltar a insistir, mas pra mim tá claro o procedimento, mas não a técnica ou seja a programação, se for possível parte do código ou me mande um exemplo, ficarei muito grato! Valeu!

JEAN.JEDSON 18/07/2005 13:21:59
#94731

a grosso modo, seria algo assim:

Dim oFSO, oPasta, oArquivo, oListaDeArquivos, sSQL, sTemp
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oPasta = oFSO.GetFolder("C:\")
Set oListaDeArquivos = oPasta.Files
For Each oArquivo In oListaDeArquivos
If Right(UCase(Trim(oArquivo.Name)), 4) = ".TXT" Then
Open "C:\" & oArquivo.Name For Input As #1
sSQL = ""
While Not EOF(1)
Line Input #1, sTemp
sSQL = sSQL & sTemp
Wend
Close #1
MsgBox sSQL
'aqui na real vc faria o seu conexão.execute sSQL
End If
Next
End

CBTECH 18/07/2005 13:32:38
#94735

Valeu! Jean, agora vou me virando aqui! Me ajudou muito, obrigado!