MASTERMIND

Isto tá complicadito... eu tenho esta funcão extrairdados numa classe que uso para varias operacoes com dados ____XXXX______ Public Function ExtrairDados(ByVal Tabela As String, ByVal Campos As String, ByVal Criterio As String, ByVal Ordem As String) As DataSet Dim repositorio As New DataSet Dim strSQL As String = "SELECT " & Campos & " FROM " & Tabela & Criterio & Ordem Dim ligacao As OleDbConnection = ObterLigacao() Dim dataAdapter As New OleDbDataAdapter() dataAdapter.SelectCommand = New OleDbCommand(strSQL, ligacao) dataAdapter.SelectCommand.CommandType = CommandType.Text dataAdapter.Fill(repositorio, "Dados") Return repositorio End Function e estou a tentar... , criar este procedimento para popular os items da minha combo com os dados que devolve a funcão, entretanto já coloquei o valuemember e o displaymember, mas ainda não me lista nada. alguém? ____XXXX______ Private Sub populacombocodpost() Dim dsdados As DataSet dsdados = dados.ExtrairDados("CODIGOSPOSTAIS", " * ", "", "") With cmbcodpost .DataSource = dsdados .DisplayMember = "LOCALIDADE" .ValueMember = "LOCALIDADE" End With End Sub

Oi gente eu uso o vb.net, tenho uma bd em acess com os codigos postais e queria que essa informação aparece-se na minha combo box como devo fazer? eu com um ficheiro de texto já consegui...mas como é que eu faco com uma tabela de acess? : :unsure: alguém me pode ajudar? obrigado

Obrigado kuroi valeu! eu entretanto descobri um que resolve no vb.2005 no evento textchanged. de qualquer das formas um grande obrigado Private Sub txtnif_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtnif.TextChanged If IsNumeric(txtnif.Text) = False Then txtnif.Text = "" Beep() End If End Sub

Ola, olha eu tentei usar este codigo no meu projecto estou a usar o vb.net 2005 , mas em mim não funciona da erro em "KeyAscii" é como se fosse uma variavel não declarada . podes me ajudar? Obrigado Um abraço Kuroi! , já consegui que não de desse erro , só que agora não me faz nada dentro da text box, ou seja deixa escrever caracteres livremente... :mellow: obrigado