Jump to content
Fórum Script Brasil

rizuane

Membros
  • Content Count

    27
  • Joined

  • Last visited

Community Reputation

0 Neutro

About rizuane

  1. ola pessoal, tou muito encrencado com esse codigo de incluir as vendas de produtos numa grid para depois calcular o total das vendas. codigo onde instanciamos a classe vendas e declaramos algumas variaveis: 'Definir objeto da classe DetalhesPedidos Dim oDetalhesPedidos As detalhesPedidosDAL Dim nomeProduto As String Dim codProduto As String Dim precoProduto As Double Dim codigoCliente As String Dim estoqueProduto As Integer 'Definir una LISTA de Objetos DetalhesPedidos Dim ArrDetalhesPedidos As New List(Of detalhesPedidosDAL) 'botao incluir produtos
  2. Com a dica que o QUINTELAB deu-me, fui investigar e consegui resolver o caso, abaixo posto a soluxao: 'ao seleccionar uma combobox aparecesse em duas textbox valores da base de dados (PARA TABELA PRODUTOS) Dim con As New SqlConnection() Try con.ConnectionString = Dados.StringDeConexao con.Open() Dim strsql As String strsql = "Select * from PRODUTOS where produto ='" & ComboBox4.Text & "'" Dim cmd As New SqlCommand(strsql, con) Dim dr As SqlClient.SqlDataReader dr = cmd.Ex
  3. oi pessoal tenho uma duvida acerca das combobox, vejamos o exemplo da tabela PRODUTO abaixo: id produto estoque valor 1 sabao 30 15.00 2 perfume 11 550.00 A minha combobox deve ser capaz de trazer nome produto.quando selecionar mos a combobox para escolher o perfume por exemplo, ele tera de trazer os dados do perfume como estoque e o preço que serao mostradas em duas textbox, ficando assim: a selecao devia aparecer assim quando selecionamos os produtos na combo: combobox=perfume, textbox1=11, textbox2=550.00 agradecia que me ajudassem com um codigo em vb.net abraxos
  4. consegui resolver o erro, o problema estava na coluna ID, que era chave primaria da tabela apontamentos. troquei a chave primaria para statusID que permitia fazer o "appointmentMappingInfo.StatusId = "StatusID"". Foi um reurso que usei visto que com a coluna ID, não permitia fazer o "appointmentMappingInfo.Id = "ID"", devido a classe do proprio control, que não permitia editar (são controles de TELERik winform). obrigado
  5. ola pessoal estou trabalhando num pequeno programa de gestao de consultas medicas e tenho uma base de dados sql com tres tabelas e existe relacoes entre elas: Quando o programa esta correr e clico no "Update button" recebo este erro: The INSERT statement conflicted with the FOREIGN KEY constraint "FK_AppointmentsResources_Appointments". The conflict occurred in database "C:\DOCUMENTS AND SETTINGS\NUNEX2\DESKTOP\CONSULTASMEDICAS\BD\SCHEDULERDATA.MDF", table "dbo.Appointments", column 'ID'. The statement has been terminated. o codigo do botao Update e: Private Sub btnUpdate_Click(sende
  6. desculpa ai, mas entendeste errado, eu quero fazer uma busca na pasta selecionada somente. Essa busca vai ser pelo nome da sub-pasta. Obrigado pela disposicao caro amigo, espero que fiz entender. abraco.
  7. eu tenho um outro textbox2 onde quando intoduzir ou escrever um nome de uma sub-pasta (ex: "exame") e ao clicar no botao "PROCURAR" ele vai mostrar somente esta sub-pasta no listbox. N.B.: Esta sub-pasta (ex: "exame") esta dentro da pasta que selecionei pelo txt_watchpath.Text = MyFolderBrowser.SelectedPath
  8. É abrir uma sub-pasta especifica da pasta já indicada no textbox. Eu vou pesquizar pelo nome da sub-pasta, então no listbox tem que aparecer somente uma sub-pasta.
  9. oi pessoal amigo Tenho duvida em fazer o código de pesquisa em uma pasta especifica já selecionada atravez do FolderBrowserDialog. Tenho um formulario com dois textbox, dois butões e um listbox. Um textbox mostra o caminho da pasta selecionada, que é conseguido atraves do butão MyFolderBrowser. já consegui selecionar a pasta onde pretendo pesquisar por outra sub pastas que se encontram dentro desta, atraves deste metodo: Private Sub BtnFolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFolder.Click Dim MyFolderBrowser As New System.Windows.Forms
  10. rizuane

    criar setup

    Consegui resolver os erros e o setup roda perfeitamente no windows vista. Consegui fazer graças a este dica de um outro forum: Pessoal vou explicar aqui como fazer para saber quais OCX´s e DLL´s possuem o programa e depois registrar estas com o inno setup Primeiro para saber quais dll´s e ocx´s que devo incluir em meu instalador e quais tenho de registrar eu faço da seguinte forma: primeiro crio um instalador normalmente utilizando o Package & Deployment Wizard do Visual Studio Feito isso vou na pasta Onde foi criado o instalador ( no meu caso o nome é Package) e abro o arq
  11. rizuane

    criar setup

    ola pessoal, mais uma venho pedir a vossa colaboraxao. consegui fazer o setup da minha aplicação vb6 (tudo no windows vista). Ao instalar na maquina do cliente ele roda os formularios de cadastros de clientes e produtos perfeitamente, inclusive vai buscar dados na base de dados e mostra... mas quando vou fazer uma consulta ele não retorna nenhum dado na flexgrid, mostra uma grid vazia (não da nenhuma mensagem de erro). E tambem quando tento visualizar o relatório ele não mostra e da o seguinte erro:RUN TIME ERROR '-21470247770 (8007007E)' AUTOMATION ERROR THE SPECIFIC MODULE COULD NOT BE FOUN
  12. rizuane

    criar setup

    Kuroi, quando estava fazer o setup do Package que mandaste-me ele deu esses erros e não funciona:(esperimentei no windows vista!!) " An access violation ocurred while copying the file " ......... (vinha c\windows\system32\expsrv.dll e c\windows\system32\vbjet32.dll ) Outro erro foi: Visualbasic Toolkit: Setup1.exe ( " the procedure entry point lstrcatl could not be locate in the dynamic link library MSDART.DLL")
  13. rizuane

    criar setup

    ola amigo Kuroi..........já recebi o teu e-mail e ainda não experimentei..........logo que experimentar posto aqui o resultado. abraços
  14. rizuane

    vb6

    RESOLVIDO..........o problema estava nesta string sql: No recordSource do ado data control de datEditoras tem este sql: SELECT DISTINCT Editoras.*, Livros.CodEditora FROM Editoras INNER JOIN Livros ON Editoras.CodEditora = Livros.CodEditora ORDER BY Editoras.NomeEditora; Troquei por este: SELECT DISTINCT NomeEditora FROM Editoras ORDER BY NomeEditora Alterei aqui também: Na propriedade RowSource da datacombo: datEditoras Na propriedade LIstFilde da datacombo: NomeEditora Na propriedade Boundcolumn da datacombo: NomeEditora Valeu pela minha PERSISTÊNCIA
  15. rizuane

    vb6

    oi pessoal...... estou quase a ultimar esse exercicio Bibliotecario (pdf tirado da net, com muitos erros) , so que estou com um problema nesta parte do exercicio: Elaborei um formulário para a consulta de Livros por Editora (com um datacombo, dois ado data control e uma datagrid) O funcionamento dessa consulta será assim: na DataCombo serão exibidas os nomes das editoras, e conforme o operador for alternando entre eles, os livros da editora selecionado serão exibidos no grid. Será necessário, portanto, filtrar os registros da tabela de livros de acordo com a editora escolhida na combo. No
×
×
  • Create New...