|
|
Postada em 07/11/2005 12:11 hs
Como faço para colocar na list do combobox os registros de um banco de dados: 1) uma única coluna 2) todos os campos do registro Preciso de ajuda. |
|
|
|
|
|
|
|
Postada em 07/11/2005 12:29 hs
dim Rst as ADODB.RecordSet set Rst= new ADODB.RecordSet rst.open "select campo from tabela",conexao while not rst.EOF Combo1.addItem Rst("Campo") wend |
|
|
|
|
|
Postada em 07/11/2005 13:12 hs
dim Rst as ADODB.RecordSet set Rst= new ADODB.RecordSet rst.open "select campo from tabela",conexao while not rst.EOF Combo1.addItem Rst("Campo") rst.MoveNext wend |
|
|
|
|
|
Postada em 07/11/2005 13:29 hs
dim Rst as ADODB.RecordSet dim Linha as string set Rst= new ADODB.RecordSet rst.open "select campo1,campo2 from tabela",conexao while not rst.EOF linha= rst("campo1") & rst("campo2") ' quantos campos forem vc vai concatenando Combo1.addItem linha rst.MoveNext wend |
|
|
|
|
|
Postada em 07/11/2005 16:17 hs
On Error GoTo Trata_Erro
Set BancoDeDados = OpenDatabase(App.Path & "olao.MDB", False)
Set TBBolãoT = BancoDeDados.OpenRecordset("select distinct data from BolãoT order by data desc")
With DBCdatacompetição
.Clear
Do While Not TBBolãoT.EOF
DBCdatacompetição.AddItem TBBolãoT("data")
TBBolãoT.MoveNext
Loop
End With
Exit Sub
Trata_Erro:
MsgBox "Você Selecionou DADOS INVÁLIDOS!!!!"
|
|
|
|
Diogo Areas
não registrado
|
|
Postada em 07/11/2005 18:46 hs
No evento form, vc da um select no combo dizendo o campo desejado e qual o banco de dados. Se quiser o código manda um e-mail. |
|
|
|
