kuroi

o valor gravado no banco é nulo. faca assim q deve resolver: nome = Data1.Recordset.Fields("N°Venda").Value & ""

não funciona com UNION ALL??

é como disse o shlkr87, use decimal mesmo, e grave com pontos e não com virgulas e sem aspas tb. mas vou mover pra MySql, la os caras devem ter mais informacoes.

se a sua duvida é como adicionar dados na lista, é só usar o metodo AddItem.

bom, fiz o seguinte aqui: 1 - No Explorer, cliquei com o botao direito na pasta onde esta o site. Entrei em Propriedades -> aba Compartilhamento da Web, selecionei Compartilhar esta Pasta e nas permissoes de acesso do alias deixei marcada as opcoes Leitura, Gravação e Acesso ao código fonte do script. 2 - Entrei em Painel de Controle -> Ferramentas Administrativas -> Internet Information Services. La encontrei o meu alias na lista, cliquei com o boato direito nele -> Propriedades -> aba Segurança de diretório. 3 - Na caixa Controle de acesso anônimo e autenticação, cliquei em Editar. Deixei marcada a opção Acesso Anônimo. A caixa Nome de Usuário já veio preenchida com os dados IUSR_<NomeDoMeuPC> e caixa de Senha tb veio preenchida com alguma coisa. Não alterei nenhuma das duas. Deixei MARCADAS as opções Permitir que o IIS controle a senha e Autenticação do Windows Integrada. só isso e aqui abre certinho do FireFox e no IE e no Opera sem pedir senha nenhuma. caso você não consiga ai, tente excluir o seu alias e depois incluir de novo e ai siga essas instrucoes e veja se da certo.

alguém conseguiu colocar p rodar por este meio ou outro sem precisar definir uma senha para o usuário? não precisa definir senha pro usuario. siga as instrucoes do fercosmig. o meu windows tb só tem um usuario, sem senha e pra mim funcionou certinho o esquema do fercosmig. a unica diferenca é q no meu caso, a opcao Permitir que o IIS controle a senha esta checada.

Visual Basic .NET tem q ser na sala de .NET. você não viu o ATENÇÃO escrito grandao la em cima?? mas to movendo pra la. quanto ao seu codigo, é só você por um Handles pra cada textbox. tipo assim: Private Sub txt_ip1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_ip1.TextChanged, txt_ip2.TextChanged, txt_ip3.TextChanged ou tb pode usar a instrucao AddHandler. EDITADO: opa, esqueci de falar, pra sub funcionar pra todos os TextBox tb você tem q pegar pelo sender do evento. assim as instrucoes vao ocorrer pro TextBox q chamou o evento. tipo, em vez de If txt_ip1.TextLength = 3 Then faca If sender.TextLength = 3 Then

você tem q descobrir em qual tabela exatamente estao os ips. e pelo q você descreveu acredito q não seja nessa tabela Menu. ai o codigo simplesmente seria: Delete * From Tabela onde Tabela é o nome da tabela onde ficam armazenados os ips. mas cuidado q isso apaga tudo. se você tiver dificuldade em encontrar a tabela no sql, de uma olhada no codigo asp (imagino q você tenha acesso), é só abrir a pagina onde os ips são listados e procurar onde ele faz o Select, ai la deve ter o nome da tabela. mas pode estar em procedure ai você tem q olhar a procedure.

o campo chama mesmo N°Pedido?? sera q o erro num é por causa desse caractere °?? quando for dar nomes pra campos e tabelas tenta por o menos enfeitado possivel, de preferencia sem acento, sem espaco e sem caracteres estranhos (por exemplo, sem °), pra evitar esse tipo de erro. mas pra corrigir isso no codigo, tenta fazer assim: Data2.RecordSource = "select * from Produtosvendidos where [N°Pedido] ='" & Text5.Text & "'" e caso o campo N°Pedido seja numerico, tenta assim: Data2.RecordSource = "select * from Produtosvendidos where [N°Pedido] =" & Text5.Text

tenta por float: left; no #corpo, no #topo e no #rodape.

é só você pegar pelas propriedades Height e Width do pai. como exatamente você quer fazer?? se for pra deixar o tamanho do filho igual ao pai é só setar o heigth e o width igual ao do pai.

opa, é só cahamr sem parenteses. assim: Centraliza frmMenu, frmbuscaaluno

opa. cara tenta ser sempre o mais especifico possivel, beleza?? porque você diz que: mas "não to conseguindo" pode significar 1000 coisas. eu não tenho como postar considerando todas as possibilidades, senao eu vo postar um tópico com centenas de linhas, sendo q você só precisaria de 2 delas, isso se em algumas das possibiliades eu acabar acertando o q você precisa, o é bem capaz de ainda não acontecer. porque você não consegue?? da erro?? ele não centraliza?? se der erro, qual erro?? sempre explique o q acontece, poste mensagem de erro, poste codigo, poste tudo, informe o q você sabe fazer, o q não sabe, etc, beleza?? tipo, o q exatamente ta acontecendo no seu programa com esse codigo??

a ponha então o mesmo codigo q eu passei mas antes do Order By, ponha um Where pra filtrar como você quer (por exemplo Where crd_id = 10). veja se é isso q você quer.

se tiver mais de um crd_id com o mesmo esp_id vai repetir mesmo ue. como você quer q os dados aparecam então??

isso? Select * From (Endereco INNER JOIN Credenciado_Especialidade ON Endereco.crd_id = Credenciado_Especialidade.crd_id) INNER JOIN Especialidade ON Credenciado_Especialidade.esp_id = Especialidade.esp_id Order By esp_desc

é só passar o pai em Parente e o filho em Child. EDITADO: tb falta fechar o End If no codigo. e tb esse codigo só vai funcionar se o Mdi estiver maximizado. pra funcionar sempre é só tirar o If q checa o WindowState.

é só adicionar uma linha no final e preenchar ela. você sabe qtas linhas o FlexGrid tem pela propriedade Rows. e com um AddItem você adiciona uma nova linha: MSFlexGrid1.AddItem "", MSFlexGrid1.Rows ai pra ir pra ultima linha é só pegar pelo .Rows tb. tipo assim: MSFlexGrid1.Row = MSFlexGrid1.Rows - 1

a ta é q da primeira vez ele já vai estar fechado então vai dar erro mesmo. tenta assim: If Rs.State <> 0 Then Rs.Close

hum entendi, fez certinho.

o bd.Close não, tem q ser só o rs.Close. a não ser q você abra de novo a conexao tb. tenta por só o rs.Close e veja se funciona. se não poste a mensagem do erro pra gente ver.

beleza, qualquer problema poste ae.

uma solucao é fazer um replace: Replace("6500,87", ",", "") mas se você quer considerar as casas decimais (por exemplo, se você quer q 2,5 fique 250 (como se fosse 2,50) em vez de 25) é só multiplicar por 100.

você adicionou a referencia ao DAO (em menu Project -> References)??

não uso o DataReport então não sei direito. o filtro você faz no proprio ADO?? se for, tenta isso: ado.Recordset.Find "data Between '" & data1 & "' And '" & data2 & "'" ou isso: ado.Recordset.Find "data Between #" & data1 & "# And #" & data2 & "#" acho melhor usar o MaskEdBox (adicione o componente Microsoft Masked Edit Control 6.0)