• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Manhoso

[VB.NET 2005 Express Edition] - Leitura de dados de tabela access

5 mensagens neste tópico

Boas!

Tenho um problema para o qual não encontro explicação nem motivo para tal.

O que acontece é que ao tentar ler os dados contidos num campo do tipo texto de uma tabela de uma base de dados de access,obtenho um erro de "specified cast is not valid". O que eu acho estranho é que a mesma tabela tem outros campos do tipo texto e nesses não há problemas. O tipo de dados da variavel que recebe os dados da tabela e do tipo string, assim como as outras variaveis que recebem os outro dados do tipo texto.

Não estou a ver solução para este erro  :wallbash:

Alguém me consegue ajudar?

hasta

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

usas o .ToString ou nem por isso? e mete a versao d visual basic que usas no titulo do topico...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas! Por acaso não uso o .ToString, até porque nos outros campo do tipo texto, funciona tudo bem sem ser preciso esse método.

Alteração feita.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Resolvido! E sem ter que fazer nada! :dontgetit: :)

mas aqui vai o código na mesma:

'ler um registo através do nome
Public Function read(ByVal name As String) As Boolean
	cmd = New OleDbCommand("", New OleDbConnection("provider=Microsoft.jet.oledb.4.0;data source=contactos.mdb"))
	cmd.CommandText = "select * from pessoa where nome like '" & name & "' order by id asc;"
	Dim reader As OleDbDataReader
	Dim success As Boolean = False

	Try
		cmd.Connection.Open()
		reader = cmd.ExecuteReader()
		If reader.HasRows Then
			reader.Read()
			cId = reader.GetInt32(0)
			cNome = reader.GetString(1)
			cMorada = reader.GetString(2)
			cCp = reader.GetString(3)
			cLocalidade = reader.GetString(4)
			cDatanasc = reader.GetDateTime(5)
		End If
		cmd.Connection.Close()
		success = True
	Catch ex As Exception
		cmd.Connection.Close()
		success = False
		MsgBox("erro! " & ex.Message)
	End Try

	cmd.Dispose()
	Return success
End Function

Só que agora o que se passa é que as aplication settings não funcionam. Diz que "Configuration system failed to initialize".  :dontgetit:

É que nem sequer mexi nas definições disto  :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora