DataCombo - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: DataCombo

Bruno
não registrado

Postada em 20/08/2007 11:16 hs

Oi Galera,

Gostaria de saber oq devo fazer para abrir em um DataCombo a minha lista de fornecedores com o cod "02"

EX:

Cod: Fornecedores

01 IBM

01 HP

Cod: Fornecedores

02 IBM

02 OKI

02 DELL

Quero q ele mostre os com o cod 02!

Segue abaixo o meu Código!

Obrigado:

Set BDCONTROLE = New ADODB.Connection

Set TBFORNECEDORES = New ADODB.Recordset

TBFORNECEDORES.Open "FORNECEDORES", BDCONTROLE 'Abre a Tabela "FORNECEDORES"
Set dcmbFornecedor.RowSource = TBFORNECEDORES
dcmbFornecedor.ListField = "FORNECEDOR"

Roßerto

SAO PAULO
SP - BRASIL

Postada em 20/08/2007 11:18 hs

Dim vSQL as String

Set BDCONTROLE = New ADODB.Connection

Set TBFORNECEDORES = New ADODB.Recordset

vSQL = "Select * From Fornecedores Where Codigo = '02'"

TBFORNECEDORES.Open vSQL , BDCONTROLE 'Abre a Tabela "FORNECEDORES"
Set dcmbFornecedor.RowSource = TBFORNECEDORES
dcmbFornecedor.ListField = "FORNECEDOR"

flws

Álvaro

GUARULHOS
SP - BRASIL

Postada em 20/08/2007 11:22 hs

Bruno, cadastre-se é fácil e rápido
Quanto ao que você deseja, poderia usar assim
SQL= select * from suatabela where codigo=02

Depois era jogar para o primeiro registro
SQL.Moveffrrist ( para o site não trocar para movemin )
while not sql.eof
combo.add sql!codigo
sql.movennext
wend

Como você programa em ADO,não sei com fazer a consulta com o SQL, más o comando seria o que te passei

Abraço e que DEUS te abençõe, espero poder ter te ajudado

Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13

TÓPICO EDITADO

Bruno
não registrado

Postada em 20/08/2007 11:30 hs

OI Galera, meu banco é em ACCESS! vai rolar assim com SQL?

VLW

Álvaro

GUARULHOS
SP - BRASIL

Postada em 21/08/2007 07:58 hs

Sim, ira rolar sem problemas

Qualquer dúvida, coloque o código e onde está sua dúvida para a gente poder te ajudar melhor
Abração

Abraço e que DEUS te abençõe, espero poder ter te ajudado

Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13

TÓPICO EDITADO

Bruno
não registrado

Postada em 21/08/2007 09:57 hs

Oi Galera,

Segue abaixo o meu código: Ele esta dando alguns erros!

OBS: O Código 02 - Vou substituir por uma variavel "vCO"

Private Function OrcamentoComboBox()
Dim vSQL As String

Set BDFORNECEDORESORC = New ADODB.Connection
Set TBFORNECEDORESORC = New ADODB.Recordset

BDFORNECEDORESORC.CursorLocation = adUseClient
'Cria conexão com o Banco de Dados
BDFORNECEDORESORC.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Z:BANCO_DADOSGESTAO.mdb"

vSQL = "Select * From COFORNECEDOR Where Codigo = '02'"

TBFORNECEDORESORC.Open vSQL, BDFORNECEDORESORC 'Abre a Tabela "FORNECEDORES"
Set dcmbFornecedor.RowSource = TBFORNECEDORESORC
dcmbFornecedor.ListField = "FORNECEDOR"
End Function

Página(s): 1/2 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR