kuroi

você clicando no tópico mesmo na sala de Visual Basic, ele já te leva pro local correto (onde eu movi), note q la o icone do tópico tem uma flechinha. mas pra chegar na sala de .NET (o q inclui tb o Visual Basic 2005) é só clicar em .NET la em cima, mas o endereco é esse: http://scriptbrasil.com.br/forum/index.php?showforum=49

Visual Basic 2005 é .NET, essa sala é so pro Visual Basic ate a versao 6. to movendo pro local correto, mas se eu entendi o q você quer, você não precisa de dataset ou de dataadapter pra atualizar. você não tem um objeto oledbconnection e um oledbcommand (ou equivalentes)?? é só rodar a query de update no command (apontando pra connection aberta).

aaaa conheco mais o menos. o q não conheco é kenya e java. quando você falou q usava kenya achei q fosse algum compilador c++ q eu não conhecesse. achei estranho essas funcoes println() mas achei q fosse de algum include. então, fee, o codigo c++ é praticamente o mesmo do java, a sintaxe é a mesma, mudam as funcoes. você já tem o compilador c++ instalado?? mas tipo, o seu professor não ensinou nem o basico do c não?? basicamente nesse codigo, a unica coisa q você muda, são as funcoes println() e readint() e adicionar os includes corretos. seu professor deve ter ensinado não?? normalmente usamos printf() e scanf(), mas tem outros modos, como cin e cout, tem q ver como seu professor te passou. você não sabe como usar as funcoes printf() e scanf()?? exemplo (adicione o include "stdio.h"), pra ler o n em vez do readInt(), faca: scanf("%d", &n);

então fee, você tentou compilar e rodar o exercicio 2?? olhando o codigo parece q ta certo (so faltam uns pontos e virgulas), ocorre algum erro?? veja q a unica coisa q falta é mostrar o valor. veja q você escreve println(“raiz do número é: “); mas não adicionar o numero depois. quanto ao primero acho q é mais facil ainda. é so criar uma variavel pra cada possibilidade de voto (1 pra cada candidato, 1 pra branco e 1 pra nulo) e somar na variavel certa de acordo com q o cara escrever. ficaria mais facil ainda se você usasse array. qualquer duvida poste.

isso q você quer?? $sql = "SELECT dt_baixa, COUNT(cod_node) FROM at2 WHERE cod_node = '" .$_GET['cod_node'] . "' AND os_descricao = 'VISITA TECNICA' AND comp1 = (SELECT MAX(comp1) FROM at2) GROUP BY dt_baixa ORDER BY dt_baixa HAVING COUNT(cod_node) = 0";

porque você não poe esse codigo em uma outra sub no module e, no clique do botao chame com o Application.Run()??

ue, mas é so digitar o nome do userform e um ponto q você vai poder acessar todas as propriedades e fazer o q quiser com ele. o q exatamente você não consegue fazer?? se você quer mostrar o UserForm use, por exemplo UserForm1.Show (onde UserForm1 é o nome do UserForm).

não sei no Deplhi, mas no Visual Basic, a ocx Crystal Reports Control realmente não tem essa opcao já q é uma ocx já ultrapassada. acho q você deve estar usando essa mesma ocx no Delphi então não tem mesmo essa opcao. já q essa é uma ocx q existe desdas versoes mais antigas do crystal, ela deve vir de uma versao em q essa opcao não existia mesmo. mas na versao 8.5, uso, no Visual Basic, a dll Crystal Reports ActiveX Design Run Time Library e, verifiquei aqui, ela possui sim essa opcao, alem de ser melhor, mais facil de usar, e com algumas opcoes a mais. ela deve ser compativel com o Delphi, veja ai. caso você tenha q utilizar mesmo o Crystal Reports Control, então tente procurar no google se existe alguma forma de habilitar o HTML 4.0, ou então procure uma versao modificada ou mais atual da ocx, quem sabe você encontra uma com o HTML 4.0.

se ele esta como data, tente isso: If rsDBF.Recordset.Fields(i).Type = adDate Then rsDBF.Fields(i) = CDate(dtDBF.Recordset.Fields(i)) Else rsDBF.Fields(i) = dtDBF.Recordset.Fields(i) End If[/code] caso isso não funcione, volte ao codigo antigo. ai quando der de novo aquele erro, faca o seguinte, abra o Immediate Window (Ctrl + G). la digite: [code]? rsDBF.Recordset.Fields(i).Type & "/" & dtDBF.Recordset.Fields(i).Value & " - " & dtDBF.Recordset.Fields(i).Type e poste aqui o conteudo q ele retornar pra gente aqui saber o q esta acontecendo.

valeu, csrocha. se tiver otras duvidas pode pergunta

george, mas em qual das linhas ocorre o erro?? uma dica, ele nunca vai passar pelo Exit Sub se você dexar o Exit Do na frente.

mas o nome da propriedade é opeProvider ou Provider?? se você estiver usando Provider (e o "ope" tiver aparecido ai por erro na hora de postar), então você esta no caminho certo. se você estiver realmente usando opeProvider, então você esta usando um ADODB.Connection diferente do q eu conheco. mas o erro esta aqui em negrito: não é pra passar o nome da tabela e sim o CAMINHO E O NOME DO BANCO DE DADOS .MDB. certo?? se você estiver com dificuldades em usar ADO, recomendo q você de uma olhada nesse tutorial aqui ó: http://www.macoratti.net/ado.htm e tb nos demais tutoriais sobre o assunto nessa pagina aqui: http://www.macoratti.net/indvb.htm veja se ajudou, qualquer coisa poste.

não entendi direito, mas o q você esta precisando é arrastar uma picture box com o mouse certo?? essa funcao q você achou realmente so funciona com formularios. mas nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=105586 você encontra um codigo alternativo pra mover formularios sem borda, e como esta escrito no proprio tópico: ou seja, se você entender o codigo fica facil de adaptar para a picturebox. agora essa parte de aumentar e diminuir, tb não entendi direito. mostre um printscreen do form e do problema q ocorre pra gente ver se entende aqui.

não entendi nd... se alguém precisar do q?? pra responder no forum, é só clicar em RESPONDER. o q a agenda do titulo tem a ver ca historia??

basicamente, a gente tem varias salas sobre varios assuntos, e é so postar o assunto certo na sala certa. de tb uma lida aqui: http://scriptbrasil.com.br/forum/index.php?act=boardrules e se tiver alguma duvida sobre usar qualquer funcao do forum, pode perguntar.

qual a mensagem do erro??

note q o seu codigo esta errado, você não abre a aspa para a string, alem do mais, o q é aquele "n" no final?? o codigo q você precisa deve ser mais o menos assim: cnnTabelas.OpeProvider = "Microsoft.Jet.Oledb.4.0;Data Source='" & dbTabelas.Name & "'" mas o q esta em dbTabelas.Name?? note q onde esta dbTabelas.Name, você tem q passar o nome do banco de dados .mdb (e, caso esteja em outro diretorio, o caminho tb). outra coisa, o q é o objeto cnnTabelas??

use essa funcao: Public Function PrimLetraMaiusc(v As String) As String Dim var() As String, i As Integer, r As String r = "" var = Split(v, " ") For i = LBound(var) To UBound(var) r = r & UCase(Left(var(i), 1)) & LCase(Mid(var(i), 2)) & IIf(i <> UBound(var), " ", "") Next PrimLetraMaiusc = r End Function[/code] se você chamar assim: [code]MsgBox PrimLetraMaiusc("kURoI kuroi KUROI") o resultado sera: EDITADO: aiaiai descobri aqui q já tem uma funcao q faz isso ahhahaah é a StrConv (q serve pra otras coisas tb). a sintaxe é essa: MsgBox StrConv("kURoI kuroi KUROI", vbProperCase)

postei essa funcao aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=119648 veja se serve pra você.

use essa funcao: <% Function PrimLetraMaiusc(v) Dim var, i, r r = "" var = Split(v, " ") For i = LBound(var) To UBound(var) r = r & UCase(Left(var(i), 1)) & LCase(Mid(var(i), 2)) If i <> UBound(var) Then r = r & " " Next PrimLetraMaiusc = r End Function %>[/code] se você chamar assim: [code]<% = PrimLetraMaiusc("kURoI kuroi KUROI") %> o resultado sera: EDITADO: aiaiai descobri aqui q já tem uma funcao q faz isso ahhahaah é a StrConv (q serve pra otras coisas tb). a sintaxe é essa: <% = StrConv("kURoI kuroi KUROI", 3) %>

cara, realmente não encontrei um jeito de saber isso não, mas qual seria a finalidade de restringir só no exe?? se a funcao não vai funcionar no exe, pra q deixar no design?? se você quer desativar a funcao, mas não quer perder o codigo, deixe como comentario. tipo, assim... não encontrei jeito de fazer exatamente isso, mas existem formas... por exemplo, essas ocxs q so funcionam em trial por exemplo... devem checar o registro do windows, se o trial já passou, ele restringe a acao, talvez nem na propria ocx, mas no exe. você pode pensar em fazer alguma coisa assim, tb... tipo, na hora da instalacao, adicionar alguma informacao no pc, no registro, ou nas informacoes do proprio exe, de forma q você saiba q esta em exe. mas então... imagino q não seja um erro bem facil de encontrar, mas você pode tentar postar ai o codigo dessa funcao q não funciona e dar uma explicada do q exatamente não funciona, q a gente pode tentar descobrir. alias, vou mesclar os dois topicos, beleza??

se eu entendi direito, o erro deve estar na sql. se o campo é numero, faca sem aspas. assim: Sql = "SELECT Cliente, Custo_un " & _ "FROM tabOrcamento " & _ "WHERE Id=" & cmbOrcamento.Text & ";"[/code] veja se funciona, qualquer coisa poste.

marcia, por acaso você esta tentando instalar em windows 98?? se for, recomendo então, q você compile e crie o instalador tb em windows 98. mas de qualquer forma, recomendo q você use o InnoSetup pra fazer o instalador. o programa é free e você encontra pra baixar facil. baixe tb o IsTool, q é tipo um wizard para o IS. com o InnoSetup, geralmente esse tipo de erro ocorre com menos frequencia. se tiver dificuldade pra usar o InnoSetup, faca uma busca no forum, q tem varias explicacoes. e qualquer duvida pode postar ai.

movido.

provavelmente, wagner. você fez o instalador do seu projeto, pra passar as dlls?? entre em menu Iniciar -> Programas -> Microsoft Visual Studio 6.0 -> Microsoft Visual Studio 6.0 Tools -> Package & Deployment Wizard pra acessar o programa q cria o instalador.