kuroi

isso não é com sql, movido pra .net. cara, muito provavelmente o erro é porque seus dois campos (nome e cpf) são string e então você tem q por entre ' ' na query. se o erro continuar, tire o try (não precisa ser permanentemente, mas so pra testar) porque ele impede q o programa mostre a mensagem de erro. alias, to reparando agora e o codigo q forma sua query ta td baguncado. Dim queryString As String = "INSERT INTO [TESTE] ([NOME], [CPF]) VALUES (<%=Request.Form(""Nome""%>, <%=Request."& _ "Form(""cpf"")%>)"[/code] dentro do request.form, porque você abre duas aspas?? e pra abrir uma so, alem de q faltou fechar o parenteses no primeiro request. e ai o resto do segundo request você pos entre aspas, ai ele vai ler como string, não vai entender nd. o request é um objeto e você não pode quebrar a linha no meio em quanto acessa ele, o request.form tem q ficar tudo junto.

quando você esquecer de novo não precisa abrir outro tópico, é só postar no mesmo (ou de preferencia, editar o post q você já fez), beleza?? juntei os dois topicos ai pra você. como assim um banco de dados em outro form?? você quer dizer um controle ADO ou um controle Data?? você ta usando controles vinculados?? esse segundo formulario seria um formulario de busca?? tipo, o cara clicaria num botao e ai chamaria outro formulario e la ele escoheria qual o cliente do cheque seria isso?? isso é relativamente simples se você souber trabalhar com o controle ADO (ou o Data) ou com o RecordSet. simplesmente, quando ele selecionar o codigo no form de pesquisa, você grava numa variavel publica (ou edita direto o label no outro form). bom, veja se é isso mesmo e se você consegue ai, qualquer coisa poste ai e explique a parte q você não entendeu ou q não consegue fazer.

aqui o cara desenvolveu uma implementacao da listbox q faz isso: http://www.xtremevbtalk.com/showthread.php?t=23505 faca o download do projeto e ai pra adaptar no seu, é so adicionar o module q ele fez. e adicionar, no form q tenha a lista box, o codigo: oldWindowProc = SetWindowLong(GetParent(lstColors.hwnd), GWL_WNDPROC, AddressOf NewWindowProc) só lembre de trocar lstColors pelo nome de sua ListBox e note tb q seu projeto deve abrir pela Sub Main q esta no Module.

mas você tem acesso ao servidor?? e você instalou a fonte odbc la?? acho q você devia usar uma connectionstring tipo assim: Driver={MySQL ODBC 3.51 Driver};Server=data.domain.com;charset=UTF8;Database=myDataBase;User=myUsername; Password=myPassword;Option=3; vou fazer o seguinte, vou separar o tópico e mover pra mysql alguém la deve saber melhor.

devem ser os brasileros q foram pra pequim!!

como ficou sua connection string?? (não precisa mostrar user e senha) e qual o erro q da??

bom isso pode ser bestera mas me lembrou uns casos q já aconteceram comigo de alguns arquivos q sumiam e ai eu percebi q isso ocorria por conta da restauracao do sistema q eu tinha feito no xp. a restauracao teoricamente só deveria mexer no registro e/ou em arquivos do windows, mas sempre q faco ela apaga os arquivos q baixei no firefox depois da data do backup. não conheco o windows 2003 e não sei se existe essa opcao de restauracao e nunca ouvi falar q isso afetasse o sql, mas sei la seu problema me lembrou disso q já aconteceu comigo e achei q talvez ta ajudasse alguma coisa se eu comentasse. mas tenta lembrar de alguma coisa de diferente q você tenha feito de ontem pra hj, talvez seja isso.

então, a não ser q você tenha criado um job q faca os backups, você não tem nenhum backup pra poder usar. mas você não tem mesmo nenhum backup feito nesse mes todo?? o q aconteceu tb não sei... só posso imaginar q alguém tenha feito isso na mao. não tem ninguém q tenha acesso?? talvez alguém tenha restaurado um backup antigo por engano. o unico acesso ao seu banco é pelo toad no seu pc?? alem das aplicacoes ninguém mais tinha acesso ao banco?? o toad não tem alguma opcao pra mostrar o log?? ou tipo um activity monitor (q monitora os processos, por exemplo as queryes executadas) ai se tiver acontecido hj você pode encontrar la algum detalhe do q houve.

então, foi pra você q eu passei o InStr() em algum tópico ai?? você pode usa-lo tipo assim: For i = 1 To Len(palavra) letra = Mid(palavra, i, 1) If InStr("0123456789ABCDEF", letra) = 0 Then MsgBox "Não é hexadecimal" Exit For End If Next[/code] se tiver problemas com case (maiusculo - minusculo), use um UCase() pra transformar a letra em maiuscula.

não tem funcoa não, mas ai você pode usar aquele codigo q eu passei no outro tópico pra ler cada caracter, não sei se foi com essa intencao q você perguntou la. ai você compara cada um e se não for um numero hexadecimal (de 0 a 9 ou de A a F) você já sabe se não é hexa.

fiz uma bem rapida pra você: For i = 1 To Len(palavra) MsgBox "Caratere nº " & i & ": " & Mid(palavra, i, 1) Next[/code] a funcao mid, pega um pedaco da string. os parametros são, na ordem, a string, a posicao inicial do pedaco q você quer e (opcional) o tamanho do pedaco q você quer.

a com o Crystal Reports Control não sei direito, nunca usei ele pra imprimir. com o CRAXDRT se você fizer como explica esse tópico http://scriptbrasil.com.br/forum/index.php?showtopic=122749 ele imprime direto na impressora q estiver setada como padrão no windows. mas acho q não seria viavel você trocar o componente e ter q refazer todo o codigo certo?? então poste ai o codigo q você usar pra imprimir no CRControl q eu tento ver se descubro alguma coisa.

crispim, você esta usando vba ou visual basic 6?? se for o visual basic, não poste em vba, beleza?? não tem funcao pronta, mas você pode usar a funcao InStr(). ela retorna a posica em q determinado caratere se encontra na string exemplo: posicao = InStr("ACT.tmp", ".") se o nome do arquivo estiver certo, a variavel posicao vai ter valor 4 (o ponto esta na posicao 4).

aiaiai conhecer conheco mas não lembro nome. vou mover pra outros assuntos, alguém la deve te indicar alguma coisa.

movido pra asp.

cara acho q isso não é erro de sql e sim de rede. muito possivelmente pode ser problema de hardware assim como configuracao da rede. recomendo q você primeiro teste outro hub e outras placas de rede tb porque sempre q esse problema aparece por ai em forums é problema de hardware mesmo, mas vou mover o tópico pra redes já q tem mais relacao.

precisa do visual basic instalado. a ultima versao é 6, você teria q comprar a licenca do Visual Studio 6.0, mas nem sei se ainda vende, ele já esta desatualizado. hj em dia existe o visual basic .net q é muito melhor (apesar de ser mais dificil de programar, o q pode fazer diferenca pra iniciantes) e você pode baixar o Visual Basic 2008 Express Edition q é gratis, faca uma busca no google q deve ser um dos primeiros links da pagina.

moonfall, é um controle q se chama ToolBar associado com um outro controle chamado ImageList. pra poder usa-los, adicione o componente (menu Project -> Components) Microsoft Windows Common Controls 6.0. se tiver dificuldade em usar, faca uma busca por ai q você encontra exemplos facil. ai qualquer coisa poste ai.

pra atualizar use a sintaxe update. supondo q você tenha um campo chave q seja tipo um codigo do cliente (q não pode repetir - é unico pra cada cliente), você pode fazer assim: sql = "Update Tabela Set " &_ "Campo1 = '" & txtCampo1.Text & "', " & _ "Campo2 = '" & txtCampo2.Text & "', " & _ "Campo3 = '" & txtCampo3.Text & "', " & _ "Campo4 = '" & txtCampo4.Text & "' " & _ "Where Codigo = " & intCodigo cn.Execute sql[/code] só preste atencao q nos campos numericos você não pode por ' '.

você quer criar o relatorio inteiro atraves do visual basic ou quer exibir e filtrar um .rpt feito no crystal pelo visual basic?? se for a segunda opcao, de uma olhada nesse tópico q ensina: http://scriptbrasil.com.br/forum/index.php?showtopic=122749 se for a primeira opcao, olhe tb o tópico acima q ele ensina as bases do componente CRAXDRT e acho q com ele você consegue criar o relatorio todo. ai você vai vendo o q consegue fazer e qualquer duvida vai postando ai.

sua duvida é como mostrar uma nota do lado da outra?? se for, clique com o botao direito no nome da section (acredito q seja a details) no painel da esquerda e clique em Format Section e habilite a opcao Format with Multiple Columns. va pra aba Layout q vai abrir e selecione um width pra cada coluna (se você quer duas, pode por a metade da pagina, assim você divide a pagina em dois). ai caso você queira essa ordem: 1|4 2|5 3|6 selecione a opcao Down Then Across caso queira essa: 1|2 3|4 5|6 selecione Across Then Down veja se é isso, qualquer coisa poste.

pra por foto no post, você pode anexar o arquivo com a opcao aqui em baixo na hora de postar. ou se for mais facil pra você hospedar a imagem em algum servidor, ai você pode exibir aqui, clicando no botaozinho de imagem ali em cima e passar o endereco (ou colocar o endereco dentro da tag img tipo assim: [i.m.g]http://www.endereco.xxx/imagem.jpg[/i.m.g] só q sem os pontos pra escrever img). mas você não quer q duplique no cross-tab ou no details??

já tentou em vez de linkar pelo numero do pedido, linkar pelo campo q esta agrupado?? mas tipo não entendi direito o problema. tem como postar um print de como fica o crosstab no report principal e apontar o q esta saindo errado?? e tb temos uma sala pra crystal reports, to movendo pra la.

Resolvi fazer esse tópico pra deixar pendurado aqui com os passos básicos pra utilização da biblioteca Crystal Reports ActiveX Design Run Time Library pra quem usa Visual Basic, apesar de acredito q a ocx tb possa ser usada tb em outras linguagens como Delphi, com mais o menos tb o mesmo código abaixo, mas claro q adaptado pra sintaxe correta. O que acontece é que antigamente havia o componente Crystal Reports Control que era usado pra fazer a interação da linguagem de programação com os relatórios .rpt. Mas, não sei ao certo em que versao, acredito q na versao 8 mais ou menos, a biblioteca Crystal Reports ActiveX Design Run Time Library passou a ser distribuida junto com o Crystal Reports e sei q na versao 11 o Crystal Reports Control nem vinha mais. Acontece que o Crystal Reports ActiveX Design Run Time Library (q vou chamar de CRAXDRT pra facilitar) é muito melhor e com mais opcoes, e mais atualizado. Por exemplo, um problema que surgiu aqui no forum é q o usuario não conseguia exportar o relatorio no formato HTML 4.0 no CRControl, já essa opção apareceu apenas numa versão mais recente do Crystal Reports quando o CRControl já estava ultrapassado. E hoje em dia a maioria das pessoas (pelo menos pelo q se pode ver aqui no forum) continua utilizando o CRControl, talvez porque ele já esteja bastante difundido entre os programadores em geral. Mas aqui vou dar uma pequena introdução de como usar o CRAXDRT: Primeiro, adicione a referência (em menu Project -> References). Caso o Crystal Reports esteja instalado no seu computador, procure pela opcao Crystal Reports ActiveX Design Run Time Library X.Y (onde X.Y é o numero da versao de acordo o Crystal q esteja instalado). Pra usar é muito facil. Primeiro declare um objeto Application e um Report e inicialize o Application: Dim crAppl As CRAXDRT.Application, crRep As CRAXDRT.Report Set crAppl = New CRAXDRT.Application[/code] Aí, pra abrir o relatório faça: [code]Set crRep = crAppl.OpenReport("C:\Caminho\Relatorio.rpt") E pronto, ai você pode facilmente trabalhar com o seu relatorio. Aqui vou passar exemplos pras acoes mais comuns, mas com o CRAXDRT você pode ate mesmo montar um relatorio do zero. Editar o Selection Formula: crRep.RecordSelectionFormula = " - ponha aqui a formula - " Imprimir (na impressora): crRep.PrintOut False, 1 Passe True no primeiro parametro para solicitar confirmacao do usuario. O segundo é o numero de cópias. Exportar para o HD: With crRep .ExportOptions.DestinationType = crEDTDiskFile .ExportOptions.FormatType = crEFTWordForWindows 'Exportando pra Word .ExportOptions.DiskFileName = "ArquivoDoWord.doc" .Export False End With[/code] Adicionar valor em campo parametro: [code]crRep.ParameterFields(1).AddCurrentValue "Valor" Note que o índice comça no 1. O índice segue a ordem dos campos como você pode ver no Field Explorer com o .rpt aberto no Crystal Reports. Exibindo o relatório na tela: Primeiro adicione o componente (menu Project -> Componentes) Crystal Report Viewer e insira o CRViewer no formulário. CRViewer1.ReportSource = crRep CRViewer1.ViewReport[/code]

então, tinha falado pra você por um printscreen. pra por foto no post, você pode anexar o arquivo com a opcao aqui em baixo na hora de postar. ou se for mais facil pra você hospedar a imagem em algum servidor, ai você pode exibir aqui, clicando no botaozinho de imagem ali em cima e passar o endereco (ou colocar o endereco dentro da tag img tipo assim: [i.m.g]http://www.endereco.xxx/imagem.jpg[/i.m.g] só q sem os pontos pra escrever img). mas acho q consegui entender mais ou menos. você quer q, quando não existam registros no subreport, ele não exiba nd do sub, nem cabecalho nem nd certo?? com o selection formula noa tem como fazer isso, a não ser q você suprima secao por secao, o q daria muito trabalho e seria uma gambiarra, mas não deixa de ser uma opcao tb. se você clicar com o botao direito no nome da secao no painel na esquerda e selecionar Format Section, tem uma opcao la chamada Supress. Se você selecionar essa opcao, a secao não é mostrada. mas veja tb q tem um botaozinho do lado pra por uma formula. isso significa q a secao sera suprimida caso a formula retorne True. ai pra saber se a tabela tem ou não registros, você pode fazer uma formula do tipo: IsNull({NomeDaTabela.Campo}) de preferencia, passe o campo chave pra funcao IsNull(), pra não correr o risco de você usar algum campo q tenha valor nulo, o q faria com q ele retornasse True mesmo com registros. mas note tb q se, estando no report principal, você clicar com o botao direito no subreport, e entrando em propriedades, existe a funcao Supress tb do subreport. ou seja, você pode suprimir o subreport inteiro. mas ai eu não sei direito como funciona o seu banco. você mostra apenas 12 notas da primeira tabela certo?? mas e se tiver mais?? as demais tb estao gravadas nessa mesma tabela?? se tiver, você pode suprimir o subreport com uma formula tipo assim: Count({NomeDaTabela.Campo) <= 12 outra forma tb seria você suprimir o subreport por codigo no visual basic. mas me parece q você esta usando o Crystal Reports Control, certo?? nesse componente eu não saberia como suprimir o subreport, sei q da pra fazer com o Crystal Reports Design Run Time Library (q alias, é muito melhor q o Crystal Reports Control - aqui ensina como se usa basicamente: http://scriptbrasil.com.br/forum/index.php?showtopic=122749). veja ai se alguma das ideias q eu passei ajuda, qualquer coisa poste ai.