kuroi
-
Total de itens
7.184 -
Registro em
-
Última visita
Tudo que kuroi postou
-
é normal sim. você não tinha comentado q a gif seria animada. pra isso você pode usar o webbrowser (menu Project -> Components -> Microsoft Internet Controls): WebBrowser1.Navigate "about:<html><body scroll='no'><img src='C:\caminho\imagem.gif'></img></body></html>" ou ainda procurar uma ocx q faca isso.
-
a boa, ideia. se não existir a mesma tag em XXX e YYY por exemplo, então vai funcionar sem problemas. usa a funcao Dir() pra isso: If Dir("C:VBProcedimentosYYY-" & x & ".doc") <> "" Then ObjWord.documents.open("C:VBProcedimentosYYY-" & x & ".doc") ElseIf Dir("C:VBProcedimentosXXX-" & x & ".doc") <> "" Then ObjWord.documents.open("C:VBProcedimentosXXX-" & x & ".doc") ElseIf ... ... ... End If[/code]
-
Não consigo pesquisar um registro no formato texto!
pergunta respondeu ao Marco Canhoto de kuroi em Visual Basic
so pra corrigir essa informacao... ela é valida pro sql. agora percebi q você ta usando mysql e ai acho q não existe nvarchar. ai o varchar aceitaria unicode, mas acho q isso depende da collation. -
não testei o codigo aqui, mas olhando, se não me engano o primero erro é já na declaracao da funcao buscasequencial(). acho q você não pode declara-la la em cima, com parametros diferentes de como ela vai aparecer la embaxo. e depois, acho q o array como parametro não pode ter os indices definidos. tipo em vez de declarar o parametro a como a[2-1], declare como a[] otra coisa, você não ta retornando resultado pra funcao. se você quer retornar a variavel achei, devia fazer assim: return achei; fora isso, se continuar dando erro, posta quais as mensagens de erro do compilador.
-
Como imprimir o conteúdo de um Datagrid?
pergunta respondeu ao Leandro_Pirozzi de kuroi em Visual Basic
é, veja se ajuda: http://www.macoratti.net/printer.htm -
Preencher combobox com nome das tabelas.
pergunta respondeu ao Marco Canhoto de kuroi em Visual Basic
olhai: http://scriptbrasil.com.br/forum/index.php...st&p=535906 -
nossa, mas acho q você tava fazendo como no seu codigo de cima, q você tava concatenando do pers, ele tava procurando uma variavel chamada pers. e como não existe, ele vai passar vazio e por isso não achava. pra não ter q fazer isso q você fez, você tem q passar o pers como parte da string tipo no meu codigo acima. ai não sei como é no oracle. se ele diferencia maiuscula e minuscula, você vai ter q converter pra um dos dois na query (apesar de q talvez, no oracle, isso seja configuravel). no access acho seria tipo assim: SQL = "SELECT EMPRESA, CONTATO, HISTORICO, DATATAREFA, ASSESSOR " & _ " FROM CONTATOS_HISTORICO " & _ " WHERE UCase(HISTORICO) like '%' & UCase(" & txtpers.Text & ") & "'%'" & _ " AND (DATATAREFA) BETWEEN #" & Format(DTPicker1.Value, "YYYY-MM-DD") & "# AND #" & Format(DTPicker2.Value, "YYYY-MM-DD") & "# AND ASSESSOR = '" & Login & "'"[/code] ai você teria q achar uma funcao no oracle equivalente ao UCase().
-
a na verdade no access não funciona o %, isso é em sql e otros bancos. no access você tem q usar o *. ai é como você tava fazendo. tipo assim: SQL = "SELECT EMPRESA, CONTATO, HISTORICO, DATATAREFA " & _ " FROM CONTATOS_HISTORICO " & _ " WHERE HISTORICO like 'pers*'" & _ " AND (DATATAREFA) BETWEEN #" & Format(DTPicker1.Value, "YYYY-MM-DD") & "# AND #" & Format(DTPicker2.Value, "YYYY-MM-DD") & "#"[/code] e se, não me engano, o access acho q não faz diferenca entra maiusculo e minusculo.
-
se ele escreve errado não vai achar nem com o like.
-
você quer q tenha "perspectiva" e mais nd la dentro?? então acho q é assim: SQL = "SELECT EMPRESA, CONTATO, HISTORICO, DATATAREFA " & _ " FROM CONTATOS_HISTORICO " & _ " WHERE HISTORICO = 'perspectiva'" & _ " AND (DATATAREFA) BETWEEN #" & Format(DTPicker1.Value, "YYYY-MM-DD") & "# AND #" & Format(DTPicker2.Value, "YYYY-MM-DD") & "#"[/code]
-
você pode por um picturebox ou o objeto image. ai você mostra assim: Picture1.Picture = LoadPicture("C:\caminho\imagem.gif")
-
rizuane, te mandei no email faz um tempo, se não recebeu me avisa.
-
michelle, já baxei a planilha, quando der eu olho. então, michelle, se você ta tentando encontrar uma data q teja entre as datas digitadas, não vai dar em nada passar "TextBox32.Text & TextBox33.Text" no find. pra dizer a verdade, não sei se adianta usar o Find. nunca fiz uma pesquisa assim, mas acho q o Find so vai procurar no texto. exemplo, você digita a data e ele pesquisa uma coluna q tenha essa data. se você quer pesquisar em intervalo de data, acho q você tera q percorrer as colunas com um for e comparar as datas. essa parte não entendi direito. se você quer mostrar so as colunas das parcelas q precisar, você pode esconder as colunas, alterando a propriedade ColumnCount do ListBox (subtraia nela pra esconder colunas, e some pra mostrar as colunas escondidas ou pra adicionar novas).
-
é, sempre use YYYY-MM-DD. funciona pra todos os bancos, e acho q em qualquer configura de data do sistema.
-
mas então, o nome do arquivo ta escrito em algum lugar no programa?? em algum lugar no programa, esta indicado se é xxx ou yyy?? você não precisa de um if pra cada arquivo, mas talvez precise pra verificar o procedimento. exemplo, se for "calibração para transmissores", você preenche a variavel com "xxx". se for "valvulas de controle", você preenche com "yyy".
-
tenho a impressao q o campo DATATAREFA é do tipo texto não?? você tinha comentado q tinha mudado todos seus campos pra texto num otro tópico não?? bom, primera coisa, lembre-se q os varios tipos existem por uma razao. se tdo texto fosse bom, não existiriam otros tipos. se o dado é uma data, é bom gravar como data, por mtos motivos, inclusive o problema q você ta tendo. se o campo tiver como texto mesmo, você vai ter q converter (o q faz a query demorar mais ne) pra fazer o filtro. em bancos pequenos isso não faz tanta diferenca, mas tem q ficar de olho nisso em aplicacoes gdes. se ta como texto mesmo, então faca assim: SQL = "SELECT EMPRESA, CONTATO, HISTORICO, DATATAREFA " & _ " FROM CONTATOS_HISTORICO " & _ " WHERE HISTORICO like '%" & txtloc.Text & "%'" & _ " AND CDate(DATATAREFA) Between #" & Format(DTPicker1.Value, "YYYY-MM-DD" & "# AND #" & Format(DTPicker2.Value, "YYYY-MM-DD") & "#"[/code]
-
Ainda Não Sabe Usar O Controle Tabstrip ?
pergunta respondeu ao Macêdo de kuroi em Tutoriais & Dicas - Visual Basic
michelle, no vba tem o controle Multi-Pagina q faz a mesma coisa q o TabStrip. mas caso quera usa o TabStrip mesmo, adicione o controle Microsoft TabStrip Control 6.0 -
o modal é quando você chama assim: Form2.Show vbModal ou: Form2.Show 1 se você chama como modal, ele não pode mexer em otros formularios enqto não fechar o form2. e ai todo o codigo q tiver depois do .Show so vai ser executado depois q o form for fechado. mas então, se não esta como modal, tenta por o codigo q limpa os combos no UnLoad do form2.
-
Como escolher a form que vai aparecer primeiro?
pergunta respondeu ao Marcelo VB de kuroi em Visual Basic
entra em menu Project -> <NOME_DO_SEU_PROJETO> Properties... e na aba General, mude na opcao Startup Object. -
Não consigo pesquisar um registro no formato texto!
pergunta respondeu ao Marco Canhoto de kuroi em Visual Basic
o tipo text é meio chato pra se trabalhar. e acontece q ele não tem limite de tamanho. a finalidade dele seria guardar textos gdes. se você vai guardar um unico nome não tem necessidade de usar text. eu falei sobre mudar pra varchar, porque o text normalmente tem varias restricoes. se não me engano, você nem consegue fazer formulas com ele. o varchar vai guardar qualquer caracter especial sim. mas se você for trabalhar com unicode ai tem q ser nvarchar. -
não sei se tem jeito melhor, mas é assim q faco tb.
-
é verdade, as vezes o access encana com nomes de campos mesmo. ele deve confundir com palavra-chave. se você puser o nome do campo como "Local", por exemplo tb ocorre esse erro. entretanto, acho q era possivel corrigir sem troca o nome do campo. você podia escrever na query o nome dele entre []. exemplo: Insert Into CONTATOS_PREV (CODEMP, NOMEMPRESA, ..., AC, [AT], PPAS, ..., TOTGERALHD) Values(valores)
-
Não consigo pesquisar um registro no formato texto!
pergunta respondeu ao Marco Canhoto de kuroi em Visual Basic
é banco sql?? e você pos como text?? tenta por como varchar. -
não entendi nd do q você quer
-
Erro "Run-time error '424' Object Required
pergunta respondeu ao Thiago Caires de kuroi em Visual Basic
hum, mas como não fala?? você ta rodando a partir do .exe compilado?? você não ta rodando dentro do editor, apertando F5?? se você tiver rodando a partir do editor de codigo, quando aparece o erro, se você clicar debug, ele vai mostrar pra você a linha do erro (em amarelo).