Danleonhart

Estou tentando usar a API "ShellExecute" para executar um script do MS-DOS pelo VB-6. É +/- assim: Executar este comando MS-DOS: ERASE C:\Dat ERASE C:\AppTemp ERASE C:\Types Mas pela API ShellExecute... :) Eu encontrei um site com ótimas informações sobre API's...com explicações e até exemplos de como aplicá-las...mas perdí o link, e nem salvei no Meus favoritos :(... Quem tiver algum aê válido (os que estão na seção "Tutoriais e Dicas" estão expirados) ;) ;)

OK ! Funcionou beleza ! ;) Obrigado !

OK... e como eu faço isso <_< ... Uso conexão ADODB... com o seguinte script: Dim ConCE As ADODB.Connection Set ConCE = New ADODB.Connection ConCE.Open "Provider=Microsoft.SQLSERVER.CE.OLEDB.3.5;Data Source= " & App.Path & "\DBase.sdf;" ...

Como faço para criar um script para saber se há conexão com determinada Base de dados ? Parecido com aquela que aparece quando se configurada um Banco de Dados via "interface": Quero criar um Botão com esta opção :).

Beleza Kuroi ! Como assim dá trabalho para distribuir ?! :unsure: Aqui funcionou de primeira com comandos simples...tipo: MsgBox "Script Brasil !" ou: InputBox("Site de programação") Se puder deixar algum link que aprofunde mais sobre as dicas citadas, eu agradeço ! :rolleyes:

Kuroi, Como faço para executar scripts em tempo de execução ? Tipo se eu digitar "End" em uma TextBox o programa execute o comando "end" fechando assim a aplicação. Tem como fazer isso ? :unsure:

Desculpas ! :unsure: Só depois de abrir o tópico foi que encontrei esse material no site do Macoratti: http://www.macoratti.net/faz_ctrl.htm

Outra duvida (tá foda esses últimos dias)... <_< Como faço para criar em tempo de execução TextBoxes, ListBoxes, Labels, CommandButtons... e se o modo de criar funciona da mesma maneira para todos objetos... :) :) :) :)

Descobrí o meu problema... Bem, acho que devem conhecer o GPEDIT.MSC (Editor de Politicas de Grupos do Windows), então, a algum tempo tentei entrar nele e apresentava uns erros com uns nomes compridos que terminavam no formato ".adm". * eventforwarding.adm * windowsremotemanagement.adm * windowsremoteshell.adm Eram 3 erros consecutivos que apontavam para esses arquivos...resolví entrar no GPEDIT em outro sistema, utilizei então o PC Virtual, e correu tudo beleza. Verifiquei a pasta que ele apontava os erros e notei que no meu sistema estava alterado...então copiei os arquivos que faltavam no meu do outro sistema, e fiz um BACK-UP desse "senhores" para saber do que se trata... Após isso, conseguí utilizar os comando "KILL" e "FSO.DeleteFile" no VB-6 normalmente :). Coincidência ou não, fica o alerta para todos. NOTA: Fuçando na NET encontrei que esses arquivos estão relacionados ao Windows PowerShell. Então, quem utiliza SQL Server 2008 e SQL Server Management Studio bom ficar de alerta !

Kuroi, o que acontece é o seguinte: Esse arquivo temporario é gerado devido o uso do FSO (FileSystemObject), então notei que enquanto a aplicação está aberta, é apresentado esta mensagem, e ao fechar a aplicação, a exclusão é feita normalmente...então estou gerando uma rotina para que adicione "um" (1), a cada arquivo gerado (File1.tmp , File2.tmp , File3.tmp...) e ao fechar a aplicação irei colocar a rotina para excluir todos com formato ".tmp". Espero que funfe :) .

Pessoal, O que é isso ? Sempre uso o Kill para apagar arquivos que desejo deletar ao encerrar a aplicação (.tmp e outros)...só que ultimamente vem apresentando o erro 70 (Permission Denied) e eu sou Administrador do PC ! alguém sabe o que pode ser isso ? :unsure: :unsure: :unsure:

Valeu Kuroi ! Não necessita ser tudo arrumadinho não :D, Só para listar mesmo o que foi inserido no FlexGrid. Eu até acertei no loop das colunas, mas coloquei o valor do "Cl = 1" no lugar errado <_<.

Kuroi, Minha duvida é como pegar o que tá no FlexGrid, e não no ListBox :rolleyes: Estou neste momento verificando o ListView para ver se atende as minhas necessidades... O que estou desenvolvendo agora, necessita de um Grid...mas com edição...pois estou criando um "elaborador de tabela", e através dele, irei configurar as variáveis para lançar nas funções do ADOX ;) Estou aberto a sugestões... :rolleyes:

Seguinte, Tou tentando pegar todo conteudo de um FlexGrid e jogar em uma ListBox... e depois gravar em um arquivo ".txt". Até o momento só consigo pegar a primeira Coluna...as colunas restantes não consigo...quanto a gravar em .txt isso não tenho problema :) Segue código: Sub FT() Dim Cl As Integer Dim Ln As Integer Set Fil = FSO.OpenTextFile(App.Path & "\Log.txt", ForAppending, True) Cl = 1 Ln = 0 Do While Ln < Grid1.Rows Lst1.AddItem Grid1.TextMatrix(Ln, Cl) Fil.WriteLine Lst1.List(Ln) Ln = Ln + 1 Loop Fil.Close End Sub Sei que falta configurar a variavel "Cl" para dar loop também, porém não conseguí <_<

Olá Mathe ! Sou iniciante também ! Mas posso te afirmar que pode ser feito das duas formas...se bem quê, quem quer aprender afundos como eu, sempre fuça algo diferente, e eu me acostumei a utilizar via código. Uma prova disso é que via interface eu não conseguí conectar com uma base de dados SQL Compacto...somente via código...e pessoalmente utilizo mais ADODB :) .

Poxa cara :unsure: tão simples...e eu já tinha colocado este "ForAppending" mas não tinha configurado o TextBox <_< Ficou assim: Public Sub GravarTXT() Dim FSO As New Scripting.FileSystemObject Dim TFile As Scripting.TextStream If txt_1.Text = Empty Then Exit Sub ElseIf Not txt_1.Text = Empty Then Set TFile = FSO.OpenTextFile(App.Path & "\Data.txt", ForAppending, True) TFile.WriteLine txt_1.Text TFile.Close End If txt_1.Text = Empty End Sub Obrigado mais uma vez !

Dúvida bem simples: Usando o FileSystemObject, gravo em arquivo ".txt" o que for digitado em uma TextBox assim: Public Sub GravaTXT() Dim FSO As New Scripting.FileSystemObject Dim TFile As Scripting.TextStream Set TFile = FSO.OpenTextFile(App.Path & "\Data.txt", ForWriting, True) TFile.Write txt_Nome.Text TFile.Close TFile = Nothing End Sub Agora como faço para quê, o que for escrito na TextBox seja "adicionado" no arquivo ".txt" ? EX: No txt já contém: Script Brasil. Digitado na TextBox: Scripts de programação. Fica assim no txt: "Script Brasil Scripts de programação." Sempre na linha abaixo do que já está gravado. :rolleyes:

Feito !!! Matheus-VB6 esclareceu via MSN... Então ficou assim: 'Aqui abro as conexões com os BD's - código em Módulo AbbSQL AbbAcc ' Configuro o RecordSet Set RecSet = New ADODB.Recordset RecSet.Open "SELECT Artigo FROM Art", ConAcc ' Aqui insiro a tabela alocada no RecordSet na Tabela do outro BD Do Until RecSet.EOF inserir = "INSERT INTO Tabela01(Art)" & "Values('" & RecSet("Artigo") & "')" ConSQL.Execute inserir RecSet.MoveNext Loop ' Aqui fecho as conexões... FcBAcc FcbSQL Valeu pela força Matheus ! ^_^

Eu de novo :D Tem como inserir dados no banco de forma sequêncial até o último registro ? Irei fazer uma transferência de dados do SQL Compact Edition para o SQL Server...e tentei de outras maneiras sem sucesso... Minha idéia: Gerar um RecordSet carregando todos os dados (SELECT * FROM TabAccess) e alocar em variável, para depois fazer uma inserção dos dados na Tabela SQL(INSERT INTO TabSQL). Fiz um teste com um registro e funcionou :rolleyes: estou a tentar com todos... :closedeyes: Pensei em Vetor...mas não sei como :wacko: alguém tem sugestões ?! :blush:

BELEZA Kuroi ! Sem querer abusar de sua boa vontade, me dá só um exemplo de como aplicá-lo... Por exemplo, no que for digitado em um TextBox...entende ?! :blush: "EDIT" Consegui ! Private Sub cmd2_Click() lb4.Caption = Criptografia(txt1.Text) End Sub Valeu Kuroi ! muito prático mesmo cara !

Ficou bem desenhado cara, Parabéns ! :D Aqui deu pró na hora de emitir relatório, mas deve ser pela localização do BD... Valeu !

Olha, comecei testando este script que peguei na NET: Este para inserir: Private Sub cmd1_Click() Dim nFileNum As Integer nFileNum = FreeFile Open "c:\\example.txt" For Binary Access Write Lock Read Write As #nFileNum Put #nFileNum, 1, "SBrasil" Close #nFileNum End Sub Este para carregar: Private Sub cmd2_Click() Dim nFileNum As Integer, sString As String nFileNum = FreeFile Open "c:\\example.txt" For Binary Access Read Lock Read Write As #nFileNum sString = Space(7) Get #nFileNum, 1, sString Close #nFileNum lbl2.Caption = sString End Sub Mas estou aberto para sugestões :).

OK Kuroi ! Conseguí fazer...no mesmo link que você citou havia a solução...eu é que não tinha lido todo conteúdo ;) VALEU !

Pessoal...seguinte Quero transformar o que for digitado em uma TextBox em caractéres especiais (tipo uma codificação), e salvar em um ".txt". E quando for solicitado, carregar o arquivo, e decodificar... EX: Digito na TextBox: "SBrasil" É salvo no "TXT" assim: "#*1/@4!" Quando for solicitado, recarregar e mostrar o que realmente é: "SBrasil". Tentei com o FreeFile (...For Binary Access Read Lock Read Write...Put/Get) mas ele escreve da maneira que digito na TextBox,sem alterar os caractéres. Então, alguém conhece alguma maneira mais prática ? :huh:

Mais uma dúvida...acho que deve ser bem simples... Como faço para definir que uma coluna será auto-numerada via código ? meu código: Public Function NewBanco() Dim Cat As New ADOX.Catalog Dim TBL As New ADOX.Table Cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database.mdb;" With TBL .Name = "Tabela01" .Columns.Append "Controle", adInteger, (4) .Keys.Append "PrimaryKey", adKeyPrimary, "Controle" .Columns.Append "ProdData", adVarWChar .Columns.Append "ProdBrimA", adVarWChar .Columns.Append "ProdIndA", adLongVarWChar .Columns.Append "ProdBrimB", adVarWChar .Columns.Append "ProdIndB", adVarWChar .Columns.Append "ProdBrimC", adLongVarWChar .Columns.Append "ProdIndC", adVarWChar .Columns.Append "ProdGTA", adVarWChar .Columns.Append "ProdGTB", adLongVarWChar .Columns.Append "ProdGTC", adVarWChar .Columns.Append "TotalBrim", adVarWChar .Columns.Append "TotalInd", adLongVarWChar .Columns.Append "ProdGeral", adVarWChar End With Cat.Tables.Append TBL Set Cat = Nothing End Function Quero que minha coluna "Controle" seja primária (já é...), e também seja auto-numerada... :rolleyes: