José Neves
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 07/08/2006 10:39 hs
Agora é o seguinte, tenho a tabela, com o seguinte campo: Codigo, e gostaria de percorrer toda essa minha tabela fazendo uma comparação EX.: Se o Codigo for igual a 1, ai ele pega e coloca em outro campo CE, se o codigo for 2 coloca no outro campo MT........e assim por diante, como faço?!!? obrigado pela ajuda |
|
|
|
|
|
|
|
Postada em 07/08/2006 13:27 hs
DO WHILE NOT RS.EOF codigo = RS(0) SELECT CASE codigo CASE "1" BD.EXECUTE "UPDATE Tabela SET CAMPO = 'CE' WHERE codigo = " & codigo CASE "2" BD.EXECUTE "UPDATE Tabela SET CAMPO = 'MT' WHERE codigo = " & codigo END SELECT RS.MOVENEXT LOOP blz? at+ |
|
|
|
José Neves
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/08/2006 15:02 hs
Ghost, ficou filé meu irmao!!!
Muito obrigado, agora me dá uma dica ai, tenha todas as cidades cadastradas em uma tabela no meu banco de dados, estou jogando todas as cidades em um COMBOBOX assim q carrega o formulario e tá demorando um pouco devido a mais de 10 mil cidades cadastradas, como faço pra carregar mais rapido ?!!? abraço Junior |
|
|
|
|
|
Postada em 07/08/2006 15:13 hs
Usa o DataCombo...
Vá no menu Project|Components Microsoft Data List Controls 6.0 Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Teste.mdb"
rs.CursorLocation = adUseClient
rs.Open "Select * from T", cnn, adOpenForwardOnly, adLockReadOnly Set DataCombo1.RowSource = rs
DataCombo1.ListField = rs(0).Name 'Nome do campo qq coisa é só postar
t+ obs.:Se for usar DAO use o DBCombo do Data Bound List Controls |
|
|
|
José Neves
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/08/2006 15:32 hs
Cara vc vai até me xingar, mas nao sei e nao pego o jeito de maneira alguma do jeito que vc trabalha, inclusive queria saber qual a diferença, os pró e os contra, ja que vc sabe da maneira q sei!!!!! Agora oq mais q tenho q declarar pra funcionar desse jeito que vc me passou?!!? abraço e obrigado pela compreensão |
|
|
|
|
|
Postada em 07/08/2006 15:44 hs
O DAO é mais antigo e não lembro de dar suporte a sql server, mysql etc... pra isso vc fazia com ODBC. O ADO já permite isso, e é mais novo. Diferença básica... Se vc estiver trabalhando com o DAO use o DBCombo, q é feito para DAO, se for com ADO use o DataCombo q é feito para ADO, entendeu? Se for com o DAO creio q dá pra fazer da mesma maneira q passei acima... sairia assim creio eu: SET BD = Workspaces(0).OpenDatabase("C:|Teste.mdb")
Set Rs = BD.OpenRecordset ("Select * from Tabela") Set DBCombo1.RowSource = rs
DBCombo1.ListField = rs(0).Name 'Nome do campo Eu não nunca fiz via código com o DBCombo , talvez dê alguma pau mas qq coisa é só postar.
t+ |
|
|
|
