Carlos Rocha

ola pessoal! Seguinte. Tenho o código absaixo que lista em uma combobox os dados de um cliente e a pagina que foi criada parta este cliente no meu site.; Explicando: quando eu cadastro um novo cliente no meu site, automaticamente eu crio uma pagina para ele como no orkut por exemplo. O que eu preciso: Quando a pessoa escolhe o nome de um cliente e clika nele, vale lembrar que para o nome dele aparecer o sua condição e bloqueio será "Não" e ao clikar, será redirecianado para a pagina desse cliente que esta no banco de dados junto com os dados dele. Quando chega la na pagina dele, caso alguém engraçadinho resolva digitart direto no browser o nome da pagina, com,o faço para informa-lo que esta pagina esta bloquada? <p>&nbsp;</p> <? if ($sub_segui=="") { ?> <div align="center">Voc&ecirc; n&atilde;o esta fazendo pesquiza alguma pois n&atilde;o escolheu nenhum seguimento no menu ao lado! </div> <? } else { $sql_sub_seguimentos = mysql_query("select ss.id, ss.id_seguimento, ss.titulo, s.titulo as seguimento from sub_seguimentos ss inner join seguimentos s on ss.id_seguimento= s.id where ss.id=$sub_segui"); $conta_sub_segui = mysql_num_rows($sql_sub_seguimentos); if ($conta_sub_segui == 0) {echo "<font size='2'>Este sub seguimento não é válido</font>";} else { list($id_sub_seguimento, $id_seguimento, $titulo, $seguimento) = mysql_fetch_row($sql_sub_seguimentos); ?> <table width="600" border="1" cellspacing="0" cellpadding="0" align="center"> <tr> <td colspan="2" align="center">Seguimento: <?=$seguimento; ?></td> </tr> <tr> <td colspan="2" align="center">Sub Seguimento: <?=$titulo; ?></td> </tr> <? $sql_anunciantes = mysql_query("select nome, pagina from anunciantes where seguimento=$id_seguimento and sub_seguimento=$id_sub_seguimento and bloqueio='n' order by nome"); $conta_sql_anunciantes = mysql_num_rows($sql_anunciantes); if ($conta_sql_anunciantes == 0) { ?> <tr> <td align="center" colspan="2"><font size='2' color="#FF0000"><br><br>Ainda não há Anuncios para este seguimento<br><br></font></td> </tr> <? } else { while(list($nome, $pagina) = mysql_fetch_row($sql_anunciantes)) { ?> <tr> <td><?=$nome;?></td> <td align="center" width="50"><img src="../img/Next.png" width="20" onClick="window.open('anuncios/<?=$pagina; ?>','_self');" border="0"></td> </tr> <? } } ?> </table> <? } } ?>

Ola pesoal. Com o código abaixo, estou gerando uma imagem com o texto Forum Imasters. Coisa simples. Funciona. Mas o que eu preciso, é que ao invés de imprimir na imagem o texrto Forum Imasters, impreimir uma previa(imagem) de uma pagina que eu indicarei o link onmde ela esta.; Porem, ewsta imagem terá que ser gerada dinamicamente, no código mesmo. Para nãp precisar de que a cada atualçização do site, eu tenmha que gerar outra figura no paintbrush. Tem jeito isso? <?php header("Content-type: image/jpeg"); //Informa ao browser que o arquivo é uma imagem no formato jpeg $imagem = ImageCreate(150,40); //Cria uma imagem com as dimensões 100x20 $vermelho = ImageColorAllocate($imagem, 255, 0, 0); //Cria o segundo plano da imagem e o configura para vermelho $branco = ImageColorAllocate($imagem, 255, 255, 255); //Cria a cor de primeiro plano da imagem e configura-a para branco ImageString($imagem, 3, 3, 3, "Forum Imasters", $branco); //Imprime na imagem o texto PHPBrasil na cor branca que está na variável $branco Imagejpeg($imagem); //Converte a imagem para um jpeg e a envia para o browser ImageDestroy($imagem); //Destrói a memória alocada para a construção da imagem jpeg. ?>

Gostaria de fazer duas coisa no meu site: 1) Um menu bacana no meu site mas não sei como fazer. Fiz umas pesquisas mas nada que me ajudasse muito. Dai a ideia de postar aqui. Bom, A ideia é a seguinte: Em uma combobox, uma Ajax ou JavaScript que faça o seguinte: Na combobox, serão listados tipos de seguimentos. Eu queria que a medida que a pessoa fosse digitando o nome do seguimento, fosse sendo filtrado letra a letra até aparecer na combobox apenas a opçãos escolhida. Alem disso, preciso tambem arranjar um jeito de na hora que o usuario ficar parado com o mouse por exemplo dois segundos sobre o iten escolhido na combobox seja mostrada uma mensagem ao usuario tipo assim: "Essa opção ,. bla, bla, bla". Tipo um,a tag Alt="" do html.; 2) A segunda coisa é o seguinte: Quando o usuario escolher na combobox um determinado seguimento, por exemplo material escolar, dai, ele será direcionado para uma pagina onme estará um lista com todos os materiais escolares disponiveis em estoque. Até ai tudo bem. Ai vem a mascara que pretenmdo fazer: Na pagina que mostrará a lista dos materiais escolares disponíveis, se o usuario escolher por exemplo o Lapis, ele será direcionado para uma pagina que falará tudo a respeito do lapis. Mas antes de ir para esta pagina, no momento em que o usuario estiver com o mouse sobre o ítem Lapis, será mostrada uma previa da pagina que esta para se abrir caso o usuario clike na opção Lapis. Seria como se o script fosse até pagina que vai falar sobre o lapis, gerasse uma figura em minuatura e mostrasse essa miniatura no evento onmouseover (no momento em que o mouse estiver sobre o link).; Bom. É isso.; Agradeço a quem, possa ajiudar!

Rapaz, deu certo. Agorta, com,o posso fazer para que o instalador façauma cópia da pasta imagens no diretório de inmstalação? ` Pergunto pois estou tendo que colocar manualmente a pasta imagens la no diretório de instalação.; O Compilador que estou usando é o Inno Setup Compiler.

Ola pessoal. O problema é o seguinte: Na minha asplicação, na hora de exibirem tela (Relatório com printDocument), exibouma figura com o seguinte código: e.Graphics.DrawImage(Image.FromFile("imagens\" & "frango2.png"), 200, 68) Compio a aplicação e a figura roda normçlmente. Dai, peguei uma programa para gerar um instalador(setup) para a minha aqplicação. Dai, instalo a minha aplicação mas na hora de exibir a figura da erro de exceção de não encontra a figura. dai, puiz a pasta que contem a figura la junto com os arquivos de instalação na pasta arquivois de programas igula ao que esta la no projeto no VB. Dai ele não acha a figura. Como proceder?

Ola pessoal. Gostaria de saber como fazer um instalador para a minha aplicação com intereface em portugues e adicionar ao instalador, a instalação (padrão) do MySql com a criação automatica do banco a ser usado. Como faz isso?

Obrigado pela ajuda. Essa parte ficou resolvida. Agora. Será que teria como voce me ajudar nesse outro tópico tb? http://scriptbrasil.com.br/forum/index.php?showtopic=131760 tai o conteudo dele

Rsrsrs. Tambem sou programador php. Fala sério né? Como o php ajuda o programador a programar! Na verdade, eu antes de voce responder, eu tinha chegado a essa conmclusão tamebem e deu certo, só que eu deixei o post aberto pra ver se oraciociniuo estava correto! Valeu! Moderador. Pode fechar o tópico por favor?

Ola péssoal. Tenho um MySqlDataReader quew faz u while para listar os valores lidos. Certo. Pois bem. Um dos campos da minha tabela de pedidos é pedidoID. Na minha cosulta sql tem selecionar pedidoID da tabela de pedidos onde o pedido foi feito entre as datas tal e tal. Agora vbem o pior: Prewciso criar uma string com os pedidosID todos e com mais um texto. Isso, eu pegarei essa veriavel e usarei em uma outra consulta sql. Tipo assim: varivel = "pedidoID=1 orpedidoID=3 or pedidoID=10 or PedidoID=25" seria isso. Com,o fazer isso

oK. Tentemos outra então: Preciso de fazer essa consulta Select COUNT(*) from detalhespedidos where pedidoID= 04 OR pedidoID= 02 OR pedidoID= 03 OR pedidoID= 01 esses numeros 04,02,03,01, são numeros que serão tirados de uma outra consulta sql que me informará quais pedidos satisfazem uma determinada condição. Dai, essa consulta retornará os numeros dos pedidos dentro de um while. Ai morre minha dúvida: Como montar o select acima se eu preciso de todos os numeros de pedidos de uma só vez? veja o while While (leitor.Read()) pedidoID = leitor("pedidoID") clienteID = leitor("clienteID") nomecli = leitor("nome") Tabela.Cell(ContaLinha, 1).Range.Text = pedidoID Tabela.Cell(ContaLinha, 2).Range.Text = clienteID Tabela.Cell(ContaLinha, 3).Range.Text = splitstring(nomecli) Dim PrintStringdetalhespedidos2 As String = "Select * from detalhespedidos where pedidoID= " & leitor("pedidoID") Dim PrintStringdetalhespedidoscounttotal As String = "Select COUNT(*) from detalhespedidos where pedidoID= " & leitor("pedidoID") Dim item As DataSet = accDb.ExecuteDS(PrintStringdetalhespedidos2, "detalhespedidos") For Each linhaDS As DataRow In item.Tables(0).Rows produtoID = linhaDS("produtoID") descricao = linhaDS("descricao") quantidade = linhaDS("quantidade") unidade = linhaDS("unidade") preço = linhaDS("preço") peso = linhaDS("peso") subtotal = linhaDS("subtotal") 'condicao = linha("condicao") Tabela.Cell(ContaLinha, 4).Range.Text() = produtoID Tabela.Cell(ContaLinha, 5).Range.Text = splitstring(descricao) Tabela.Cell(ContaLinha, 6).Range.Text = quantidade Tabela.Cell(ContaLinha, 7).Range.Text = unidade Tabela.Cell(ContaLinha, 8).Range.Text = preço Tabela.Cell(ContaLinha, 9).Range.Text = peso Tabela.Cell(ContaLinha, 10).Range.Text = subtotal pesoaproximado += peso TotalNota += subtotal ContaLinha += 1 Next linhaDS detalhe, preciso do retorna dessa consulta fora do while para eu saber quantas linhas terei em uma tabela que montareino word

ninguém?

Doce ilusão é a minha: fiz assim: select Count(*) from detalhespedidos d inner join pedidos p, clientes c on p.pedidoID = p.pedidoID and c.codigo = p.clienteID where p.ativo= 'S' and c.nome like 'c%' Retornou 12 e era para retornar só 4 O que a contece é : na tabela de detalhespedidos não tem clienteID na tabela de pedidos tem clienteID eu preciso saber quantos ítens tem na tabela de detalhespedidos que foram comprados pelo pedido tal onde o nome do comprador começa com c Ta dificil essa

Consegui fazer. Mas tem alguns outros probnlemas. No documento word, criei 3 tabelas A tabela 1, a 2 e a 3 nessa ordem mas acontece que elas sairam na ordem contraria 3,2,1. Como corrigir isso. Outra coisa:> como fazer uma linha para separar uma registro do outro? É só dando Tabela.Cell(1, 1).Range.Text = "_______________________________________________________________________________" Ou tem outro jeito?

Fiz assim e funcionou: select Count(*) from detalhespedidos d inner join pedidos p, clientes c on p.pedidoID = p.pedidoID and c.codigo = p.clienteID where p.ativo= 'S' and c.nome like '" & TBCliente.Text & "%'"

Ola pewssoal O PrintPreviewDialog é um form que abre em forma de dialoogo quando um PrintDocument é criado. Gostaria de saber como Descarregar o PrintPreviewDialog quanmdo fechamos o dialogo. A ideia seria evitar que, ao fechar o PrintPreviewDialog e o cliente abrilo de novo sem antes fechar o form que o deu origem, não acontecer de dar dados duplicados. vou ser mais especifico para abrir o PrintPreviewDialog basta fazer PrintPreviewDialog.ShowDialog() Certo? Pois, bem! Quando eu fecho o dialogo que se abre, com,o faço para descarregar os dados carregados carregados para evitar o caso de que sew clikar novamente no mesmo botão que deu origem ao ShowDialog() carregar dados em, duplicidade! Inclusive, se observar bem, até mesmo botões que são adicionados ao tolbox da printpreview são mostrados em duplicidade!

Ola péssoal. beleza! Estou fazendo a exportação do relatório gerado pelo PrintDocument através do PrintPreviewDialog e a geração do documento word esta sendo feita com sucesso. O problema esta sendo na ordenação dos campos no word. Tipo, ]a tabela que dweveria aparecer na parte de cima do documento esta aparecendo em baixo. A ordem só esta invertida.l Outra coisa é que a primeira coluna da primeira tabnela (criei 3) esta recebenmdo os valoires da terceira tabela toda que tem 2 linhas e 03 colunas.; Como corrige isso? Veja o código abaixo das figuras. Veja as friguras: Como deveria estar: Como esta: Código: Public Sub CriaTabela(ByVal Linhas As Integer, ByVal Colunas As Integer, Optional ByVal Bordas As Boolean = True) Tabela = word.ActiveDocument.Tables.Add(word.Selection.Range, Linhas, Colunas, 0, 0) With Tabela 'If .Style <> "Tabela com grade" Then ' .Style = "Tabela com grade" 'End If .ApplyStyleHeadingRows = True .ApplyStyleLastRow = False .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = False .ApplyStyleRowBands = True .ApplyStyleColumnBands = False If Not Bordas Then .Selection.MoveRight(1, Colunas, 1) .Selection.MoveDown(5, Linhas - 1, 1) .Selection.Borders(-1).LineStyle = 0 .Selection.Borders(-2).LineStyle = 0 .Selection.Borders(-3).LineStyle = 0 .Selection.Borders(-4).LineStyle = 0 .Selection.Borders(-5).LineStyle = 0 .Selection.Borders(-6).LineStyle = 0 .Selection.Borders(-7).LineStyle = 0 .Selection.Borders(-8).LineStyle = 0 End If End With End Sub Dim ContaLinha As Integer = 2 Dim totalLinhastotal As Integer Private Sub PreencheWord() word = CreateObject("Word.Application") word.Documents.Add() word.Visible = True With word Dim strConnString As String = "server=localhost;userid=root;password=;database=Pedidos" conexao = New MySqlConnection(strConnString) conexao.Open() If TBCliente.Text <> "" Then PrintStringdetalhespedidoscounttotal = "select Count(*) from detalhespedidos d inner join pedidos p, clientes c on p.pedidoID = p.pedidoID and c.codigo = p.clienteID where p.ativo= 'S' and c.nome like '" & TBCliente.Text & "%'" PrintStringdetalhespedidoscount = "select COUNT(*) from pedidos p inner join clientes c on p.clienteID = c.codigo where p.ativo= 'S' and c.nome like '" & TBCliente.Text & "%'" PrintStringdetalhespedidos = "select pedidoID, p.data, p.clienteID, c.nome as nome, c.codigo as codigocli, p.ativo, entrega, cobranca, frete, PGTO, CondPgto from pedidos p inner join clientes c on p.clienteID = c.codigo where p.ativo= 'S' and c.nome like '" & TBCliente.Text & "%'" ElseIf Not IsDBNull(DTPInicial.Value) Then PrintStringdetalhespedidoscounttotal = "select Count(*) from detalhespedidos d inner join pedidos p on d.pedidoID = p.pedidoID where p.ativo='S' and p.data BETWEEN " & Convert.ToString(DataInicial) & " and " & Convert.ToString(DataFinal) & " order by p.data" PrintStringdetalhespedidoscount = "select Count(*) from pedidos where ativo= 'S' and data BETWEEN " & Convert.ToString(DataInicial) & " and " & Convert.ToString(DataFinal) & " order by data" PrintStringdetalhespedidos = "select pedidoID, p.data,p.clienteID, c.nome as nome, c.codigo as codigocli, p.ativo,entrega, cobranca, frete, PGTO, CondPgto from pedidos p inner join clientes c on p.clienteID = c.codigo where p.ativo= 'S' and p.data BETWEEN " & Convert.ToString(DataInicial) & " and " & Convert.ToString(DataFinal) & " order by p.data" End If 'pegando o numero total de linhas Dim cmdcounttotal As New MySqlCommand(PrintStringdetalhespedidoscounttotal, conexao) Dim cmdcount As New MySqlCommand(PrintStringdetalhespedidoscount, conexao) totalLinhas = CInt(cmdcount.ExecuteScalar()) totalLinhastotal = CInt(cmdcounttotal.ExecuteScalar()) Dim Inicial As Date = Format(DTPInicial.Value, "Short Date") Dim Final As Date = Format(DTPFinal.Value, "Short Date") Dim DateInicial As String = Format(Inicial, "yyyy-MM-dd") Dim DateFinal As String = Format(Final, "yyyy-MM-dd") DataInicial = DateInicial.Replace("-", "") DataFinal = DateFinal.Replace("-", "") Dim cmd As New MySqlCommand(PrintStringdetalhespedidos, conexao) leitor = cmd.ExecuteReader() PaginaAtual = 1 Dim pedidoID As Integer Dim clienteID As Integer Dim nomecli As String Dim produtoID As Integer Dim unidade As String Dim descricao As String Dim preço As Double Dim quantidade As Integer Dim subtotal As Double Dim peso As Double Dim pesoaproximado As Double Dim TotalNota As Double '******************************** 'inicio imprime o cabeçalho do relatório '******************************** 'e.Graphics.DrawLine(Pens.Black, MargemEsquerda, 60, MargemDireita, 60) CriaTabela(2, 1, True) Tabela.Rows.Add() If PrintStringdetalhespedidoscount = "select COUNT(*) from pedidos p inner join clientes c on p.clienteID = c.codigo where p.ativo= 'S' and c.nome like '" & TBCliente.Text & "%'" Then Tabela.Cell(1, 1).Range.Text = "JOSÉ LUIZ - ME" .Selection.TypeParagraph() Tabela.Cell(2, 1).Range.Text = "PEDIDOS EM NOME DE: " & DGVLista.CurrentRow.Cells(3).Value ElseIf PrintStringdetalhespedidoscount = "select Count(*) from pedidos where ativo= 'S' and data BETWEEN " & Convert.ToString(DataInicial) & " and " & Convert.ToString(DataFinal) & " order by data" Then Tabela.Cell(1, 1).Range.Text = "JOSÉ LUIZ – ME" .Selection.TypeParagraph() Tabela.Cell(2, 1).Range.Text = "PEDIDO: " & Format(DTPInicial.Value, "Short Date") & " a " & Format(DTPFinal.Value, "Short Date") End If 'e.Graphics.DrawLine(Pens.Black, MargemEsquerda, 120, MargemDireita, 120) '******************************** 'fim imprime o cabeçalho do relatório '******************************** '******************************************* 'imprime os títulos das colunas do relatório '******************************************* 'e.Graphics.DrawLine(Pens.Black, MargemEsquerda, 140, MargemDireita, 140) Dim totallinhastabela As Integer = totalLinhastotal + totalLinhas CriaTabela(totallinhastabela, 10, True) Tabela.Rows.Add() Tabela.Cell(1, 1).Range.Text = "C.Ped:" Tabela.Cell(1, 2).Range.Text = "C.Cli:" Tabela.Cell(1, 3).Range.Text = "Nome: " Tabela.Cell(1, 4).Range.Text = "C.Prod: " Tabela.Cell(1, 5).Range.Text = "Descrição:" Tabela.Cell(1, 6).Range.Text = "Qtde:" Tabela.Cell(1, 7).Range.Text = "Unid:" Tabela.Cell(1, 8).Range.Text = "Preço:" Tabela.Cell(1, 9).Range.Text = "Peso:" Tabela.Cell(1, 10).Range.Text = "Total:" ' e.Graphics.DrawLine(Pens.Black, MargemEsquerda, 160, MargemDireita, 160) '******************************************* 'fim do imprime os títulos das colunas do relatório '******************************************* While (leitor.Read()) pedidoID = leitor("pedidoID") clienteID = leitor("clienteID") nomecli = leitor("nome") Tabela.Cell(ContaLinha, 1).Range.Text = pedidoID Tabela.Cell(ContaLinha, 2).Range.Text = clienteID Tabela.Cell(ContaLinha, 3).Range.Text = splitstring(nomecli) Dim PrintStringdetalhespedidos2 As String = "Select * from detalhespedidos where pedidoID= " & leitor("pedidoID") Dim item As DataSet = accDb.ExecuteDS(PrintStringdetalhespedidos2, "detalhespedidos") For Each linhaDS As DataRow In item.Tables(0).Rows produtoID = linhaDS("produtoID") descricao = linhaDS("descricao") quantidade = linhaDS("quantidade") unidade = linhaDS("unidade") preço = linhaDS("preço") peso = linhaDS("peso") subtotal = linhaDS("subtotal") 'condicao = linha("condicao") Tabela.Cell(ContaLinha, 4).Range.Text() = produtoID Tabela.Cell(ContaLinha, 5).Range.Text = splitstring(descricao) Tabela.Cell(ContaLinha, 6).Range.Text = quantidade Tabela.Cell(ContaLinha, 7).Range.Text = unidade Tabela.Cell(ContaLinha, 8).Range.Text = preço Tabela.Cell(ContaLinha, 9).Range.Text = peso Tabela.Cell(ContaLinha, 10).Range.Text = subtotal pesoaproximado += peso TotalNota += subtotal ContaLinha += 1 Next linhaDS ' e.Graphics.DrawLine(Pens.Black, MargemEsquerda, PosicaoDaLinhaDS, MargemDireita, PosicaoDaLinhaDS) ContaLinha += 1 End While 'e.Graphics.DrawLine(Pens.Black, MargemEsquerda, MargemInferior - 20, MargemDireita, PosicaoDaLinha) CriaTabela(2, 3, True) Tabela.Rows.Add() Tabela.Cell(1, 1).Range.Text = "Total de pedidos: " & totalLinhas Tabela.Cell(1, 2).Range.Text = "Peso Aproxiamdo: " & pesoaproximado & " Kg" Tabela.Cell(1, 3).Range.Text = "Valor da carga: " & Format(TotalNota, "currency") Tabela.Cell(2, 1).Range.Text = System.DateTime.Now.ToString() 'e.Graphics.DrawLine(CanetaDaImpressora, MargemEsquerda, MargemInferior, MargemDireita, MargemInferior) leitor.Close() conexao.Close() End With End Sub

Ola pessoal. estou tentando fazer uma consulta inner join que deveria retornar 4 registros e não esta retornando nenhum e tambem não esta dando erro: Onde será que estou errando? select Count(*) from detalhespedidos d inner join pedidos p on p.pedidoID = p.pedidoID inner join clientes c on c.clienteID= p.clienteID where p.ativo= 'S' and c.nome like 'c%' order by p.pedidoID É uma tabela de detalhes(itens)pedidos preciso saber quantos são os ítens cadastrados na tabela de ítens(detalhes) que satisfaçam a condição de que o pedidoID na tabela de pedidos seja igual ao pedidoID na tabela de ítens e o ClienteID na tabela de pedidos seja igual ao clienteID na tabela de clientes(essa parte é para eu pegar o nome do cliente para fazrer o like pois na tabela de ítenms nçao tem nem o id nem o nome do cliente

É sim exportação para word e aceito a su ajuda om todo prazer!

Não. Só instala o tread completo. Mas, de repente, voce pode me dar uma mão numa saida exttrtégica para esse problema. Tenho esse mesmo relatório feito em printdocument(onde parei) conforme a figura abaixo e estou gerando um arquivo do word para depois ser enviado por e-mail. estou conseguindo gerar o arquivo do word certinho, o que eu não estou conseguindo é dar esses espaços entre os campos dos pedidos. Paragrafos eu consigo fazer mas, uma linha ou espaços para separ os campos, ai não consegui. Grato. Carlos Rocha

Como e um programa que ainda estou desenvolvendo só tem 02 registros. mas programaticamente (no codigo) faço dataset, mysqldatareader normal. So nesse caso de ser como ferramenta não esta dando certo. Mas, como se trata dew Cristal reports, acho (veja bem: acho, não tenhio certeza) tem que ser atraves de ferramentas pra criar o dataset e não tem como faze-lo via código e usa-lo no Crystal Reports

Seguinte, Estou trabalhando com Visual Studio .Net e MySql 5.0.0 alfa O tread easy php foi só uma opção de instalação de uma versao do mysql que funcione. mas n ão há com,o instalar só o mysql nesse tread

Bom dia pessoal! Estou tentando criar um relatório em cristal reports mas estou tendo alguns problemas: Estou usando: VS.net 2008 MySql 5.0.0-alpha-nt Conector .net 5.2.3 o que esta acontecendo? Bom, vou em criar dataset. Como não foi criada ainda nenhuma conexão pede-se que crie uma nova conexão. Bom. No incio vai bem. A primeira tela preenche o usuario, senha, nome do banco, teste ok da conexão. Quando se passa para a proxima tela, volta não form do dataset e ai vou em criar query (já temntei com datatable e da o mesmo erro). Vou no querry builder e de cara da o seguinte erro: table 'information_schema.tables' doesn't exist mas mesmo assim, forçando a barra na opção execute query, a consulta é criada e tem retorno dos campos (field's) da tabela no MySql. Neste ponto, quando dou next o Visual Studio trava a ponto de ter que fechar o programa. veja na figura:

Não é ingenua não.; Pelo que percebi, o pacote gera dois instaladores, um que instala o mysql e depois outro que configura o server.; voce quer dize instalar só a primeira parte? Sabe, não estou entendendo, quando instalo as duas partes, alem de não gerar a pasta data, tambem não gera o MySqMyAdmin na pasta bin. ou seja. como é so instalar o MySql? Isso acho que não entendi! Onde estou errando?

Se abixar no teclado abaixa tambem no encoder! Só na caixinha que da certo! Mas, veja só: Baixando a atualização da placa de som no site da Realteck, foi instalado junto um aplicativo para administrar o som e nele dfa para parar/controlar os sons do microfome e e do saida output. Dessa form,a então ficou resolvido. Creio eu que agora, com os drivers novos instalados, até mesmo um, programa de audio que tenhop controlador de microfoine funcione. Então. Muito Obnrigado a todos novamente e vamos dormir pois ninguém é de ferro né? Agara deixa eu pelejar com outra bomba. MySql e vb.net em aplicações Desktoip. Fui!

Ola pessoal esta havendo progresso agora. Atualizei a realtek e saiu o stereo mix agora o quadro mudou. Se eu abaixar o som no teclado multimedia ou no player ou no volume do lado do relogio ai o som diminui tambem no encoder. E já não estou conseguindo fazer som sair no mnicroifone e sendoa ideia uma FM na web voiu precisar doi microfone. E agora? veja: