kuroi

você vai usar visual basic ou vai fazer no office mesmo com vba?? vo mover aqui pra vba, qualquer coisa poste.

visual basic 2005 tem q ser na sala de .net.

ai visual basic .net é na sala de .net

ó tai o projeto do macoratti modificado (alterei somente essas duas linhas e mais nd) q ta funcionando sem problema nenhum aqui: FtpInet_kuroi.zip

é so selecionar a imagem e redimensionar como quiser: .Selection.InlineShapes.AddPicture FileName:="C:\caminho\arquivo.jpg", LinkToFile:=False, SaveWithDocument:=True 'Adiciona a figura .Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 'Seleciona a figura .Selection.InlineShapes(1).Height = 500 'Muda a Altura .Selection.InlineShapes(1).Width = 500 'Muda a largura .Selection.MoveRight Unit:=wdCharacter, Count:=1 'Caso você va continuar a escrever o arquivo, ponha essa linha pra desselecionar a figura[/code]

tem q ser os tres formatos ou so um deles?? se for qualquer um porque você não faz em doc ou html mesmo?? html é mais facil é so escrever o codigo num txt e salvar como .htm em doc é simples tb, você pode escrever o documento via codigo, tem exemplos aqui: http://www.macoratti.net/vbwdrpt.htm agora quanto ao pdf não sei. eu pelo menos não conheco nenhum biblioteca q escreva em pdf tb porque nunca precisei usar. mas ate devem existir bibliotecas gratis, mas é questao de procurar bem. sei q tem impressoras virtuais q imprimem o arquivo doc num arquivo pdf por exemplo. eu usava o Win2PDF, mas ela tb é paga. mas se não me engano já perguntaram sobre isso antes aqui no forum, faca uma busca na sala "Outros Assuntos" q você deve achar qualquer coisa.

veja se ajuda: http://dev.mysql.com/doc/refman/4.1/pt/con...-functions.html

acho q o melhor é criar um array pra guardar os valores. ai você da um redim nele pra guardar o numero de registros existentes. ai pra pegar o valor você passa pro array o indice selecionado no combobox

é o melhor. melhora o desempenhenho e fica mais facil pra programar. alias, pra dizer a verdade, eu costumo declara um objeto connection publico no module e abrir a conexao uma unica vez no programa todo.

então. declara esses dois aqui: Dim cn As ADODB.Connection Dim rs As ADODB.Recordset[/code] la em cima no Generals. tipo na primera linha da janela de codigo. assim eles vao valer pro formulario todo. não so pra funcao. assim agora você pode abrir a conexao uma vez so. de preferencia, abra no load do formulario. e ai so feche no unload. e não precisa mais abrir em nenhum lugar. assim fica mais facil de mexer e o progrma tb fica mais rapido. e assim o rs vai valer tb pro formulario todo. ai você vincula ele ao grid. e depois disso tome cuidado, pois você tb deve estar usando recordset com o nome de rs em outras funcoes não?? então mude o nome desse rs ou dos outros pra não dar conflito. e ai pronto, você vai poder acessar os dados do grid de qualquer funcao. ai é so apagar as 3 linhas q eu apontei q essa funcao do checkbox deve funcionar (so presta atencao com o nome do recordset).

qual grid você ta usando?? não é o datagrid?? o recordset não ta vinculado?? tipo não tem uma hora no codigo q você faz assim?? Set DataGrid1.DataSource = rs é esse rs ai q você tem q usar. não precisa fazer outro select como você ta fazendo. pegue direto desse recordset. o resto do codigo ta certinho. ou se por acaso você ta usando outro grid tipo o msflexgrid, ai sim você tem q fazer esse select como você ta fazendo, mas tem q pegar pela linha q você tiver no grid. ai você pegua pelo textmatrix. ve ai qualquer coisa poste.

ai não é possivel q vocês não conhecem o navegador java q da pra mudar o codigo java do orkut, seus ignorantes!!

me parece aqui q se você trocar a linha: lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, ByVal .Text) por lngFind = SendMessage(.hwnd, CB_FINDSTRING, -1, ByVal .Text) deve funciona.

é o programa do macoratti parece q ta com esse problema mesmo. na verdade não é q ele so envia do c:, acontece q ele so envia se o arquivo tiver no app.path. pra corrigir tenta substituir essas duas linhas: nomeArquivo = filList.List(contador) arquivoSaida = lblRemoteDirectory.Text & "/" & nomeArquivo[/code] por [code]nomeArquivo = Chr(34) & dirList.Path & "\" & filList.List(contador) & Chr(34) arquivoSaida = lblRemoteDirectory.Caption & "/" & filList.List(contador)

ai num sei então... se quiser mandar a planilha e o programa em rafaelsposito[arroba]gmail.com eu posso tenta ver se descubro.

não entendi qual é o problema. você não ta conseguindo conectar no access 2007?? se for, tenta pegar a connectionstring daqui: http://www.connectionstrings.com/access-2007 quanto a esse problema no vista, acho melhor perguntar isso na secao de windows ou de office.

ai é so por Fixed Single e depois por as propriedades MinButton e MaxButton como True q os botoes aparecem.

então, michelle, é isso mesmo ai q eu falei. olha, esse tutorial aqui da mais detalhes: http://www.macoratti.net/vba_xls1.htm ai ele passa os dados pra planilha. se você quer passar pro userform, tem q acessar do mesmo jeito, so q ai você interage com o userform. se você tem duvida nisso, de uma procurada sobre tutoriais de ADO aqui: http://www.macoratti.net/indvb.htm esse link é sobre o visual basic 6, mas pra adaptar pro userform do vba não muda mta coisa.

hum valeu, vo ver o q consigo fazer aqui.

então, acho q o problema é essa parte aqui não?? strSQL = "select * from CONTATOS_PROPOSTA where CODEMP = '" & frmcademp.txtcodemp.Text & "'" Set rs = New Recordset rs.Open strSQL, gDB, adOpenStatic, adLockReadOnly[/code] os dados não tão no grid?? não seria so pegar direto do recordset q ta vinculado ao grid??

é, esse codigo da plan2 ia funcionar no vba dentro do excel. no visual basic você vai ter q fazer isso ai q você postou sim: Set ws_file = wb_file.Worksheets(numero da planilha) e ai você faz: ws_file.Visible = xlSheetHidden quanto a coluna h, ai não sei não. eu mesmo copiei o seu codigo igualzinho ta ai e executei no visual basic numa planilha qualquer e foi certinho. tb não teria sentido nenhum você escrever coluna E e ele esconder a H ne. da uma olhada se as outras colunas não tão sendo escondidas em otra parte do codigo ou de qualquer outra forma, porque não tem sentido esse codigo ai esconder a H. e da uma olhada se você ta mesmo selecionando a planilha correta antes de esconder. tenta fechar todas as janelas do excel, e depois da um ctrl alt del e finalize qualquer tarefa do excel q tiver aberta e tente de novo. ou uma coisa q sempre é bom fazer é sempre apontar pro seu objeto application. imagino q no seu caso seja esse objeto wb_file, não?? ai exemplo, em vez de fazer: Columns("C:E").Select Selection.EntireColumn.Hidden = True[/code] faca: [code]wb_file.Application.Columns("C:E").Select wb_file.Application.Selection.EntireColumn.Hidden = True e o melhor é fazer isso no codigo todo, ve ai.

hum, é q quando você disse: eu entendi q essa ai era solucao q você tinha arranjado. mas então, não entendi direito o problema. o problema ta na hora de trazer do banco ou de gravar no banco?? você ta pegando os dados de um grid?? se for isso você não pode fazer outro select antes de mostrar, senao ele volta pro primero registro. você teria q pegar direto do recordset q tiver vinculado no grid.

michelle, não sei se tem algum jeito melhor, mas eu faria o seguinte. na tela do editor do visual basic, clique no menu Ferramentas -> Referências. la, selecione Microsoft ActiveX Data Objects. ai você poderia fazer um codigo mais ou menos assim, como no visual basic: Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Caminho\Banco.mdb;" cn.CursorLocation = adUseClient cn.Open Set rs = cn.Execute("Select * From Tabela") Plan1.Cells.Select Plan1.Cells.CopyFromRecordset rs[/code]

planilha seria o excel?? se for, pra esconder da linha 1 a 3, por exemplo, seria isso: Rows("1:3").Select Selection.EntireRow.Hidden = True[/code] pra excluir da coluna C ate a coluna E por exemplo, seria: [code]Columns("C:E").Select Selection.EntireColumn.Hidden = True quanto a aba não entendi o q era pra ser. se você ta falando de esconder uma planilha toda (das abas la debaixo) do arquivo, acho q seria isso aqui ó: Plan2.Visible = xlSheetHidden onde Plan2 é o nome da planilha

hum, mas q componente você ta usando?? winsock?? o q faz essa funcao executaComando?? e se você tentar enviar o arquivo com diretorio o q acontece?? da alguma mensagem de erro??