José Neves
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 07/08/2006 16:20 hs
Certo, agora me diz,pra mim usar ADO, igual vc deu o exemplo logo abaixo, oq mais q eu tenho q declarar ou fazer pra funcionar?!?!? 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 obrigado pela atenção cara!!
|
|
|
|
|
|
|
|
Postada em 07/08/2006 16:33 hs
Vá no menu "Project|references" marque a opção Microsoft Activex Data Objects X.X Library. Onde X.X é a versão... pode ser qq uma bom... depois é isso q vc está vendo... caminho do banco, sql para abrir a sua tabela e o restante do código q vc viu. Não tem segredo. qq dificuldade posta ae t+ |
|
|
|
José Neves
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/08/2006 16:45 hs
Deu certo, mas é bem mais rápido heiN!!!
Qq duvida volto a postar!!!!
Obrigado |
|
|
|
|
|
Postada em 07/08/2006 16:59 hs
Opa, precisando tamos ae... caso não precise mais de ajuda no momento fecha o post. Obrigado :) |
|
|
|
José Neves
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/08/2006 17:23 hs
Blz, o DataCombo não tem como ficar o combobox, exemplo nao tem como apagar oq vc for escrevendo, e no combobox, conforme vc vai escrevendo, ele vai indo direto pra onde vc ta digitando!!
Ja mudei diversas propriedades do DataCombo e nao da certo, tem como? abraço |
|
|
|
Valmirmg
|
UBERLANDIA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/08/2006 17:27 hs
Vc pode fazer da seguinte maneira tbm.
Private Function Limpa_Texto(texto As String)
Dim texto_limpo As String
Dim Codigo_Tabela_Asc As Integer
Dim posicao As Long
For posicao = 1 To Len(texto)
Codigo_Tabela_Asc = Asc(Mid(texto, posicao, 1))
Select Case Codigo_Tabela_Asc
Case 192 To 197
Codigo_Tabela_Asc = Asc("A")
Case 224 To 229
Codigo_Tabela_Asc = Asc("a")
Case 200 To 203
Codigo_Tabela_Asc = Asc("E")
Case 232 To 235
Codigo_Tabela_Asc = Asc("e")
Case 204 To 207
Codigo_Tabela_Asc = Asc("I")
Case 236 To 239
Codigo_Tabela_Asc = Asc("i")
Case 199
Codigo_Tabela_Asc = Asc("C")
Case 231
Codigo_Tabela_Asc = Asc("c")
End Select
texto_limpo = texto_limpo & Chr(Codigo_Tabela_Asc)
Next
Limpa_Texto = texto_limpo
End Function
A função acima não esta completa , eu apenas mostrei como substituir as
ocorrências de acentos nos caracteres: A,a,E,e,I,i,Ç e ç. Cabe a você agora
expandir a função de acordo com sua necessidade.
---------------------------------
Valmir Ferreira Rocha
Sistemas de Informação
---------------------------------
|
|
|
|
