kuroi

o q a gente costuma fazer (desda epoca do clipper) é tipo isso: case "Alterar" Response.Write("Chegou Aqui!!") '<-- ISSO AQUI PRA TESTAR mstrSQL = "UPDATE VisitasMedicas" ... mstrSQL = mstrSQL & vbCrLf & "AND codvisitas = '" & mstrVisita & "'" set mobjRegistros = mobjConexao.Execute(mstrSQL)[/code] ai se aparecer escrtio "Chegou Aqui" é porque chegou ali. quanto a sua consulta, la onde você pos Response.Write mstrSQL, tenta descomentar essa linha e veja o q ele retorna. ai veja se existe algum registro q atenda as condicoes do WHERE como ele ta ficando. tipo, você pode acessar esse banco no Query Analyzer, certo?? então tenta executar o codigo tipo: [code]Select * From VisitasMedicas WHERE ... ai no lugar do WHERE copie o WHERE do codigo q ele vai mostrar no Response.Write e veja se ele não retorna nenhum registro. se não voltar, de uma olhada no seu WHERE e tente descobrir qual dos valores q não existe no banco.

em vez de usar valor monetario, prefiro usar tipo numerico mesmo (escolhendo a opcao Duplo no access pra q ele aceite casas decimais). mas de qualquer forma, mesmo pra moeda ou pra duplo, de uma olhada na opcao casas decimais do campo no access, porque se você setou pra não mostrar casas decimais, ele vai salvar o valor inteiro. e na hora de gravar, você deve gravar sem aspas e no formato 9999.99 eu costumo sempre guardar o valor numa variavel Double, tipo assim: Dim x As Double x = Text1.Text 'TexBox onde ta o valor numerico q você quer gravar sql = "Insert Into Tabela(..., CampoNumerico, ...) Values (..., " & Replace(CStr(x), ",", ".") & ", ...)" cn.Execute sql[/code] mas pra não ter q por o codigo todo do replace, crio uma Function q faz a conversao e o replace.

mano q é q ce ta falando?? pelo q eu entendi é sobre esse tópico certo: http://scriptbrasil.com.br/forum/index.php?showtopic=110188 ?? se for esse o caso, então tenta sempre explicar melhor qual é a sua duvida, beleza?? quando você disse "mais só o símboleo funciona o resto não", provavelmente ninguém entendeu do q se tratava, já q a gente não sabe o q é "o resto" e COMO deveria funcionar. você q quer usar a funcao e a gente não tem como saber o q você quer dela. provavelmente por isso ninguém te deu resposta. postei uma resposta la mas não sei se é isso q você quer. como você não explicou direito, eu posso ter postado uma solucao q não vai ajudar, ou seja, posso ter perdido meu tempo postando. ou seja, se você explicar melhor, facilita pra nós e pra você, beleza?? na hora de postar tenta se imaginar lendo o tópico pra ver se você entenderia o q esta escrito.

essa funcao transforma um valor 9999.99 no formato 9999,99, o q você queria q acontecesse q não acontece?? se você queria tipo assim: 9.999.99 com ponto, então troque a linha: return(dollars + "," + cents); por: var formato = ""; var valor = String(dollars); for (var num = valor.length - 3; num >= 0; num = num - 3) { formato = valor.substring(num, num + 3) + (formato != "" ? "." : "") + formato; } formato = (valor.substring(num + 3, 0) != "" ? valor.substring(num + 3, 0) + (formato != "" ? "." : "") : "") + formato; return(formato + "," + cents);[/code]

opa graymalkin. o xplayer foi feito no visual basic 6??

cara, se quise meu MSN pra trocar ideia pega rafaelsposito@hotmail.com mas eu quase não to entrando esses dias. mas tb se for pra tirar suas duvidas, usa o forum mesmo cara, eu to sempre por aqui e tem otras pessoas tb q vao te ajudar. se você ta com problema no login posta ai a suas duvidas q a gente ve. mas não esquece, se tiver usando o vb 2005, não é pra postar aqui e sim na sala de .NET (q eu já passei o link).

faltou fechar uma aspa aqui ó: rsProcura.Open "SELECT * FROM TABELA_Clientes WHERE TXT_DDD = '" & txtDDD.Text & "' and TXT_Telefone = '" & TxtTel.Text & "'", CN, 1, 3

foi mal mas não tenho a minima ideia do q você ta falando porque nunca usei essa impressora. mas como assim ela é continua?? o q significa ser continua?? a bobina não vai parar assim q chegar ao final do relatorio?? não é so mandar imprimir normalmente q ele já sabe quando tem q parar??

você tem q abrir o txt e ler. tipo assim: Dim f As Long f = FreeFile Open "C:\Pasta\ConfBase.txt" For Input As f StringConexao = Input$(LOF(f), f) Close f Con.Open StringConexao[/code]

tenta assim: ALTER TABLE tabela DROP COLUMN campo[/code]

se você ainda não achou: pra ver o script do Create Table, clique com o botao direito na tabela e selecione Script Table As -> CREATE TO e depois, a opcao q for conveniente pra você. quanto a exportar pra txt, agora q você falou, parece q realmente o SQL Server Management Studio Express não tem essa opcao, mas você pode fazer direto no prompt de comando, usando um esquema de bcp. de uma olhada aqui q explica como faz: http://msdn2.microsoft.com/pt-br/library/ms162802.aspx

clica no menu Project -> {Nome do Projeto} Properties. ai na janelinha q abrir, selecione a aba Make e, na opcao Icon você pode selecionar o icone de qualquer um de seus formularios (pra trocar o icone do Form é pela propriedade Icon dele).

na verdade você entendeu tudo ao contrario. o Visual Basic (q chama Visual Basic) q é uma linguagem de programacao. o VB do Excel é q tem outro nome (VBA - Visual Basic For Applications) e não é o VBA q usa o Excel e sim o Excel q usa o VBA. não faz, o VBA do Excel foi feito pra trabalhar junto com as planilhas Excel. pra isso você tem q usar o Visual Basic mesmo há sim. é so instalar o sql num desses computadores (normalmente instalamos no servidor), adicionar a conexao ODBC em cada um deles e acessar normalmente pelo seu progama. na verdade esse Visual Basic 2005 q você baixou não é bem o Visual Basic (não o VB classico. alias é muito melhor q o VB classico) e sim o Visual Basic .NET q é uma versao do Visual Basic (com a mesma sintaxe e etc), q trabalha em conjunto com o .NET Framework. da uma olhada aqui q tem uma explicacao melhor: http://scriptbrasil.com.br/forum/index.php?showtopic=104831 se for no Visual Basic 2005, selecione o seu formulario, ai na janela de propriedades, va em BackgroundImage, clica no botao de procurar e selecione a imagem. bom, mas se você continuar a usar o VB 2005 (.NET), no forum tem uma sala especifica pra .NET (nesse endereco: http://scriptbrasil.com.br/forum/index.php?showforum=49 ), ai novas duvidas q você tiver poste la, beleza??

não sei, você tem q ver entre as opcoes qual serve pra você. mas na verdade essas opcoes variam de acordo com a impressora padrão do seu pc. tenta setar a matricial como padrão (no painel de controle) só pra ajeitar o relatorio (depois pode voltar como estava antes) e veja se melhoram as opcoes.

hum, pode mandar devolver os livros então ahah. a definicao de vba você encontra aqui ó: http://pt.wikipedia.org/wiki/Visual_Basic_for_Applications o q acontece é q o vba tb não é o visual basic. o vba é só um recurso q tem em varios softwares (principalmente no office) pra você implementar macros, ou seja, programar acoes dentro do software. e o vba usa sintaxe de visual basic e o modo de programar é exatamente igual. pra trabalhar com vba em geral não faz mta diferenca entre estudar um livro de vba ou um livro de visual basic, já q as diferencas entre o vba e o visual basic dependem do software em q você trabalha. como o vba em sua gde maioria é usado no office, estudar vba normalmente significa estudar vba para office, no caso ai sim você daria uma atencao especial aos recursos do proprio vba. agora no caso, o visual basic .net é uma outra linguagem baseada em visual basic. realmente, a sintaxe é praticamente igual, o modo de trabalhar em windows application é o mesmo, mas as diferencas são muito gdes, já q o .net é orientado a objeto e trabalha em conjunto com o .net framework. agora no caso do seu software, acho q dificilmente estudar visual basic 2005 pode te ajudar tanto quanto estudar o visual basic classico. sei q a microsoft tem agora um esquema de Microsoft Visual Studio Tools For Office. acredito q é uma forma de programar em .net para o office (acho q so funciona no 2003), tb baseado no .net framework, semelhante ao vba, mas sendo uma coisa diferente, uma tecnologia nova. e acredito q no momento, isso esteja somente dentro do office, e muito possivelmente, não vai se expandir tão facilmente, já q a programacao em .net não é uma coisa assim tão pratica, já q há a necessidade do framework. talvez quando o windows vista comecar a ser popularizado... agora tb não tem como falar se o seu software tem compatibilidade com o visual basic 2005. porque tipo, o vba é só programacao baseado em visual basic. agora o 2005 tb é, só q se programa de modo diferente. alias, fora q você disse q ele trabalha com LotusScript, q pelo q ouvi é uma linguagem praticamente identica ao visual basic. se você pegar um livro de visual studio 2005, o cara provavelmente vai focar você nos recursos do .net framework, possivelmente em conceitos de orientacao a objeto e provalmente tudo direcionado pra programacao em windows application ou asp.net. você pode ate ter conceitos do visual basic original, como sintaxe e tipos de variaveis e etc. mas os objetos, classes e etc usadas no 2005 são totalmente diferentes do visual basic classico. acredito q se for pra aprender vba estudando o visual 2005, você pode muito bem aprender vba só com exemplos e tutoriais desses de internet mesmo.

no Crystal, se você clicar no menu File -> Printer Setup, la embaxo vai ter uma opcao pra você mudar o tamanho. ai você pode escolher o tamanho q quiser pra cada relatorio.

olha, não conheco esse livro não, mas posso te dizer q o visual basic 2005 na verdade é a ultima das versoes do Visual Basic .NET, q é uma linguagem diferente do Visual Basic comum. ou seja, essas macros q você usa no seu software são baseados no Visual Basic classico, apesar de q a sintaxe entre os dois é muito parecida, o Visual Basic .NET é compativel com a tecnologia .NET e foi feita pra trabalahr com os seus recursos e acessar suas bibliotecas. de uma olhada nesse tópico aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=104831 bom, mas eu recomendaria sim a qualquer programador q estudasse .NET. apesar q, em lugar do Visual Basic, eu recomendaria o C#. Mas se você ta precisando ou tem a intencao de estudar o Visual Basic classico, saiba então q o 2005 é outra coisa. não tenho livros, nem nada pra recomendar. como aprendi Visual Basic na escola não conheco materiais pra iniciantes (já q nunca usei nenhum), mas sei q nesse site aqui http://www.macoratti.net ele tem varios tutoriais bem detalhados q ensinam varias coisas. e isso junto com uma apostila de nivel basico (q você pode encontrar facil pra baxar por ai) pode ser o suficiente pra se aprender bastante sobre a linguagem sem ter q gastar dinheiro comprando livros. mas você q sabe ae.

é porque você pos o nome do textbox entre aspas, ai ele ta passando a string " & Dlg1.EditBox_2 " como parametro e não o que você digitou la. tenta assim ó: Client.ImportExcelSheetEx Dlg1.EditBox_2, "Plan1", TRUE, FALSE, dbName ou Client.ImportExcelSheetEx Dlg1.EditBox_2.Text, "Plan1", TRUE, FALSE, dbName e veja se funciona.

mas q valor você passa pro lpOperation?? você ta passando "Open"?? posta ai o codigo q você ta usando e a mensgaem do erro. alias, SEMPRE poste o codigo q você ta usando e a mensgaem do erro.

cara sempre procure no site do macoratti qualquer coisa q você quiser saber. se não achar, depois sim poste aqui: http://www.macoratti.net/vb_class.htm http://www.macoratti.net/vbn_peoo.htm http://www.macoratti.net/vb_oop1.htm http://www.macoratti.net/vb56_oop.htm e olha la q devem ter mais artigos.

mas essa sub main ta no Module, certo?? e é a primera q ele executa no programa, certo?? então, nessa hora ele não ter nenhum formulario aberto, por isso não tem de onde tirar as informacoes. ou você chama o formulario da sub main, então, ou você poe pro projeto inciar no formulario. e apesar de você falar em usar ListBox pra mostrar a lista, acho q seria melhor uma ComboBox, não?? bom, mas você q sabe. mas ai o codigo ficaria tipo assim: dbName = Client.UniqueFileName(txtRelatorio.Text) Client.ImportODBCFile "A", dbName, FALSE, ";DSN= " & lstDSN.Text & "; UID=" & lstUID.Text & ";PWD=" & lstPWD.Text & ";SERVER=" & lstServer.Text & ";", txtQuery.Text Set db = Client.OpenDatabase (dbName)[/code] onde, no caso, txtXXXX ou lstXXXX seriam os nomes dos objetos de acordo com seus parametros (exemplo, lstDSN é o nome do ListBox de onde você vai selecionar o DSN).

você usa o For porque você não sabe qual é o indice do item q você quer excluir, você teria q excluir pelo texto dele. porque, por exemplo, o cara clica no segundo indice do primeiro listbox. como eu sei qual a localizacao dele no segundo listbox?? eu não sei qual é, por isso eu procuro pelo texto (propriedade List(index)). quando eu achar eu excluo. deu pra entender?? a e é bom eu avisar tb esse codigo não vai funcionar direito caso você tenha dois items com o mesmo nome dentro do ListBox. normalmente não tem sentido por duas vezes a mesma opcao no ListBox, mas se esse for o seu caso, da um toque q a gente da um jeito aqui.

ó, acho q é pra ser tipo assim o q você quer: Private Sub List1_ItemCheck(Item As Integer) Dim i As Integer If List1.Selected(Item) Then List2.AddItem List1.List(Item) Else For i = 0 To List2.ListCount - 1 If List2.List(i) = List1.List(Item) Then List2.RemoveItem i Exit For End If Next End If End Sub[/code]

você quer q seja no clique do ListBox?? se for faca no evento ItemCheck do ListBox. no parametro Item do evento, vem o numero do indice do item q ele clicou. ai você ve, se o Selected estiver True, você adiciona ele no outro ListBox. se tiver False, você faz um For no outro ListBox, e procura qual é, no segundo ListBox, o indice do item clicado no primeiro. ai você remove o item do segundo. seria isso??

não entendi direito, mas acho q seria tipo isso aqui, não?? Dim i As Integer With List1 For i = 0 To .ListCount - 1 If .Selected(i) Then List2.AddItem .List(i) End If Next End With[/code]