A editar o post: String Or Binary Data Would Be Truncated

[mestre fyoda 1]

o campo data ele é dateBox é um .ocx que eu baixei é o Input32X .pq ta dando esse erro ?

Set teste = cn.Execute(" Insert into Agendar_Consulta (nom_pac,hora,data) values('" & nome.Text & "','" & hora.Value & "','" & data.Value & "') ")

[eriva_br 7]

um caso que sei que este erro ocorre é quando por exemplo você tenta incluir em um campo dados maiores do que ele suporta

 

veja este exemplo, o campo nome foi definido com tamanho 10 e estou tentando inserir uma string de tamanho 19 ('tricolor tricampeão')

 

declare @teste table (codigo int, nome varchar(10))insert into @teste (codigo, nome)values (1, 'tricolor tricampeão')

falows

t+

[mestre fyoda 1]

nao pode ser isso , pq acabei de deletar a tabela e coloquei o campo maior na tabela .

[eriva_br 7]

quais os dados dos campos nom_pac,hora,data, e quais dados estam sendo passados pra eles?

[mestre fyoda 1]

todos sao var chars nom_pac -> rafaelhora -> 12:00data -> 3/3/2006

[eriva_br 7]

qual o tamanho dos chars?qual banco de dados que você esta usando?

[mestre fyoda 1]

uso o sql server 2000tamanho do campo é 12 .

[eriva_br 7]

putz f*** hein... e se você tentar executar no sql query analyser a mesma instrução sql que está sendo passada no vb

[mestre fyoda 1]

deu certo . inclui a mesma data mas foi no Sqlserver , eu ja tinha feito este teste .o q esta de errado no meu codigo ?

[eriva_br 7]

a sua conexão está definido como client ou server?

[mestre fyoda 1]

a minha conexao eu setei assim no Module .

Global cn As ADODB.ConnectionGlobal rs As ADODB.RecordsetGlobal rs2 As ADODB.RecordsetGlobal agenda As StringPrivate Sub Main()Dim strArquivo As StringDim strLocal As StringDim Conexao As StringSet cn = New ADODB.ConnectionSet rs = New ADODB.RecordsetSet cn = CreateObject("ADODB.Connection")Conexao = "Driver={SQL Server};" & _"Server=RAFAEL;" & _"Database=Dentista;" & _"Uid=sa;Pwd=janio1;"cn.Open ConexaoAgendamento.ShowEnd Sub

[eriva_br 7]

antes de dar o open tenta setar a conexao pra client pra ver se funciona

 

cnn.CursorLocation = adUseClient

 

Set cn = CreateObject("ADODB.Connection")Conexao = "Driver={SQL Server};" & _"Server=RAFAEL;" & _"Database=Dentista;" & _"Uid=sa;Pwd=janio1;"cnn.CursorLocation = adUseClientcn.Open ConexaoAgendamento.Show

[mestre fyoda 1]

deu o mesmo erro .

[eriva_br 7]

qdo. você da o comando você faz set teste, o que seria esse teste? tenta executar ele sem esse testecn.Execute(" Insert into Agendar_Consulta (nom_pac,hora,data) values('" & nome.Text & "','" & hora.Value & "','" & data.Value & "') ")

[mestre fyoda 1]

nao deu certo .

[eriva_br 7]

se você por o um breakpoint na linha de execução, os valores que estão sendo passados são esses mesmo?nom_pac -> rafaelhora -> 12:00data -> 3/3/2006

[mestre fyoda 1]

esses valores sao digitados .

[eriva_br 7]

você colocou o break point?