Señor Smoke

Faça mais ou menos assim: Private Sub Gera_Click() Open "c:\nome.txt" For Output As #1 Do Until Rs2.EOF Print #1, Rs2.GetString(, 100, vbTab, vbCrLf, ""); Loop MsgBox "Arquivo - - gerado com sucesso !!" End Sub Isso deve resolver abs

Fala pessoal, Gostaria que a saída do meu arquivo txt, tivesse um formato específico. Tenho um datagrid carregado com o resultado de uma consulta. Então apartir deste datagrid eu gero o arquivo txt. Só que ele tá ficando assim: 61 3997695 24/02/2005 BRT 61 3997695 24/02/2005 BRT 61 3997695 24/02/2005 BRT E eu queria que ele ficasse assim: 61;3997695;24/02/2005;BRT 61;4794684;24/02/2005;BRT 61;6271082;24/02/2005;BRT alguém tem alguma sugestão? Desde já agradeço. []s

Vlw consegui abração

Po cara to fazendo assim, não tá dando certo não, quando seleciono o valor a ser testado nada acontece no datagrid Private Sub Combo1_Change() If Combo1.Text = "0 - 50" Then SQL = "Select Op_Final as Operadora,count(*) From COBILLING_BLOQUEIOS Where Data_Desbloqueio is NULL and minutagem between 0 and 50 Group by Op_Final" End If adodb.RecordSource = SQL adodb.Refresh DataGrid1.Refresh End Sub

Ok mas como eu testo esse onchange? Esse método não tá listado nas propriedades do combo box. E esse Adodc no caso representa o que? []s

Fala pessoal, Seguinte, quero associar um combo box a um datagrid. Explicando melhor: Tenho um combo box que contém as seguintes opções: 0 - 50 50 - 100 100 - 150 etc... Esses são faixas de valores. Quero que quando o usuario selecione uma dessas faixas, a consulta relativa seja listada em datagrid. Por exemplo, quero saber quantos registros se encontram na faixa de 50 - 100, então quero que esse resultado seja exibido no datagrid. não sei bem como fazer isso, alguém pode me mostrar um exemplo? []s

alguém tem outra sugestao? Sou todo ouvidos Acho que seria algum metodo do objeto Con. Mas qual?

NÃÃÃÃÃOOOOOOOOOOO!!!! Dei uma olhada aqui com mais calma era a caixa de texto que não tava com o nome certo Com liçenca vou me dar porrada agora....

Aí que tá, aparece, e as caixas de textos tão certas. Eu executei essa mesma instrução só que pra uma OUTRA tabela que é bem menor e funcionou. Esse registro tá em uma tabela com 100 mil registros, não sei se isso tem a ver. Sinceramente não sei o que pode ser....

Já tá criado, tá declarado como global no modulo.

Quando eu coloco: Set Rs=Con.Execute SQL Dá erro, o vb marca a linha de vermelho.

Quando tento excluir um registro pelo VB dá o seguinte erro : "Object required" não estou entendendo esse erro. Segue o codigo abaixo: Private Sub Command1_Click() If dddter.Text = "" Or ddd.Text = "" Then MsgBox "Campos obrigatórios em branco", vbExclamation Else SQL = "delete cobilling_bloqueios where DDD = '" & ddd.Text & "' and DDD_Terminal = '" & dddterm.Text & "'" Con.Execute SQL MsgBox "Registro excluído com sucesso " End If End Sub abs

Olá Quando eu faço um exlcusão pelo VB, eu gostaria que se caso o registro não fosse econtrado, um aviso fosse exibido na tela. Não sei como posso fazer isso já que a instrução SQL é executada pelo objeto Con. alguém pode me dizer o que devo fazer... Private Sub Command1_Click() SQL = "delete COBILLING_BLOQUEIOS where DDD_Terminal = '" & dddterm.Text & "' AND DDD = '" & ddd.Text & "' " Con.Execute SQL MsgBox "Registro excluído com sucesso " End Sub

É, acho que vou tentar um diretório compartilhado. Outra pergunta....durante a instalação desse pacote na minha máquina deu uns erros de DLL locos e eu ignorei esses erros pra poder continuar com a instalação. estou com receio do pacote não funcionar bem nas outras maquinas por causa disso.

Fala pessoal, fiz um pacote de instalação pra minha aplicação. O problema é que o setup.exe, pra rodar, precisa de um arquivo Cab e esse arquivo tá com 11MB! Eu quero distribuir essa aplicação pra outras máquinas mas com esse tamanho é inviável. Não entendi qual a vantagem de fazer um pacote se ele não consegue rodar por si só e precisa de um arquivo externo gigante. estou fazendo alguma coisa errada né, eu sei.... alguém me ajude. Obrigado.

Pois é, pra você entender melhor vo botar aqui um pedaço do código: Private Sub incl_Click() SQL = " insert into cliente(Matriccli,Nomecli,endercli,ufcli,cpfcli,sexocli) values ('" & Matric.Text & "','" & Nome.Text & "', '" & ender.Text & "','" & uf.Text & "','" & cpf.Text & "','" & sex.Text & "')" If matr.Text = "" Then MsgBox "Digite uma matricula" Stop ???? cn.Execute SQL MsgBox "OK" End Sub É que eu não to conseguindo fazer com que o programa pare caso nada seja digitado no campo de matricula. Botei um stop ali, mas ele encerra tudo, eu sei que não é isso. Já tentei outras coisas tb, mas ai ele acaba executando a intrução cn.execute mesmo com o campo da matricula em branco. O ideal, seria quando o usuario não digitar uma matricula, o VB exibe o aviso e continua na tela de inclusao para que o usuario possa então entrar com um numero de matricula.

estou com uma duvida aqui, preciso controlar a entrada de dados em uma tela de inclusão no banco de dados. Quero que, quando o usuario não digitar nada em certos campos, uma janela de aviso seja exibida na tela (isso eu já fiz) mas após ele clicar em OK não sei como fazer pra voltar para a tela de inclusão. Não to conseguindo tratar esse erro.

Fala Graymalkin e Decio, Penerei tudo que tinha nesses links acima, sou iniciante no VB vai ver por isso to tendo dificuldades em fazer essa inclusao em massa. Eu quero pegar uma planilha do excel e jogar numa tabela do sql. To fazendo o codigo assim: Private Sub export_Click() With xl .Workbooks.Open ("c:\teste.xls") .Sheets("Plan1").Select End With SQL = "insert into tiago_teste(Nome,Tel) select * from xlw." Con.Execute SQL End Sub Tá dando nome de objeto invalido... alguém me ajude,

Cara muito obrigado mesmo!!

Tentei isso, mas não tá dando certo: If Rs2.State.Open Then Rs2.Close Set Rs2 = Nothing End If SQL = "Select * from cobilling_bloqueios where Data_Desbloqueio is NULL" Rs2.CursorLocation = adUseClient Rs2.Open SQL, Con, adOpenForwardOnly, adLockPessimistic Set DataGrid1.DataSource = Rs2 Gera.Enabled = True End Sub Eu não to sabendo verificar a propriedade status do record set, acho que é erro de sintaxe. Já tentei varias coisas, tá sinistro, me dá uma luz ai Graymalkin []s

estou com um problema chatinho aqui. Eu to criando um record set pra poder listar o resultado de uma consulta em um datagrid, até aí beleza. Rodo minha aplicação, clico no botao pra gerar os resultados no datagrid, tudo certinho....mas se eu clico em outro botao ou se tento clicar no mesmo botao de novo, dá erro porque a variável record set já tá aberta. Não estou conseguindo contornar esse erro. Por enquanto só sei fazer o código assim: Private Sub Block_op_Click() SQL = "Select Op_Final as Operadora, count(*) as Bloqueios From COBILLING_BLOQUEIOS Where Data_Desbloqueio Is Null Group by Op_Final" Rs.CursorLocation = adUseClient Rs.Open SQL, Con, adOpenForwardOnly Set DataGrid1.DataSource = Rs End Sub alguém sabe um jeito melhor, um que não dê esse erro e eu possa então clicar novamente nos mesmos botões sem problemas..... []s

Fala pessoal, Preciso gerar um arquivo txt apartir do conteúdo de um datagrid. Em outras palavras, preciso pegar o que tá listado no datagrid e jogar em um arquivo texto. Me deêm uma luz por favor, dei uma procurada aqui no fórum já mas não achei exatamente o que eu queria Abraços

Done

Olá pessoal, Estou usando o sql server para preencher um datagrid com os resultados de uma consulta. Só que tem vezes que essa consulta não lista nada e o datagrid fica vazio. Eu preciso saber como faço pra que o VB reconheça que nenhum resultado foi encontrado e gere um aviso quando isso aconteca. Intuitivamente fiz assim if datagrid.row = empty then... é isso mesmo ou seria outro comando? Me ajudem []s

Graymalkin , não achei o tópico que você falou, passei batido por varios tópicos sobre excel mas a maioria era pra manipular dados do VB pro excel.