Ir para conteúdo
Fórum Script Brasil

amanda_leite

Membros
  • Total de itens

    19
  • Registro em

  • Última visita

Sobre amanda_leite

  • Data de Nascimento 21/03/1979

Perfil

  • Gender
    Female
  • Location
    Fortaleza

amanda_leite's Achievements

0

Reputação

  1. Bom dia pessoal, estou utilizando uma aplicação windowsform em vb.net e já montei o relatório, porém estou tentando vincular uma combobox ao parâmetro antes da geração do relatório: Dim Produto As ReportParameter Produto(0) = New ReportParameter("DS_Protudo", CbProduto01.SelectedValue) ReportViewer1.LocalReport.SetParameters(Produto) Más não está funcionando aparece o seguinte erro: "The Produto parameter is missing a value" Alguém teria uma idéia sobre o que está contecendo? Obrigada.
  2. Realmente Orlando, você tem razão, mas não consegui encontrar essa propriedade. Acabei resolvendo de outra forma: Substitui o SelectedValue pelo o ValueMember. Porém só funciona se estiver vinculado ao controle _Click, se estiver vinculado ao controle _Load não entendi o porque. Assim funciona: Private Sub QuadroDeHoras_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CbAtividade01.DataSource = CDdbaudit.ListaAtividade CbAtividade01.DisplayMember = "DS_ATIVIDADE" CbAtividade01.ValueMember = "CD_ATIVIDADE" CbAtividade01.SelectedIndex = -1 Private Sub BtAdicionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtAdicionar.Click TxB01.Text = CbAtividade01.Text TxB02.Text = CbAtividade01.SelectedValue Assim não: Private Sub QuadroDeHoras_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CbAtividade01.DataSource = CDdbaudit.ListaAtividade CbAtividade01.DisplayMember = "DS_ATIVIDADE" CbAtividade01.ValueMember = "CD_ATIVIDADE" CbAtividade01.SelectedIndex = -1 TxB01.Text = CbAtividade01.Text TxB02.Text = CbAtividade01.SelectedValue
  3. Oi Orlando, a propriedade DataValueField não seria para o CSharp, estou usando o VB.
  4. Olá pessoal, bom dia a todos tenho o seguinte código: CbAtividade01.DataSource = CDdbaudit.ListaAtividade CbAtividade01.SelectedIndex = -1 CbAtividade01.DisplayMember = "DS_ATIVIDADE" CbAtividade01.SelectedValue = "CD_ATIVIDADE" TxB01.Text = CbAtividade01.Text TxB02.Text = CbAtividade01.SelectedValue Quando chamo a propriedade SelectedValue da CbAtividade01 para a TxB02 somente aparece a string CD_ATIVIDADE. Como faço para chamar o código da atividade que está armazenado na SelectedValue?
  5. Oi quintelab, na verdade essa proc retorna somente um valor, onde é inserido o código do grupo e só é retornado o nome do grupo. Mas resolvi o problema elaborando uma consulta e formatando o resultado para .Single: Dim BDados = New AuditoriaDataClassesDataContext Dim crit As Integer = TextBox1.Text Dim consult = From GRUPOS In db.GRUPOS Where GRUPOS.CD_GRUPO = crit Select GRUPOS.DS_GRUPO TextBox2.Text = consult.Single
  6. Boa tarde pessoal, estou com dificuldade de passar o resultado de um "Select" para a propriedade .Text de uma TextBox: Nessa parte do código está a configuração e a chamada da SP (na classe Lbb): Public Shared Function ProcGrupo(ByVal CodGrupo As Integer) Dim BDados As New AuditoriaDataClassesDataContext Dim CodG = From c In BDados.ProcGrupo(CodGrupo) Return CodG.ToString End Function Nessa parte do código tento passar o resultado para a TextBox2.Text TextBox2.Text = Lbb.ProcGrupo(TextBox1.Text) Porém na execução o resultado que aparece na TextBox2 é esse abaixo: System.Linq.Enumerable+WhereSelectEnumerableIterator`2[auditoria.ProcGrupoResult,auditoria.ProcGrupoResult] Aguém tem alguma idéia do que possa está errado :huh: ? Fico grata,
  7. Bom dia pessoal, existe alguma possibilidade de enviar um formulário do Access para um Form do VB2008 (Express Edition)? Tenho aqui um pequeno aplicativo em access gostaria de aproveitar o banco e os formulários jogar para o VB. Obrigada.
  8. é isso mesmo: "pelo q eu entendi você teria q adicionar o grid via codigo no dialog box, seria isso??" O grid tem não (por isso teria que digitar o codigo), acho, a ajuda que tava precisando era do grid via VB6 mesmo...,de qualquer forma já peguei o material bom, vou pesquisar, valeu.
  9. ei pessoal nem uma luzinha para o grid...? cosegui resolver a vinculação dos outros campos com o campo do DSN.
  10. Oi Graymalkin, havia entendido o motivo do .Text, tb concordo que o script fica mais claro, mas o programa que "rodo esses scripts não aceitou o .Text. pessoal nova dúvida, fiz o form tá meio tosco :blink: mas achei legal :P , queria que no form só aparecesse um combox, no caso o combox do DSN, e os outros campos fosse selecionado automaticamente, pois ao escolher o DSN os outros campos seriam selecionados de acordo do o vinculo do DSN... DSN ____ HER -> usuario1 -> senha-user1 -> 10.10.10.19 HER-OLD -> usuario2 -> senha-user2 -> 10.10.10.168 DEFSAUD -> usuario2 -> senha-user3 -> 10.10.10.19 ou seja, como há uma vinculação entre os campos, tinha como eu selecionar o DSN e os outros valores serem preenchidos no UID, PWD, SERVER, o select (combobox4) automaticamente e diretamente no script sem precisar vizualizar no form? outra coisa, ando pensando em criar um grid (somente umas 10 linhas) para visualizar a minha pesquisa SQL antes da importação, tem como? Dim MyList2$() Dim MyList1$() Dim MyList3$() Dim MyList4$() Begin Dialog BoxSample 19,0,192,180,"List Box, Combo Box, and Drop-Down List Box" OKButton 110,162,35,11 ComboBox 7,74,54,30, MyList2$(), .CmboBox2 Text 7,64,44,8, "usuário", .Text3 TextBox 7,155,72,12, .TextBox1 Text 7,142,37,8, "salvar como", .Text6 Text 7,3,40,9, "dsn", .Text1 ComboBox 5,13,42,40, MyList1$(), .ComboBox1 Text 7,113,40,7, "SQL", .Text5 TextBox 7,124,162,12, .TextBox2 Text 87,64,40,9, "senha", .Text4 Text 65,2,40,9, "servidor", .Text2 ComboBox 84,74,42,40, MyList3$(), .ComboBox3 ComboBox 65,13,104,30, MyList4$(), .ComboBox4 End Dialog Sub Main ReDim MyList1$ (2) MyList1 (0) = "HER" MyList1 (1) = "HER-OLD" MyList1 (2) = "DEFSAUD" ReDim MyList2$ (1) MyList2 (0) = "usuario1" MyList2 (1) = "usuario2" ReDim MyList3$ (2) MyList3 (0) = "senha-user1" MyList3 (1) = "senha-user2" MyList3 (2) = "senha-user3" ReDim MyList4$ (1) MyList4 (0) = "10.10.10.19" MyList4 (1) = "10.10.10.168" Dim Dlg1 As BoxSample Button = Dialog ( Dlg1 ) dbName = Client.UniqueFileName(Dlg1.TextBox1) Client.ImportODBCFile "A", dbName, FALSE, ";DSN=" & Dlg1.ComboBox1 & ";UID=" & Dlg1.CmboBox2 & ";PWD=" & Dlg1.ComboBox3 & ";SERVER=" & Dlg1.ComboBox4 & ";", Dlg1.TextBox2 Set db = Client.OpenDatabase (dbName) End Sub
  11. Meu..,perfeito. Mas funcionou sem o .Text agradecida Graymalkin
  12. Olá kuroi, boa tarde... bem..., mandar devolver os livros nem pensar :o (rss), fica como investimento, iremos testar a compatibilidade do programa com o vb 2005 com calma (emitimos um help ao suporte, vamos aguardar...). de qualquer forma o seu ponto de vista acima deu-me o seguinte alerta, que o estudo do vb 2005 certamente pode levar o foco do nosso objetivo (que é alinhar os scripts do vb ao soft que utilizamos) para um conhecimento não aplicável. comecei os estudos B) , alias, o site do macoratti é muito recheado, ando mastigando..., já estamos desenvolvendo algumas coisas...porém estou com um dúvida terrível :( (relutei em postar mais um dúvida) que é a seguinte, no seu post # 7 você diz "é porque você pos o nome do textbox entre aspas, ai ele ta passando a string..." entendi, retirei as aspas, funcionou certinho, porém para o Client.ImportODBCFile se eu retirar as aspas para o DSN (até fecha aspas) e o SELECT (até fecha aspas) para vincular com o seu respectivo Dlg1.EditBox dá erro, o script que roda legal é esse: Client.ImportODBCFile "A", dbName, FALSE, ";DSN=HER;UID=auditoria;PWD=****;SERVER=90.98.87.10;", "select * from fornecedor_conta" já o que eu fiz a adptação (que gera o erro é o seguinte): Client.ImportODBCFile "A", dbName, FALSE,;DSN=Dlg1.EditBox_2;UID=Dlg1.EditBox_3;PWD=Dlg1.EditBox_4;SERVER=Dlg1.EditBox_5;, Dlg1.EditBox_1 mais uma vez agradecida... :)
  13. nossa kuroi, meu chefe mandou comprar uns livros de visual 2005 prá galera aqui :lol: , será que o programa suporta os scripts gerados pelo vb2005: "IDEAScript is an object oriented programming language consistent with Microsoft's Visual Basic for Applications™ (VBA) and it is a similar to LotusScript™" o que seria esse VB for applications? Teria algum teste que eu possa aplicar para testar a compatibilidade?
  14. Olá kuroi, bom dia, valeu pela ajuda, deu certo. Vou ter que cair de cara em vb, seria um boa começar com o visual basic 2005? O livro Programando com Microsoft Visual Basic 2005 : A Linguagem Balena, Francesco / BOOKMAN é um boa?
×
×
  • Criar Novo...