CONVERTE DATA EM STRING
Estou fazendo este teste:
Me.DataSaida.Text = IIf(Dr_Merca.Item([Ô]DataSaida_Merca[Ô]) <> [Ô]__/__/[Ô], Dr_Merca.Item([Ô]DataSaida_Merca[Ô]), [Ô]__/__/[Ô])
Ao rodar me retorna a seguinte mensagem:
Operator [ô]<>[ô] is not defined for type [ô]DBNull[ô] and string [Ô]__/__/[Ô].
No banco de dados do MYSQL, a variável está NULL, por isto é que está dando o erro, com faço este teste dar certo??
Obrigado,
Me.DataSaida.Text = IIf(Dr_Merca.Item([Ô]DataSaida_Merca[Ô]) <> [Ô]__/__/[Ô], Dr_Merca.Item([Ô]DataSaida_Merca[Ô]), [Ô]__/__/[Ô])
Ao rodar me retorna a seguinte mensagem:
Operator [ô]<>[ô] is not defined for type [ô]DBNull[ô] and string [Ô]__/__/[Ô].
No banco de dados do MYSQL, a variável está NULL, por isto é que está dando o erro, com faço este teste dar certo??
Obrigado,
O que você quer que apareça ?
Explique melhor por favor
Explique melhor por favor
gostaria que neste teste, se a data estive nula, apareça __/__/___ senão a data que está no banco de dados.
Uma opção é jogar num datagrid
outra seria usar um reader
sql = [Ô]select data from SuaTabela where Seu_Criterio= [ô][Ô] & TextBox1.Text & [Ô][ô][Ô]
Dim comando = New MySqlCommand(sql, Conexao)
Dim leitor As MySqlDataReader = comando.ExecuteReader
If leitor.Read = True Then
txtData.Text = leitor.Item([Ô]data[Ô]).ToString
End If
leitor.Close()
tenta aÃ
outra seria usar um reader
sql = [Ô]select data from SuaTabela where Seu_Criterio= [ô][Ô] & TextBox1.Text & [Ô][ô][Ô]
Dim comando = New MySqlCommand(sql, Conexao)
Dim leitor As MySqlDataReader = comando.ExecuteReader
If leitor.Read = True Then
txtData.Text = leitor.Item([Ô]data[Ô]).ToString
End If
leitor.Close()
tenta aÃ
ADHEL - não é bem isto, tenho uma variável tipo data e gostaria de converter esta variável para string, como faço isto??
CStr(sua_variavel)
ADHEL - consegui, era muito simples, veja abaixo:
Me.DataSaida.Text = IIf(Not IsDBNull(Dr_Merca.Item([Ô]DataSaida_Merca[Ô])), Dr_Merca.Item([Ô]DataSaida_Merca[Ô]), [Ô]__/__/____[Ô])
Obriigado assim mesmo.
Me.DataSaida.Text = IIf(Not IsDBNull(Dr_Merca.Item([Ô]DataSaida_Merca[Ô])), Dr_Merca.Item([Ô]DataSaida_Merca[Ô]), [Ô]__/__/____[Ô])
Obriigado assim mesmo.
Tópico encerrado , respostas não são mais permitidas