Carlos Rocha

Entendi. Mas, tudo o que estou querendo é, no código abaixo, substituir a variavel bd(que nesse modelo que peguei é uma classe de conexão com banco do tipo DataContext) por uma do tipo que voce esta me instruindo como fazer via datareader. Private Sub BtnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalvar.Click 'Vamos usar o mapeamento feito pelo LINQ 'para efetivar as atualizações nas bases de dados Try 'A expressão lambda a seguir devolve um objeto Cliente 'Estamos usando o codigo do cliente para identificar unicamento o cliente Dim Cli As Cliente = bd.Clientes.Single(Function(p) p.clienteID = Me.txtCodigoCliente.Text) '------------------------------------------------- 'Cria um novo objeto Pedido '------------------------------------------------- Dim oPedido As New Pedido oPedido.data = Date.Now oPedido.clienteID = Cli.clienteID oPedido.Cliente = Cli '-------------------------------------------------- 'Obtendo os detalhes do pedido 'realizo a geração dos objetos Pedido 'vou percorrer o array dos detalhes do pedido '---------------------------------------------------- For Each o As DetalhesPedidos In ArrDetalhesPedidos 'Instancio um objeto Produto selecionando pelo codigo do produto Dim produto As Produto = bd.Produtos.Single(Function(a) a.ProdutoID = o.CodProduto.ToString()) 'Cria um novo detalhe do pedido Dim detPedido As New DetalhesPedido detPedido.Produto = produto detPedido.ProdutoID = produto.ProdutoID detPedido.Quantidade = o.Quantidade detPedido.preço = o.preço 'inclui os detalhes do pedido no pedido oPedido.DetalhesPedidos.Add(detPedido) '-altera a quantidade de estoque do produto produto.estoque = produto.estoque - o.Quantidade Next '------------------------------------------------------ 'Aqui atualizo a base de dados bd.SubmitChanges() MsgBox("Dados de Pedidos , Detalhes de Pedidos e Estoque atualizados com sucesso...") Catch ex As Exception MsgBox(ex.Message) Finally 'chama as rotinas para limpar clientes e produtos e vendas limpar_cliente() limpar_produto() limpar_venda() Me.calcular_total() End Try End Sub ... veja os erros agora: Error 1 Type 'Cliente' is not defined. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 196 24 Vendas Error 2 Type 'Pedido' is not defined. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 200 32 Vendas Error 3 Type 'Produto' is not defined. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 211 32 Vendas Error 4 Type 'DetalhesPedido' is not defined. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 213 38 Vendas Error 5 Name 'bd' is not declared. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 225 13 Vendas

Não consegui ainda continuo agiuardando ajuda

Bom, fiz as devidas correções e fui até quase o fim do programa modelo porem, me esbarrei novamente em 2 coisas: na form abaixo, as variaveis cliente, pedido, produto e detalhepedido não estao recebendo valor por causa do tal do bd mas agora de uma forma diferente Nesse caso, como eu faço? Outra coisa, quando chamo o form de pesquiza de clientes ele vem vazio (em tempo de execução) mas ele esta todo pronto. Como resolvo isso? Imports MySql.Data.MySqlClient Public Class frmVendas Dim conexao As New MySqlConnection Dim Commando As New MySqlCommand Dim Adaptador As New MySqlDataAdapter Dim rs As MySqlDataReader Dim consulta As New DataTable Dim SQL As String Private Sub frmVendas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) conexao.ConnectionString = "server=localhost;user id=root;password=;database=vendas" conexao.Open() Commando.Connection = conexao End Sub 'Definir objeto da clase DetalhesPedidos Dim oDetalhesPedidos As DetalhesPedidos 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 DetalhesPedidos) Private _codProduto As String Private _nomeProduto As String Private _quantidade As Integer Private _preco As Double Private _subtotal As Double Private _estoqueProduto As Double Private Sub btnProcuraCliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcuraCliente.Click 'Instanciamos un Objeto Formulario frmClientes Dim dialogo As New frmClientes 'Mostramos o Formulario dialogo.ShowDialog() 'Se o resultado do Formulario e diferente de OK 'mostra uma mensagem que indica que não 'há nenhum cliente selecionado If dialogo.DialogResult = Windows.Forms.DialogResult.OK Then 'Usamos uma consulta LINQ para selecionar um cliente 'do qual recuperamos a variável codigoCliente declarada no Formulario frmClientes Commando.CommandText = "Select * From clientes Where clienteID = dialogo.codigo" rs = Commando.ExecuteReader() If rs.Read() Then Dim cliente = rs("clienteID") 'Carregamos os valores do resultado da consulta LINQ nos textbox do formulario Me.txtCodigoCliente.Text = cliente.ToList.Item(0).clienteID.ToString Me.txtNomeCliente.Text = cliente.ToList.Item(0).nome codigoCliente = cliente.ToList.Item(0).clienteID.ToString Else 'exibe mensagem ao usuário e limpa os campos do formulário MsgBox("Não foi selecionado nenhum cliente.") Me.txtCodigoCliente.Text = "" Me.txtNomeCliente.Text = "" codigoCliente = "" End If Else 'exibe mensagem ao usuário e limpa os campos do formulário MsgBox("Não foi selecionado nenhum cliente.") Me.txtCodigoCliente.Text = "" Me.txtNomeCliente.Text = "" codigoCliente = "" End If End Sub Private Sub btnProcuraProduto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcuraProduto.Click 'Instancia um formulario frmProdutos Dim dialogo As New frmProdutos 'exibe o formulario dialogo.ShowDialog() 'se o resultado do formulario é Ok If dialogo.DialogResult = Windows.Forms.DialogResult.OK Then 'cria uma consulta LINQ para exibir os produtos cadastrados Commando.CommandText = "Select * From produtos Where prod.ProdutoID = dialogo.codigo" rs = Commando.ExecuteReader() If rs.Read() Then Dim produto = rs("produtoID") 'obtem os valores e exibe nos controles TextBox do formulario Me.txtNomeProduto.Text = produto.ToList.Item(0).Nome.ToString Me.txtPrecoProduto.Text = produto.ToList.Item(0).preço.ToString 'atribui os valores as variáveis definidas no formulario nomeProduto = produto.ToList.Item(0).Nome.ToString codProduto = produto.ToList.Item(0).ProdutoID.ToString precoProduto = Convert.ToDouble(produto.ToList.Item(0).preço.ToString) estoqueProduto = Convert.ToInt32(produto.ToList.Item(0).estoque.ToString) 'poe o foco no textbox quantidade txtQuantidade.Focus() Else 'exibe mensagem ao usuário e limpa os campos do formulário MsgBox("Nenhum Produto foi selecionado.") Me.txtNomeProduto.Text = "" Me.txtPrecoProduto.Text = "" nomeProduto = "" codProduto = "" precoProduto = 0.0 End If Else 'exibe mensagem ao usuário e limpa os campos do formulário MsgBox("Nenhum Produto foi selecionado.") Me.txtNomeProduto.Text = "" Me.txtPrecoProduto.Text = "" nomeProduto = "" codProduto = "" precoProduto = 0.0 End If End Sub Private Sub BtnIncluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIncluir.Click 'Verificamos a quantidade foi informada If txtQuantidade.Text = String.Empty Then MsgBox("Informe a quantidade requerida...") txtQuantidade.Focus() Exit Sub End If 'Verificamos se o nome do produto , preço e quantidade não estão vazios If txtNomeProduto.Text <> "" And txtPrecoProduto.Text <> "" And txtQuantidade.Text <> "" Then 'Verificamos se o estoque do produto não é menor do que o solicitado If Convert.ToInt32(estoqueProduto) < Convert.ToInt32(txtQuantidade.Text) Then 'Mostramos uma aviso ao usuário MsgBox("A quantidade requerida é Superior a do estoque") 'Como a quantidade solicitada é mario que o estoque 'perguntamos se o usuário deseja estabelecer o estoque atual 'com a nova quantidade informada If MessageBox.Show("Deseja estabelecer o estoque atual como a nova quantidade requerida", _ "Vendas", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then 'Establecemos a nova quantidade em estoque txtQuantidade.Text = estoqueProduto 'Inicializamos o objeto da classe DetalhesPedidos oDetalhesPedidos = New DetalhesPedidos 'Preenchemos os valores '----------------------------------------------------------------- oDetalhesPedidos.Quantidade = Convert.ToInt32(txtQuantidade.Text) oDetalhesPedidos.CodProduto = codProduto oDetalhesPedidos.NomeProduto = nomeProduto oDetalhesPedidos.preço = precoProduto oDetalhesPedidos.EstoqueProduto = estoqueProduto oDetalhesPedidos.Subtotal = precoProduto * Convert.ToInt32(txtQuantidade.Text) '------------------------------------------------------------------------ 'Verificamos se o produto esta na lista de pedidos 'e incluimos a lista de DetalhesPedidos If buscarDetalhesVendas(ArrDetalhesPedidos, oDetalhesPedidos) = False Then 'Agregamos o pedido a lista de DetalhesPedidos ArrDetalhesPedidos.Add(oDetalhesPedidos) End If 'Assciamos a lista de DetalhesPedidos como fonte de dados ao datagridview Me.dgvVendas.DataSource = ArrDetalhesPedidos Else 'Se não deseja estabelecer o estoque atual com a quantidade solicitada 'voltamos ao formulario para escolher outro produto btnProcuraProduto_Click(Nothing, Nothing) End If Else 'Como a quantidade requerida e menor que o estoque 'iniciamos o objeto da classe DetalhesPedidos oDetalhesPedidos = New DetalhesPedidos 'Preenchemos os valores no objeto oDetalhesPedidos.Quantidade = Convert.ToInt32(txtQuantidade.Text) oDetalhesPedidos.CodProduto = codProduto oDetalhesPedidos.NomeProduto = nomeProduto oDetalhesPedidos.preço = precoProduto oDetalhesPedidos.EstoqueProduto = estoqueProduto oDetalhesPedidos.Subtotal = precoProduto * Convert.ToInt32(txtQuantidade.Text) 'Verificamos se o produto solicitado esta na lista de pedidos 'Se não estiver incluimos na lista de DetalhesPedidos If buscarDetalhesVendas(ArrDetalhesPedidos, oDetalhesPedidos) = False Then 'Incluimos o pedido a lista de DetalhesPedidos ArrDetalhesPedidos.Add(oDetalhesPedidos) End If 'Associamos a lista como origem da fonte de dados Me.dgvVendas.DataSource = ArrDetalhesPedidos.ToList End If End If 'Limpamos os textBox Me.limpar_produto() 'Calculamos o Total do Pedido Me.calcular_total() End Sub Private Sub BtnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSalvar.Click 'Vamos usar o mapeamento feito pelo LINQ 'para efetivar as atualizações nas bases de dados Try 'A expressão lambda a seguir devolve um objeto Cliente 'Estamos usando o codigo do cliente para identificar unicamento o cliente Dim Cli As Cliente = bd.Clientes.Single(Function(p) p.clienteID = Me.txtCodigoCliente.Text) '------------------------------------------------- 'Cria um novo objeto Pedido '------------------------------------------------- Dim oPedido As New Pedido oPedido.data = Date.Now oPedido.clienteID = Cli.clienteID oPedido.Cliente = Cli '-------------------------------------------------- 'Obtendo os detalhes do pedido 'realizo a geração dos objetos Pedido 'vou percorrer o array dos detalhes do pedido '---------------------------------------------------- For Each o As DetalhesPedidos In ArrDetalhesPedidos 'Instancio um objeto Produto selecionando pelo codigo do produto Dim produto As Produto = bd.Produtos.Single(Function(a) a.ProdutoID = o.CodProduto.ToString()) 'Cria um novo detalhe do pedido Dim detPedido As New DetalhesPedido detPedido.Produto = produto detPedido.ProdutoID = produto.ProdutoID detPedido.Quantidade = o.Quantidade detPedido.preço = o.preço 'inclui os detalhes do pedido no pedido oPedido.DetalhesPedidos.Add(detPedido) '-altera a quantidade de estoque do produto produto.estoque = produto.estoque - o.Quantidade Next '------------------------------------------------------ 'Aqui atualizo a base de dados bd.SubmitChanges() MsgBox("Dados de Pedidos , Detalhes de Pedidos e Estoque atualizados com sucesso...") Catch ex As Exception MsgBox(ex.Message) Finally 'chama as rotinas para limpar clientes e produtos e vendas limpar_cliente() limpar_produto() limpar_venda() Me.calcular_total() End Try End Sub Public Function buscarDetalhesVendas(ByVal array As List(Of DetalhesPedidos), ByVal objDV As DetalhesPedidos) As Boolean 'Vreificamos se um produto já foi solicitado For Each oDetPed As DetalhesPedidos In array If oDetPed.CodProduto = objDV.CodProduto Then Dim nQuantidade As Integer 'Se encontramos o produto na lista de pedidos 'incrementamos a quantidade solicitada 'com a quantidade solicitada anteriomente nQuantidade = oDetPed.Quantidade + objDV.Quantidade If nQuantidade <= oDetPed.EstoqueProduto Then oDetPed.Quantidade = nQuantidade oDetPed.Subtotal = oDetPed.preço * oDetPed.Quantidade Else MsgBox("O estoque atual é insuficiente para a quantidade solicitada.") End If Return True End If Next Return False End Function Sub calcular_total() Dim soma As Double 'calcula o valor total dos pedidos 'percorre o arrayList e soma o valor Subtotal For Each i As DetalhesPedidos In ArrDetalhesPedidos soma += i.Subtotal Next Me.txtTotal.Text = soma.ToString("C") End Sub Sub limpar_produto() 'limpa os controles TextBox Me.txtQuantidade.Clear() Me.txtNomeProduto.Clear() Me.txtPrecoProduto.Clear() End Sub Sub limpar_venda() 'Limpa a lista usando o metodo Clear ArrDetalhesPedidos.Clear() 'Atribuir a lista como origem de dados ao datagridview Me.dgvVendas.DataSource = ArrDetalhesPedidos.ToList End Sub Sub limpar_cliente() 'Metodo para limpar os textBox Associados ao Cliente Me.txtCodigoCliente.Clear() Me.txtNomeCliente.Clear() End Sub End Class Erros: Error 1 Type 'Cliente' is not defined. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 196 24 Vendas Error 2 Type 'Pedido' is not defined. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 200 32 Vendas Error 3 Type 'Produto' is not defined. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 211 32 Vendas Error 4 Type 'DetalhesPedido' is not defined. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 213 38 Vendas Error 5 Name 'bd' is not declared. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 225 13 Vendas

Opa. Feitas as correções ficarm apenas os erros abaixo: Error 1 'EstoqueProduto' is already declared as 'Private estoqueProduto As Integer' in this class. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 33 21 Vendas Error 2 'CodProduto' is already declared as 'Private codProduto As String' in this class. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 42 21 Vendas Error 3 'NomeProduto' is already declared as 'Private nomeProduto As String' in this class. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 51 21 Vendas Eis o código: Imports MySql.Data.MySqlClient Public Class frmVendas Dim conexao As New MySqlConnection Dim Commando As New MySqlCommand Dim Adaptador As New MySqlDataAdapter Dim rs As MySqlDataReader Dim consulta As New DataTable Dim SQL As String Private Sub frmVendas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) conexao.ConnectionString = "server=localhost;user id=root;password=;database=vendas" Commando.Connection = conexao End Sub 'Definir objeto da clase DetalhesPedidos Dim oDetalhesPedidos As DetalhesPedidos 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 DetalhesPedidos) Private _codProduto As String Private _nomeProduto As String Private _quantidade As Integer Private _preco As Double Private _subtotal As Double Private _estoqueProduto As Double Public Property EstoqueProduto() As Integer Get Return _estoqueProduto End Get Set(ByVal value As Integer) _estoqueProduto = value End Set End Property Public Property CodProduto() As String Get Return _codProduto End Get Set(ByVal value As String) _codProduto = value End Set End Property Public Property NomeProduto() As String Get Return _nomeProduto End Get Set(ByVal value As String) _nomeProduto = value End Set End Property Public Property Quantidade() As Integer Get Return _quantidade End Get Set(ByVal value As Integer) _quantidade = value End Set End Property Public Property preço() As Double Get Return _preco End Get Set(ByVal value As Double) _preco = value End Set End Property Public Property Subtotal() As Double Get Return _subtotal End Get Set(ByVal value As Double) _subtotal = value End Set End Property Private Sub btnProcuraCliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcuraCliente.Click 'Instanciamos un Objeto Formulario frmClientes Dim dialogo As New frmClientes 'Mostramos o Formulario dialogo.ShowDialog() 'Se o resultado do Formulario e diferente de OK 'mostra uma mensagem que indica que não 'há nenhum cliente selecionado If dialogo.DialogResult = Windows.Forms.DialogResult.OK Then 'Usamos uma consulta LINQ para selecionar um cliente 'do qual recuperamos a variável codigoCliente declarada no Formulario frmClientes conexao.Open() Commando.Connection = conexao Commando.CommandText = "Select * From clientes Where clienteID = dialogo.codigo" rs = Commando.ExecuteReader() If rs.Read() Then Dim cliente = rs("clienteID") 'Carregamos os valores do resultado da consulta LINQ nos textbox do formulario Me.txtCodigoCliente.Text = cliente.ToList.Item(0).clienteID.ToString Me.txtNomeCliente.Text = cliente.ToList.Item(0).nome codigoCliente = cliente.ToList.Item(0).clienteID.ToString Else 'exibe mensagem ao usuário e limpa os campos do formulário MsgBox("Não foi selecionado nenhum cliente.") Me.txtCodigoCliente.Text = "" Me.txtNomeCliente.Text = "" codigoCliente = "" End If End If End Sub End Class

Veja como ficou o meu código: Imports MySql.Data.MySqlClient Public Class frmVendas Dim conexao As New MySqlConnection Dim Commando As New MySqlCommand Dim Adaptador As New MySqlDataAdapter Dim rs As New MySqlDataReader Dim consulta As New DataTable Dim SQL As String Private Sub frmVendas_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) conexao.ConnectionString = "server=localhost;user id=root;password=;database=vendas" Commando.Connection = conexao End Sub 'Definir objeto da clase DetalhesPedidos Dim oDetalhesPedidos As DetalhesPedidos 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 DetalhesPedidos) Private _codProduto As String Private _nomeProduto As String Private _quantidade As Integer Private _preco As Double Private _subtotal As Double Private _estoqueProduto As Double Public Property EstoqueProduto() As Integer Get Return _estoqueProduto End Get Set(ByVal value As Integer) _estoqueProduto = value End Set End Property Public Property CodProduto() As String Get Return _codProduto End Get Set(ByVal value As String) _codProduto = value End Set End Property Public Property NomeProduto() As String Get Return _nomeProduto End Get Set(ByVal value As String) _nomeProduto = value End Set End Property Public Property Quantidade() As Integer Get Return _quantidade End Get Set(ByVal value As Integer) _quantidade = value End Set End Property Public Property preço() As Double Get Return _preco End Get Set(ByVal value As Double) _preco = value End Set End Property Public Property Subtotal() As Double Get Return _subtotal End Get Set(ByVal value As Double) _subtotal = value End Set End Property Private Sub btnProcuraCliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcuraCliente.Click 'Instanciamos un Objeto Formulario frmClientes Dim dialogo As New frmClientes 'Mostramos o Formulario dialogo.ShowDialog() 'Se o resultado do Formulario e diferente de OK 'mostra uma mensagem que indica que não 'há nenhum cliente selecionado If dialogo.DialogResult = Windows.Forms.DialogResult.OK Then 'Usamos uma consulta LINQ para selecionar um cliente 'do qual recuperamos a variável codigoCliente declarada no Formulario frmClientes conexao.Open() Commando.Connection = conexao Commando.CommandText = "Select * From clientes Where clienteID = dialogo.codigo" rs = Commando.ExecuteReader() If rs.Read() Then Dim cliente = rs("campo") 'Carregamos os valores do resultado da consulta LINQ nos textbox do formulario Me.txtCodigoCliente.Text = cliente.ToList.Item(0).clienteID.ToString Me.txtNomeCliente.Text = cliente.ToList.Item(0).nome codigoCliente = cliente.ToList.Item(0).clienteID.ToString Else 'exibe mensagem ao usuário e limpa os campos do formulário MsgBox("Não foi selecionado nenhum cliente.") Me.txtCodigoCliente.Text = "" Me.txtNomeCliente.Text = "" codigoCliente = "" End If End Sub End Class E abaixo os erros: Error 1 'MySql.Data.MySqlClient.MySqlDataReader.Friend Sub New(cmd As MySql.Data.MySqlClient.MySqlCommand, statement As MySql.Data.MySqlClient.PreparableStatement, behavior As System.Data.CommandBehavior)' is not accessible in this context because it is 'Friend'. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 7 9 Vendas Error 2 'EstoqueProduto' is already declared as 'Private estoqueProduto As Integer' in this class. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 33 21 Vendas Error 3 'CodProduto' is already declared as 'Private codProduto As String' in this class. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 42 21 Vendas Error 4 'NomeProduto' is already declared as 'Private nomeProduto As String' in this class. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 51 21 Vendas Error 5 'If' must end with a matching 'End If'. C:\Nova pasta\Visual Studio 2008\Projects\Vendas\Vendas\frmVendas.vb 100 9 Vendas E agora

Ola pessoal. To numa sinuca aqui: Como eu faço para recuperar os resultados dessa consulta? conexao.Open() Commando.Connection = conexao Commando.CommandText = "Select * From clientes Where clienteID = dialogo.codigo" Commando.ExecuteNonQuery() Dim cliente = 'Resultado dessa query Tipo como se faz o MySql_Fetich_Array? Preciso entregar o reultado dessa consulta para a variavel Dim cliente. Como fazer isso em VB? e.. Como faço um recordset desse jeito que estou fazendo, sem componente. Tudo no código? Segue todo o código do form. (Obs.: sou iniciante em VB) Imports MySql.Data.MySqlClient Public Class frmVendas 'Definir o objeto bd da classe MySqlConnection Dim conexao As New MySqlConnection Dim Commando As New MySqlCommand Dim Adaptador As New MySqlDataAdapter Dim consulta As New DataTable Dim SQL As String 'Definir objeto da clase DetalhesPedidos ' Dim bd As New JcmSoftDataContext ' Dim bd As New MySqlConnection Dim oDetalhesPedidos As DetalhesPedidos 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 DetalhesPedidos) Private Sub btnProcuraCliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcuraCliente.Click 'Instanciamos un Objeto Formulario frmClientes Dim dialogo As New frmClientes 'Mostramos o Formulario dialogo.ShowDialog() 'Se o resultado do Formulario e diferente de OK 'mostra uma mensagem que indica que não 'há nenhum cliente selecionado If dialogo.DialogResult = Windows.Forms.DialogResult.OK Then 'Usamos uma consulta LINQ para selecionar um cliente 'do qual recuperamos a variável codigoCliente declarada no 'Formulario frmClientes ' Dim cliente = From cli In bd.clientes _ ' Where cli.clienteID = dialogo.codigo _ ' Select cli.clienteID, cli.nome, cli.email conexao.Open() Commando.Connection = conexao Commando.CommandText = "Select * From clientes Where clienteID = dialogo.codigo" Commando.ExecuteNonQuery() Commando. Dim cliente = 'Carregamos os valores do resultado da consulta LINQ nos textbox do formulario Me.txtCodigoCliente.Text = cliente.ToList.Item(0).clienteID.ToString Me.txtNomeCliente.Text = cliente.ToList.Item(0).nome codigoCliente = cliente.ToList.Item(0).clienteID.ToString Else 'exibe mensagem ao usuário e limpa os campos do formulário MsgBox("Não foi selecionado nenhum cliente.") Me.txtCodigoCliente.Text = "" Me.txtNomeCliente.Text = "" codigoCliente = "" End If End Sub End Class

Então, Maquina Local mesmo e minha aplicação não é site em asp e sim uma aplicação(programinha) Desktop em VB tipo Delphi entende?

Mas será que existe Zeus para VB como tem para Delphi? veja o eeeo que ta dando: http://carcleo.com/erro.jpg

Ola. Estou aprendendo a programar em VB e instalei o VB 2008 Express. Gostaria de saber se existe alguma ferramenta de conexão com bancoi de dados que não use ODBC. Por exemplo: La no Delphi, existe o Zeus que conecta ao mysSql sem ODBC. Existe Zeus Lib para VB 2008? se sim, onde encontro para baixar? Conexão ao BD

Ola pessoal do forum: Meu problema é o seguinte: Instalei o Visual Basic 2008 Express para criar programas desktop. Na hora de criar as bases de dados, ele diz que não instalou o sql server 2005. Dai, recorro ao instalador do VB ele diz que falta o Sql Server e se eu quero instala-lo por um instalador na maquina local ou se desejo fazer o download. Dai, opto pelo download e ele começa a fazer o download de 36mb mas não passa de 0 bites e depois de +ou- 2 minutos diz que a instalação do Sql Server deu erro. Bom, então tentei o bom e velho mysql. instalei o Cliente ODBC dele depois o pluguim para o VB. Da erro. Sera que eu não vou conseguir conectar à uma base de dados com o VB?

Ola. Estou iniciando hoje em VB e instalei a versão 2008 do VB Express Edition para aprender VB. Comecei a criar um pequeno projeto baseado em um tutorial que peguei e criei 4 formularios: 1 principal (Pai) e 3 filhos No principal puz um menu. Acontece que quando os formulários, um deles (as vezes muda) inicia rrestaurado (janelinha) e os outros maximizado mas todos os forms estão setados como maximizados na proptiedade. Eis os código: Public Class Principal Private Sub ClientesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesToolStripMenuItem.Click My.Forms.Clientes.MdiParent = Me My.Forms.Clientes.Show() End Sub Private Sub CotacoesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CotacoesToolStripMenuItem.Click My.Forms.Cotacoes.MdiParent = Me My.Forms.Cotacoes.Show() End Sub Private Sub FornecedoresToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FornecedoresToolStripMenuItem.Click My.Forms.Fornecedores.MdiParent = Me My.Forms.Fornecedores.Show() End Sub Private Sub ProdutosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProdutosToolStripMenuItem.Click My.Forms.Produtos.MdiParent = Me My.Forms.Produtos.Show() End Sub End Class Como resolve isso? Outra questão: O VB depois que compils, não gera executavel não? Tipo projeto.exe como no Delphi? Se sim, como fazer? Grato. Carlos Rocha

Pessoal. me da essa força ae. Obrigado.

tenho 2 tabelas. Devedores Clientes cada cliente tem seus devedores Agora eu quero fazer um consulta dizendo para seleionar tudo da tabela devedores onde o cliente=1 porem só selecione se o cliente não tiver o filel(campo) bloqueio='N' O problema é que nehum campo da teabela devedores faz referencia a condição de bloqueio da tabala de cliente tentei assim mas num deu: $Resultado = mysql_query("SELECT * FROM devedores left JOIN clientes on clientes.bloqueio='N' WHERE devedores.cliente='$id_cliente' and devedores.filial = '1' and devedores.baixa= 'N' order by d.cod"); como faço essa consulta?

vejam: esse problema do 5 records 4 retrieved é pau do banco? Se for, como corrigir? Pergunto por causa da dúvida que tive no tópico http://scriptbrasil.com.br/forum/index.php?showtopic=124036, e mandaram consultar o pessoal daqui

veja:

Bom, deu certo la no banco mas na hora de exibir na web mostrou assim: 1 - --0000-00-00 - 333 - 1970-12-20 - 334 - 1974-12-03 - 335 - 1973-05-20 - 336 - 1999-12-04 - 5 registros mas no banco são 4 Isso não é erro não? Estou perguntando pois la no servidor, são mais de 300 registros. Já pensou alterar um a um depois??

Conversão de valores para convesão de campo Preciso criar uma função que pegue pesquize um campo(datadoc) varchar na tabela debitos que pegue o texto que la esta por registro e transforme todos de uma saó vez. Tipo a tabela é debitos os fields são(todos varchar menos o id): id nome data datadoc tipo valor A função tera que ler todos os id's, lewr os datadoc's que3 esta registrado um a um e transformar tipo 20/12/1970 para 1970-12-20 A ideia é transformar todos do pardrão de data brasileiro para o padrão americano para depois alterar o tipo do campo de varchar para date. Se não fizer isso antes, na hora que eu virar o campo datadoc para date, ai ele zera tudso e grava no banco em todos os registroa 0000-00-00 ai eu perco todos os registros né? Bom tentei com o código abaixo mas ele só altera todos com a alteração do primeiro. Outro problema desse código é que eu fiz um exemplo com 04 registros para testar e ele retornou 5 registros <? include("global/conexao.php"); $tab_debitos = mysql_query("select datadoc from debitos"); while(list($datadoc) = mysql_fetch_row($tab_debitos)) { $datadoc2= explode("/",$datadoc); $datadoconv = $datadoc2[2].'-'. $datadoc2[1].'-'. $datadoc2[0]; $sql = mysql_query("update debitos set datadoc='$datadoconv'"); //$sql = mysql_query("update debitos set datadoc='$datadoconv' where datadoc = $datadoc"); echo $datadoconv; echo "<br>"; echo $datadoc; echo "<br>"; } ?>

Outras coisa é o seguinte: puz o código abixo $tab_debitos = mysql_query("select * from debitos where devedor = '$id_devedor' order by cast(datadoc as date)"); E olha o que retornou: 48921 A 547,02 Boleta 11/08/2008 31/08/2004 Aberto 51494 A 401,33 Boleta 11/08/2008 25/11/2004 Aberto 53578 A 399,72 Boleta 11/08/2008 07/12/2004 Aberto 53579 A 399,72 Boleta 11/08/2008 17/12/2004 Aberto 54071 A 352,39 Boleta 11/08/2008 17/12/2004 Aberto 53588 A 399,73 Boleta 11/08/2008 27/12/2004 Aberto 53582 A 329,34 Boleta 11/08/2008 01/01/2005 Aberto 54072 A 352,38 Boleta 11/08/2008 06/01/2005 Aberto 55230 A 321,30 Boleta 11/08/2008 24/02/2005 Aberto 52362 A 821,62 Boleta 11/08/2008 16/11/2004 Aberto 52361 A 426,67 Boleta 11/08/2008 14/11/2004 Aberto 52142 A 518,54 Boleta 11/08/2008 13/11/2004 Aberto 49305 A 469,11 Boleta 11/08/2008 07/09/2004 Aberto 49893 A 304,06 Boleta 11/08/2008 11/09/2004 Aberto 48704 A 326,57 Boleta 11/08/2008 13/09/2004 Aberto 50848 A 438,10 Boleta 11/08/2008 13/08/2004 Aberto 50853 A 401,26 Boleta 11/08/2008 12/10/2004 Aberto 49578 A 244,34 Boleta 11/08/2008 14/10/2004 Aberto 51491 A 462,64 Boleta 11/08/2008 26/10/2004 Aberto 51493 A 401,34 Boleta 11/08/2008 26/10/2004 Aberto 401,26 Boleta 11/08/2008 02/10/2004 Aberto Não esta ordenando dierito por datadoc Obs.: o campo datadoc foi criado como varchar no MySql Como resolo isso? O código todo é: O problema é o seguinte: eis meu código: <?php if ($acao == "visualiza_acoes") { $tab_debitos = mysql_query("select * from debitos where devedor = '$id_devedor'" order by datadoc); $tab_debitos_count = mysql_num_rows($tab_debitos); ?> <h2>D&eacute;bitos</h2> <? if ($tab_debitos_count == 0 ) { ?> <table class="listaValores" width="580"> <tr><td>Ainda não há Débitos cadastrados para esse devedor</td></tr> </table> <? } else { ?> <table class="listaValores" width="580"> <tr> <td align="center">Documento</td> <td align="center" colspan="2">Valor(R$)</td> <td align="center">Tipo</td> <td align="center">Data de Cadastro</td> <td align="center">Vencimento</td> <td align="center">Status</td> <td align="center">Alterar</td> <td align="center">Excluir</td> </tr> <?php while(list($id, $documento, $valor, $tipo, $data, $datadoc, $status) = mysql_fetch_row($tab_debitos)) { $data=implode('/',array_reverse(explode('-',$data))); ?> <tr class="even"> <td align="center"><?=$documento;?></td> <td align="center"><?=$valor;?></td> <td align="center"><a href="java script: juros('juros.php?valor=200,00&dia1=01&mes1=04&ano1=2008&sys_juros=1');"><img src="../imagens/imagens_index/calculator.png" width="19" height="16" border="0"></a></td> <td align="center"><?=$tipo;?></td> <td align="center"><?=$data;?></td> <td align="center"><?=$datadoc;?></td> <td align="center"><?=$status;?></td> <td align="center"><a href="?acao=editar_debito&id=<?=$id; ?>&id_devedor=<?=$id_devedor; ?>&id_cliente=<?=$id_cliente; ?>&nome_cliente=<?=$nome_cliente;?><?=$rasao_cliente;?>&nome_devedor=<?=$nome_devedor?><?=$rasao_devedor?>"><img src="../imagens/site/edit.gif" alt="Modificar" border="0" hspace="5" /></a></td> <td align="center"><a href="?acao=excluir_debito&id=<?=$id; ?>&id_devedor=<?=$id_devedor; ?>&id_cliente=<?=$id_cliente; ?>&nome_cliente=<?=$nome_cliente;?><?=$rasao_cliente;?>&nome_devedor=<?=$nome_devedor?><?=$rasao_devedor?>" onclick='return verifica()'><img src="../imagens/site/edit.gif" alt="Modificar" border="0" hspace="5" /></a></td> </tr> <? }} ?> </table><br />

Outras coisa é o seguinte: puz o código abixo $tab_debitos = mysql_query("select * from debitos where devedor = '$id_devedor' order by cast(datadoc as date)"); E olha o que retornou: 48921 A 547,02 Boleta 11/08/2008 31/08/2004 Aberto 51494 A 401,33 Boleta 11/08/2008 25/11/2004 Aberto 53578 A 399,72 Boleta 11/08/2008 07/12/2004 Aberto 53579 A 399,72 Boleta 11/08/2008 17/12/2004 Aberto 54071 A 352,39 Boleta 11/08/2008 17/12/2004 Aberto 53588 A 399,73 Boleta 11/08/2008 27/12/2004 Aberto 53582 A 329,34 Boleta 11/08/2008 01/01/2005 Aberto 54072 A 352,38 Boleta 11/08/2008 06/01/2005 Aberto 55230 A 321,30 Boleta 11/08/2008 24/02/2005 Aberto 52362 A 821,62 Boleta 11/08/2008 16/11/2004 Aberto 52361 A 426,67 Boleta 11/08/2008 14/11/2004 Aberto 52142 A 518,54 Boleta 11/08/2008 13/11/2004 Aberto 49305 A 469,11 Boleta 11/08/2008 07/09/2004 Aberto 49893 A 304,06 Boleta 11/08/2008 11/09/2004 Aberto 48704 A 326,57 Boleta 11/08/2008 13/09/2004 Aberto 50848 A 438,10 Boleta 11/08/2008 13/08/2004 Aberto 50853 A 401,26 Boleta 11/08/2008 12/10/2004 Aberto 49578 A 244,34 Boleta 11/08/2008 14/10/2004 Aberto 51491 A 462,64 Boleta 11/08/2008 26/10/2004 Aberto 51493 A 401,34 Boleta 11/08/2008 26/10/2004 Aberto 401,26 Boleta 11/08/2008 02/10/2004 Aberto Não esta ordenando dierito por datadoc Obs.: o campo datadoc foi criado como varchar no MySql Como resolo isso?

O problema é o seguinte: eis meu código: <?php if ($acao == "visualiza_acoes") { $tab_debitos = mysql_query("select * from debitos where devedor = '$id_devedor'" order by datadoc); $tab_debitos_count = mysql_num_rows($tab_debitos); ?> <h2>D&eacute;bitos</h2> <? if ($tab_debitos_count == 0 ) { ?> <table class="listaValores" width="580"> <tr><td>Ainda não há Débitos cadastrados para esse devedor</td></tr> </table> <? } else { ?> <table class="listaValores" width="580"> <tr> <td align="center">Documento</td> <td align="center" colspan="2">Valor(R$)</td> <td align="center">Tipo</td> <td align="center">Data de Cadastro</td> <td align="center">Vencimento</td> <td align="center">Status</td> <td align="center">Alterar</td> <td align="center">Excluir</td> </tr> <?php while(list($id, $documento, $valor, $tipo, $data, $datadoc, $status) = mysql_fetch_row($tab_debitos)) { $data=implode('/',array_reverse(explode('-',$data))); ?> <tr class="even"> <td align="center"><?=$documento;?></td> <td align="center"><?=$valor;?></td> <td align="center"><a href="java script: juros('juros.php?valor=200,00&dia1=01&mes1=04&ano1=2008&sys_juros=1');"><img src="../imagens/imagens_index/calculator.png" width="19" height="16" border="0"></a></td> <td align="center"><?=$tipo;?></td> <td align="center"><?=$data;?></td> <td align="center"><?=$datadoc;?></td> <td align="center"><?=$status;?></td> <td align="center"><a href="?acao=editar_debito&id=<?=$id; ?>&id_devedor=<?=$id_devedor; ?>&id_cliente=<?=$id_cliente; ?>&nome_cliente=<?=$nome_cliente;?><?=$rasao_cliente;?>&nome_devedor=<?=$nome_devedor?><?=$rasao_devedor?>"><img src="../imagens/site/edit.gif" alt="Modificar" border="0" hspace="5" /></a></td> <td align="center"><a href="?acao=excluir_debito&id=<?=$id; ?>&id_devedor=<?=$id_devedor; ?>&id_cliente=<?=$id_cliente; ?>&nome_cliente=<?=$nome_cliente;?><?=$rasao_cliente;?>&nome_devedor=<?=$nome_devedor?><?=$rasao_devedor?>" onclick='return verifica()'><img src="../imagens/site/edit.gif" alt="Modificar" border="0" hspace="5" /></a></td> </tr> <? }} ?> </table><br /> Mais ´precisamente o iniio do código. Eu quero ordenar assim: ... 01/02/2007 05/10/2007 09/02/2008 .. Mas esta ordenando assim: ... 09/02/2008 01/02/2007 05/10/2007 .. Como saio dessa?

Tentei tb algo do tipo: $tab_debitos = mysql_query("select * from debitos where devedor = '$id_devedor' order by strrev(datadoc)"); mas deu erro no código

Ola pessoal. Tenhoi uma tabela mysql onde 1 dos campos é "data", porem, ele foi criado como varchar e não como date. acontece que agora preciso ordenar (order by) os registros da tabela debitos por ordem de data e não estou conseguindo fazer. Pelo que sei, antes de fazer a consulta, tenho que partir o registro em : 03/10/2008 para 03 10 2008 e ordenar de traz pra frente 2008/10/03 mas não tendo ideia. alguém tem alguma forma melhor de fazer isso?

Acho que descobri É o seguinte. Eius meu form <form id="fil_par_mod" name="formcad" method="post" action="cad_filiais.php?acao=cad_filiais" onsubmit="return CriticaFormulario()" onsubmit='getElementById("espera").value="Aguarde, enviando dados..."; getElementById("espera").disabled=true'> Obsertvem que há 2 eventois onsubmit. Porem, eu poreciso dos 2. Se eu tirar o 1º onsubmit="return CriticaFormulario()", ai o erro some. Existre um,a forma de manter os 2 onsubmit's??

Fazendo tetes, eu percebi o seguinte: <?php if ($acao=="cad_filiais") { $login = $_POST['login']; $senha = $_POST['senha']; $opera_superuser = mysql_query("select * from filiais where login = '$login'"); $opera_user = mysql_query("select * from login_filiais where login = '$login'"); $opera_superuser_cont = mysql_num_rows($opera_superuser); $opera_user_cont = mysql_num_rows($opera_user); if ($opera_superuser_cont != 0 || $opera_user_cont != 0) { echo "<script>alert('$opera_superuser_cont/$opera_user_cont-O login que você escolheu já foi escolhido para outro cliente!'); document.location='cad_filiais.php'</script>"; } else { if ($cpf == "") { $dcto = "cnpj"; } if ($cnpj == "") { $dcto = "cpf"; } if ($dcto == "cpf") { $valor = $cpf; } if ($dcto == "cnpj") { $valor = $cnpj; } $pesq = mysql_query("select * from filiais where $dcto = '$valor' and filial = '$SESSAOfilial'"); $conta = mysql_num_rows($pesq); if ($conta <> 0) { echo "<script>alert('Filial já cadastrada. Consulte!'); document.location='cad_filiais.php'</script>";} ELSE { $login = $_POST['login']; $senha = $_POST['senha']; $consulta = mysql_query("INSERT INTO filiais(cod, pessoa, fantasia, nome, rasao, cnpj, ie, cpf, rg, endereco, numero, complemento, bairro, cidade, uf, cep, email, tel1, tel2, tel3, atividade, comissao, comissao2, comissao3, login, senha, bloqueio) VALUES('$cod', '$pessoa', '$fantasia', '$nome', '$rasao', '$cnpj', '$ie', '$cpf', '$rg', '$endereco', '$numero', '$complemento', '$bairro', '$cidade', '$uf', '$cep', '$email', '$tel1', '$tel2', '$tel3', '$atividade', '$comissao', '$comissao2', '$comissao3', '$login', '$senha', 'N')"); if ($consulta) { echo "<script>alert('Cadastro OK!'); document.location='cad_filiais.php'</script>";} ELSE { echo "<script>alert('Ouve um erro no cadastro. Tente novamente!'); document.location='cad_filiais.php'</script>";} } } } ?> No código acima, se eu sustituir a título de teste, a linha $consulta = mysql_query("INSERT INTO filiais(cod, pessoa, fantasia, nome, rasao, cnpj, ie, cpf, rg, endereco, numero, complemento, bairro, cidade, uf, cep, email, tel1, tel2, tel3, atividade, comissao, comissao2, comissao3, login, senha, bloqueio) VALUES('$cod', '$pessoa', '$fantasia', '$nome', '$rasao', '$cnpj', '$ie', '$cpf', '$rg', '$endereco', '$numero', '$complemento', '$bairro', '$cidade', '$uf', '$cep', '$email', '$tel1', '$tel2', '$tel3', '$atividade', '$comissao', '$comissao2', '$comissao3', '$login', '$senha', 'N')"); Por exemplo por $consulta = mysql_query("Select * from filiais"); A linha de baixo é executada e a resposta de cadastro ok é exibida if ($consulta) { echo "<script>alert('Cadastro OK!'); document.location='cad_filiais.php'</script>";} ELSE { echo "<script>alert('Ouve um erro no cadastro. Tente novamente!'); document.location='cad_filiais.php'</script>";} Porem, ao manter a claudula INSERT, a inserção é feita normalmente porem não sei como cargas d´agua depois da execução com suscesso em vez de dar a mensagem de ok ele volta la na linha if ($opera_superuser_cont != 0 || $opera_user_cont != 0) { echo "<script>alert('$opera_superuser_cont/$opera_user_cont-O login que você escolheu já De verificação de usuario que nem nesse bloco esta. Outra coisa que esta me intrigando e que no form de aklteração tudo é igual menbos a clusula sql que muda para update e la funciona normal porque será?

ola pessoal do fórum. To com o códio abaixo com o seguinte problema: Caso o usuario já esteja cadastrado, ele barra o cadastro certinho exibindo a mensagem. Porem, se o usuario não estiver cadastrado, aí. ele faz o cadastro normalmente porem exibe a mensagem do Alert "'O login que você escolheu já foi escolhido para outro usuario", como se já houve-se o cadastro la e o que mais me intriga é o fato de o cadastro (INSERT), é feito normalmente. Olhei o código varias vezes e não achei o erro. <?php if ($acao=="cad_operadores") { $opera_superuser = mysql_query("select * from clientes where login = '$login'"); $opera_user = mysql_query("select * from login_filiais where login = '$login'"); $opera_superuser_cont = mysql_num_rows($opera_superuser); $opera_user_cont = mysql_num_rows($opera_user); if ($opera_superuser_cont != 0 || $opera_user_cont != 0) { echo "<script>alert('O login que você escolheu já foi escolhido para outro usuario!'); document.location='cad_operadores.php?acao=filial_operador'</script>"; } else { $senha = $_POST['senha']; if (strlen($login) < 6){ echo "<script>alert('Login tem que ter entre 06 e 08 digitos!'); document.location='cad_operadores.php?acao=filial_operador'</script>"; } if (strlen($login) > 8){ echo "<script>alert('Login tem que ter entre 06 e 08 digitos!'); document.location='cad_operadores.php?acao=filial_operador'</script>"; } if (strlen($senha) < 6){ echo "<script>alert('Senha tem que ter entre 06 e 08 digitos!'); document.location='cad_operadores.php?acao=filial_operador'</script>"; } if (strlen($senha) > 8){ echo "<script>alert('Senha tem que ter entre 06 e 08 digitos!'); document.location='cad_operadores.php?acao=filial_operador'</script>"; } $consulta = mysql_query("INSERT INTO login_filiais(filial, login, senha, bloqueio) VALUES('$SESSAOfilial', '$login', '$senha', 'N')"); if (consulta) { echo "<script>alert('Cadastro efetuado com sucesso!!'); document.location='cad_operadores.php?acao=filial_operador'</script>"; } else { echo "<script>alert('Erro. Cadastro não foi efetuado! Tente novamente!'); document.location='cad_operadores.phpacao=filial_operador'</script>"; } } } ?> Se alguém puder me ajudar!