MASTERMIND
-
Total de itens
4 -
Registro em
-
Última visita
Posts postados por MASTERMIND
-
-
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
Alimentar coleccao de items de uma combobox com acess
em .NET
Postado
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