USANDO O COMBOBOX
o certo nao eh HasRow e sim
HasRows
HasRows
PHOENIX209E,
Continua com o mesmo erro nesta linha: [ô]Loop[ô] must be preceded by a matching [ô]Do[ô]
Continua com o mesmo erro nesta linha: [ô]Loop[ô] must be preceded by a matching [ô]Do[ô]
Desculpe,substitue o
While oDR.Read()
COMBOBOX_FUNCIONARIO.Items.Add(oDR.GetString(0))
Loop
POR:
While oDR.Read
COMBOBOX_FUNCIONARIO.Items.Add(oDR.GetString(0))
End While
While oDR.Read()
COMBOBOX_FUNCIONARIO.Items.Add(oDR.GetString(0))
Loop
POR:
While oDR.Read
COMBOBOX_FUNCIONARIO.Items.Add(oDR.GetString(0))
End While
PHOENIX209E, me corrige se eu estiver errado.
o código eu coloquei no combobox vendedores, onde acima dele, existe uma outra combo com os números das lojas.Só que não apareceu nada.
Obrigado!
o código eu coloquei no combobox vendedores, onde acima dele, existe uma outra combo com os números das lojas.Só que não apareceu nada.
Obrigado!
voce implementou o select que eu passei pra voce?
ele serve pra fazer junção entre a tabela de vendas com vendedores e clientes ,
me passa como voce ta fazendo
ele serve pra fazer junção entre a tabela de vendas com vendedores e clientes ,
me passa como voce ta fazendo
PHOENIX209E, conforme solicitado, segue abaixo as linhas de programação.
Private Sub CboVend_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboVend.SelectedIndexChanged
Dim connStr As String = [Ô] Data Source=*.**.**.**;Initial Catalog=PRODUCAO;User Id=***;Password=***;[Ô]
Using comando As New SqlCommand([Ô]SELECT A1_COD FROM SA1010 INNER JOIN SL1010 ON A1_COD=SL1010.L1_CLIENTE[Ô] & [Ô]INNER JOIN SA3010 ON A3_COD=L1_VEND ORDER BY A1_COD[Ô], con)
Using oDR As SqlDataReader = comando.ExecuteReader()
If (oDR.HasRows) Then
While oDR.Read
CboVend.Items.Add(oDR.GetString(0))
End While
Else
MsgBox([Ô]Erro ao obter os dados[Ô])
End If
End Using
End Using
End Sub
Private Sub CboVend_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboVend.SelectedIndexChanged
Dim connStr As String = [Ô] Data Source=*.**.**.**;Initial Catalog=PRODUCAO;User Id=***;Password=***;[Ô]
Using comando As New SqlCommand([Ô]SELECT A1_COD FROM SA1010 INNER JOIN SL1010 ON A1_COD=SL1010.L1_CLIENTE[Ô] & [Ô]INNER JOIN SA3010 ON A3_COD=L1_VEND ORDER BY A1_COD[Ô], con)
Using oDR As SqlDataReader = comando.ExecuteReader()
If (oDR.HasRows) Then
While oDR.Read
CboVend.Items.Add(oDR.GetString(0))
End While
Else
MsgBox([Ô]Erro ao obter os dados[Ô])
End If
End Using
End Using
End Sub
voce mudou o select inteiro.
as letras A,B,C são alias das tabelas aonde é necessario para nomear os campos e lincar com as respectivas tabelas.
voce esta usando o select incorretamente.
analise a query:
SELECT [txt-color=#e80000]A[/txt-color].IDCLIENTE FROM TB_CLIENTES [txt-color=#e80000]A[/txt-color]
INNER JOIN TB_VENDAS [txt-color=#0000f0]B[/txt-color] ON
[txt-color=#e80000]A[/txt-color].IDCLI =[txt-color=#0000f0] B[/txt-color].IDCLI
INNER JOIN TB_VENDEDORES [txt-color=#007100] C[/txt-color] ON
[txt-color=#007100]C[/txt-color].IDVEN =[txt-color=#0000f0] B[/txt-color].IDVEN
ORDER BY [txt-color=#e80000]A[/txt-color].IDCLIENTE
as letras A,B,C são alias das tabelas aonde é necessario para nomear os campos e lincar com as respectivas tabelas.
voce esta usando o select incorretamente.
analise a query:
SELECT [txt-color=#e80000]A[/txt-color].IDCLIENTE FROM TB_CLIENTES [txt-color=#e80000]A[/txt-color]
INNER JOIN TB_VENDAS [txt-color=#0000f0]B[/txt-color] ON
[txt-color=#e80000]A[/txt-color].IDCLI =[txt-color=#0000f0] B[/txt-color].IDCLI
INNER JOIN TB_VENDEDORES [txt-color=#007100] C[/txt-color] ON
[txt-color=#007100]C[/txt-color].IDVEN =[txt-color=#0000f0] B[/txt-color].IDVEN
ORDER BY [txt-color=#e80000]A[/txt-color].IDCLIENTE
Cara, eu não consegui!
Ainda sou ignorante em programação.rrss
Ainda sou ignorante em programação.rrss
rs.
entao,
voce coloca o codigo,exatamente como este:
Private Sub CboVend_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboVend.SelectedIndexChanged
Dim connStr As String = [Ô] Data Source=*.**.**.**;Initial Catalog=PRODUCAO;User Id=***;Password=***;[Ô]
Using comando As New SqlCommand([Ô]SELECT A.IDCLIENTE FROM TB_CLIENTES A INNER JOIN TB_VENDAS B ON A.IDCLI = B.IDCLI INNER JOIN TB_VENDEDORES C ON C.IDVEN = B.IDVEN ORDER BY A.IDCLIENTE[Ô], con)
Using oDR As SqlDataReader = comando.ExecuteReader()
If (oDR.HasRows) Then
While oDR.Read
CboVend.Items.Add(oDR.GetString(0))
End While
Else
MsgBox([Ô]Erro ao obter os dados[Ô])
End If
End Using
End Using
End Sub
entao,
voce coloca o codigo,exatamente como este:
Private Sub CboVend_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CboVend.SelectedIndexChanged
Dim connStr As String = [Ô] Data Source=*.**.**.**;Initial Catalog=PRODUCAO;User Id=***;Password=***;[Ô]
Using comando As New SqlCommand([Ô]SELECT A.IDCLIENTE FROM TB_CLIENTES A INNER JOIN TB_VENDAS B ON A.IDCLI = B.IDCLI INNER JOIN TB_VENDEDORES C ON C.IDVEN = B.IDVEN ORDER BY A.IDCLIENTE[Ô], con)
Using oDR As SqlDataReader = comando.ExecuteReader()
If (oDR.HasRows) Then
While oDR.Read
CboVend.Items.Add(oDR.GetString(0))
End While
Else
MsgBox([Ô]Erro ao obter os dados[Ô])
End If
End Using
End Using
End Sub
PHOENIX209E
Com a linha de programação abaixo, funciona. Ele traz os nomes dos vendedores. Só que acima existe uma outra combo com os número das lojas: loja 02, loja 03, loja 04...
Quero que ao selecionar a loja, ele me traga os vendedores cadastrados nesta loja.
Imports System.ComponentModel
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Data
--------------------------
Public Class Form2
Dim sql As String
Dim con As New SqlConnection
Dim connStr As String = [Ô] Data Source=***;Initial Catalog=PRODUCAO;User Id=**;Password=***;[Ô]
Dim db As Boolean()
---------------------------
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connStr As String = [Ô] Data Source=*****;Initial Catalog=****;User Id=**;Password=****;[Ô]
Dim strSQL As String = [Ô]SELECT DISTINCT A3_NOME FROM SA3010[Ô]
Dim da As New System.Data.SqlClient.SqlDataAdapter(strSQL, connStr)
Dim ds As New DataSet
da.Fill(ds, [Ô]SA3010[Ô])
With Me.cbovend
.DataSource = ds.Tables([Ô]SA3010[Ô])
.DisplayMember = [Ô]A3_NOME[Ô]
.ValueMember = [Ô]A3_NOME[Ô]
.SelectedIndex = 0
End With
End Sub
Estou grato pela sua atenção em me ajudar.
Com a linha de programação abaixo, funciona. Ele traz os nomes dos vendedores. Só que acima existe uma outra combo com os número das lojas: loja 02, loja 03, loja 04...
Quero que ao selecionar a loja, ele me traga os vendedores cadastrados nesta loja.
Imports System.ComponentModel
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Data
--------------------------
Public Class Form2
Dim sql As String
Dim con As New SqlConnection
Dim connStr As String = [Ô] Data Source=***;Initial Catalog=PRODUCAO;User Id=**;Password=***;[Ô]
Dim db As Boolean()
---------------------------
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connStr As String = [Ô] Data Source=*****;Initial Catalog=****;User Id=**;Password=****;[Ô]
Dim strSQL As String = [Ô]SELECT DISTINCT A3_NOME FROM SA3010[Ô]
Dim da As New System.Data.SqlClient.SqlDataAdapter(strSQL, connStr)
Dim ds As New DataSet
da.Fill(ds, [Ô]SA3010[Ô])
With Me.cbovend
.DataSource = ds.Tables([Ô]SA3010[Ô])
.DisplayMember = [Ô]A3_NOME[Ô]
.ValueMember = [Ô]A3_NOME[Ô]
.SelectedIndex = 0
End With
End Sub
Estou grato pela sua atenção em me ajudar.
Tópico encerrado , respostas não são mais permitidas