Ir para conteúdo
Fórum Script Brasil

Awq

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    15

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Awq

  1. clonar dropdownlist

    em Visual Basic

    Postado

    Tenho essa dropdownlist:

    <asp:DropDownList ID="DropDownList1" runat="server" DataSourceID="SqlDataSource2" DataTextField="DES" DataValueField="DES" AppendDataBoundItems="True" Height="20px" Width="200px">
    </asp:DropDownList><br />
    <asp:SqlDataSource ID="SqlDataSource2" runat="server" ConnectionString="<%$ ConnectionStrings:DBConnectionString %>" ProviderName="<%$ ConnectionStrings:DBConnectionString.ProviderName %>" SelectCommand="SELECT * FROM [RESPOSTAS]"></asp:SqlDataSource>

    Como, via vb eu faço um clone dele, pra que quando eu clicar num botão, clonar na frente dele essa mesma drop down, ou uma identica com os mesmos dados.

  2. Conexão access não mostra os registros

    em Visual Basic

    Postado

    Olá!

    Estou com um problema na conexão do access.

    Uso um botão que no evento click deveria mostrar em um dropdown list os registros da tabela.

    <asp:Button ID="Button1" runat="server" Text="Button" />
     <asp:DropDownList id="ddlCampos" Width="200px" Runat="server" Height="37px"></asp:DropDownList>

    E a conexão:

    Imports System.Data.OleDb

Public Class _Default
    Inherits Page


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

    End Sub
    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim Table_ As String = "PRODUTOS"
        Dim query As String = "SELECT NOME FROM " & Table_
        Dim MDBConnString_ As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\est10703\Desktop\Awq\DB.mdb;"
        Dim ds As New DataSet
        Dim cnn As OleDbConnection = New OleDbConnection(MDBConnString_)
        cnn.Open()
        Dim cmd As New OleDbCommand(Query, cnn)
        Dim da As New OleDbDataAdapter(cmd)
        da.Fill(ds, Table_)
        cnn.Close()
        Dim t1 As DataTable = ds.Tables(Table_)

        ddlCampos.Items.Add(t1.ToString)

    End Sub

    O problema é que na dropdownlist tá aparecendo só o nome da tabela, não os registros dela.

    Como consertar isso?

  3. Problema Visualg.

    em Lógica de Programação

    Postado

    Cara, sei que já deve ter terminado, mas acho que o jeito certo seria usar um "for", ou seja, um "se", "senao":

    Fica assim

    var
   L1, L2, L3: Real
   Eq, Es, Ret, Is: real
inicio
     Escreva ("Digite o primeiro lado: ")
		Leia (L1)
     Escreva ("Digite o segundo lado: ")
		Leia (L2)
     Escreva ("Digite o terceiro lado: ")
		Leia (L3)
		
		Se ((L1=L2) e (L2=L3)) entao
			Escreval("É um retângulo")
			se ((L1<>L2) e (L2<>L3)) entao
				Escreval("É um escaleno")
					senao
						escreval("É um isósceles")
			fimse
		fimse
fimalgoritmo

  5. Questionário em javascript

    em Ajax, JavaScript, XML, DOM

    Postado

    Muitos problemas pra quem tá programando pela primeira vez em javascript...

    Preciso de uma ajuda nisso.

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" dir="ltr">
<head>
	<meta http-equiv="content-type" content="text/html; charset=utf-8" />
	<title>Cadastro Ordens de Serviço</title>
	<link rel="stylesheet" href="os_files/css3menu1/style.css" type="text/css" /><style type="text/css">._css3m{display:none}</style>

		<script>
			var input = 1;
			function mais(campo) {
		 
				var valor = "input "+input+" - "+campo+" <input type='text' name='"+campo+"' value=''><br>";
				var nova = document.getElementById("aqui");
				var novadiv = document.createElement("div");
				var nomediv = "div";
					novadiv.innerHTML = "Pergunta "+input+" <input type='text' required name=' "+campo
					+"' value=''>  Resposta<input type='text' required name=' "+campo
					+"' value=''> Peso:<input type='number' required name='quantity' min='1' max='10'>";
				nova.appendChild(novadiv);

					input++;

			}
		</script>

</head>

<body style="background-color:#EBEBEB"> 

<ul id="css3menu1" class="topmenu">
	<li class="topfirst"><a href="index.html" style="width:127px;height:32px;line-height:32px;"><img 
	src="os_files/css3menu1/home.png" alt=""/>Página Inicial</a></li>

	<li class="toplast"><a href="#" style="width:66px;height:32px;line-height:32px;"><img 
	src="os_files/css3menu1/256-2.png" alt=""/>Sair</a></li><br>
	
</ul>
<br>
<h3><font face="Segoe UI">Criar Questionário</H3>
Requerente: <i>**vem do usuário logado**</i><br>
nº os: <i>**numeração automática**</i><br>
<br clear=right>

	
<form name="form" method="GET">
<input type="text" style="display: none" name="campo" value=""><br>
<input type="button" value="adicionar pergunta" onClick="mais(campo.value);">
<div id="aqui"></div>
<input type ="button" value="OK" onClick="window.close">
</form>
<div id="txt"></div>
</body>
</html>

    Esse é meu html com javascript.

    o que eu preciso é que ao clicar em um botão adicione a pergunta, igual está fazendo.

    Mas ao invés de adicionar uma única resposta, adicione quantas eu precisar, e cada resposta receba um peso, assim como eu fiz.

    Preciso que cada pergunta e resposta+peso recebida seja guardada no bd.

  9. Questionário dinâmico

    em Ajax, JavaScript, XML, DOM

    Postado

    Olá, pessoas!

    Preciso de uma pequena ajuda com javascript.

    Preciso criar um questionário dinâmico. Pra falar a verdade, vai ser um criador de questionários pra depois se responder os questionários.

    Então eu preciso criar um campo de input, que eu já criei, que ao pressionar um botão criam-se novos inputs. Isso eu já fiz.

    Agora, ao tempo que crie esses inputs, criar um botão para adicionar respostas ligadas a um radiobox. E que esse radiobox possa receber um valor separado da pergunta. Bem, é isso, o resto eu me viro.

    Valeu!

  10. Enviando Email Utilizando o VBA e HTML

    em VBA

    Postado

    Cara, no link vai ser difícil você colocar o nome com a data de hj, porque é em html, e pra fazer essas coisas em html geralmente o pessoal usa js ou php.

    o que eu aconselharia a fazer é criar uma sub que abra o navegador com o seu link.

    E o código que corrige mais ou menos o que você mandou.

    Sub Macro1()

Dim MyOlapp As Object, MeuItem As Object
Set MyOlapp = CreateObject("Outlook.Application")
Set MeuItem = MyOlapp.CreateItem(olMailItem)
With MeuItem

    
    .Bcc = ("filipe@xxx.com.br")
    .Subject = "Relatório x (Ref " & Format(Now, "dd/mmm/yy") & (")")
        .HTMLBody = "<font size=3  color=1F497D face=calibri>Bom Dia<br >"
        .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br >xxxx :" & Format(Now, "dd/mmm/yy")
        .HTMLBody = .HTMLBody & "<font size=3 color=1F497D face=calibri><br > <html><body><font size=3  color=red><a href=www.Relatório..xlsx>www.Relatório.xlsx</a></font></body></html>"
       .Attachments.Add ActiveWorkbook.FullName
    .Display

    End With
End Sub

  13. Preenchimento com gradiente

    em VBA

    Postado · Editado por Awq

    Olá a todos!

    Bem, eu tenho várias textbox, e dependendo do valor da célula R2, R3 e/ou suas subsequentes, eu vou preencher as textbox com determinadas cores.

    Se for 1, vai ser com a cor azul,se for 2, vai ser com um gradiente e, se for 3 vai ser com verde.

    Pra preencher com verde e azul eu consegui.

    Agora eu quero que preencha o gradiente com o azul e o verde, de cima pra baixo.

    Tá assim o código:

    Sub preenche()


Dim i As Integer
Dim y As Integer

For y = 2012 To 2014
    For i = 1 To 2
        'Tabela de valores começa na célula R2
        Select Case ActiveSheet.Cells(i + 1, 18).Value
            Case 1:
            ActiveSheet.Shapes("GOV_" & y & i).Fill.ForeColor.RGB = RGB(0, 51, 102)
            Case 2:
            ActiveSheet.Shapes("GOV_" & y & i).Fill.GradientColorType???
            Case 3:
            ActiveSheet.Shapes("GOV_" & y & i).Fill.ForeColor.RGB = RGB(0, 122, 55)
        End Select
    Next i
Next y


End Sub

    Então, é isso. Só falta essa parte.

    Obrigado a todos!

  14. Setar valor de célula para uma forma

    em VBA

    Postado · Editado por Awq

    Opa, cara! Valeu, mas esse não deu certo...

    Aqui vai o que eu já fiz, e se vocês puderem dar uma avaliada seria legal!

    Obrigado!

    ------------------------
    No edit aqui eu fiz um progresso, então o código que eu postei aqui foi totalmente modificado,
    Eu já consigo que as textbox aparecem e desapareçam, e que mudem de cor conforme o status.
    Já fiz também com que a textbox receba o texto de determinada célula.
    Agora, o meu problema é a continuidade do código, já que eu estou tendo que repetir ele pra cada célula e textbox.
    Me deram uma sugestão de usar um WHILE pra isso, mas não sei como.
    Tá assim:
    ___________________________________________________
    'GOV 2012
    Select Case Range("R2")
    Case 1 To 3:
    ActiveSheet.Shapes("GOV_2012").Visible = True
    Case Else:
    ActiveSheet.Shapes("GOV_2012").Visible = False
    End Select

    ___________________________________________________

    Então a textbox "GOV_2012" será visível se a célula R2 tiver um valor de 1-3.

    Então, quero fazer uma estrutura de repetição, que escolha a próxima célula(R3)

    e que o valor dessa célula estimule a visibilidade de "GOV_20122" e que a célula R4

    estimule "GOV_20123" e assim por diante.

    Valeu, pessoas!

  15. Setar valor de célula para uma forma

    em VBA

    Postado

    Olá, sou novo no fórum, vim aqui para pedir uma ajuda um pouco simples, mas como estou começando a programação em VBA estou com um pouco de dificuldade.

    É bem simples, criei um "Dim shape_ as Shape" e quero que de acordo com as células que eu definir, cada forma receba o valor de uma determinada célula para definir se ela será visível ou não.

    Então será assim: a célula vai ter 1 ou 2 e dependendo desse valor eu vou definir a visibilidade. Eu só queria uma maneira de setar automaticamente esses valores.

    Obrigado!

×
×
  • Criar Novo...