TIPO IMCOMPATIVEL DE DADOS
Alguem saberia me informar por que esta gerando um erro de tipo incompativel de dado na linha abaixo ?
Rs.Open "Select * From TabPedidos Where Pedido = " & DataGrid1.Columns(1).Text, Cnn
O campo 1 da datagrid esta setada como General e na tabela no Bd esta como texto..Alguem sabe o porque disso ? O numero do erro é...-2147217913
Obrigado.;
Rs.Open "Select * From TabPedidos Where Pedido = " & DataGrid1.Columns(1).Text, Cnn
O campo 1 da datagrid esta setada como General e na tabela no Bd esta como texto..Alguem sabe o porque disso ? O numero do erro é...-2147217913
Obrigado.;
faça um teste simples
dim strSQL as string
strSQL = "Select * From TabPedidos Where Pedido = " & DataGrid1.Columns(1).Text
msgbox strSQL
Rs.Open(strSQL, Cnn)
veja o que aparece na msgbox, lembre que se for campo numero, a msgbox tem que vir com pedido = 00000 ou seja so numeros, se nao aparecer numeros ou aparecer outra coisa, fica mais facil de achar o erro.
dim strSQL as string
strSQL = "Select * From TabPedidos Where Pedido = " & DataGrid1.Columns(1).Text
msgbox strSQL
Rs.Open(strSQL, Cnn)
veja o que aparece na msgbox, lembre que se for campo numero, a msgbox tem que vir com pedido = 00000 ou seja so numeros, se nao aparecer numeros ou aparecer outra coisa, fica mais facil de achar o erro.
Ele me retornou:
Select * From TabPedidos Where Pedido = 12345
Select * From TabPedidos Where Pedido = 12345
pedido é número ou caracter no banco de dados?
No Bd esta como texto..
bem... então faça:
Rs.Open "Select * From TabPedidos Where Pedido = '" & DataGrid1.Columns(1).Text & "'", Cnn
Rs.Open "Select * From TabPedidos Where Pedido = '" & DataGrid1.Columns(1).Text & "'", Cnn
é issso jean, se no banco estiver como campo numerico, NUMERICO, e não como data ou texto, ou outra coisa, a pesquisa esta correta, agora se for texto, faça
dim strSQL as string
strSQL = "Select * From TabPedidos Where Pedido Like '" & DataGrid1.Columns(1).Text & "'"
msgbox strSQL
Rs.Open(strSQL, Cnn)
repare bem se na pesquisa não esta retornando, com espaços a mais no antes e no fim do numero
exemplo
pedido = 0000 'esta certo
pedido = 0000 'esta errado
dim strSQL as string
strSQL = "Select * From TabPedidos Where Pedido Like '" & DataGrid1.Columns(1).Text & "'"
msgbox strSQL
Rs.Open(strSQL, Cnn)
repare bem se na pesquisa não esta retornando, com espaços a mais no antes e no fim do numero
exemplo
pedido = 0000 'esta certo
pedido = 0000 'esta errado
desculpa ai jeam, nao vi sua segunda resposta.
Blz, agora funcionou..Obrigado.
Tópico encerrado , respostas não são mais permitidas