Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
Postada em 25/04/2006 11:39 hs
ao incluir ou alterar um registro, no mysql, através de um recordset, estou recebendo um erro: run-time error : -2147467259 (80004005) comprimento invalido de sequencia de caracteres ou de buffer. obs: na mesma rotina no banco access vai normal. |
|
|
|
|
|
|
|
Postada em 25/04/2006 12:51 hs
Oi futura! Passa como vc esta realizando a inclusao/alteração pra poder te ajudar.. blz? |
|
|
|
|
|
Postada em 25/04/2006 12:52 hs
ou manda um email pra mim.. se vc tiver msn me passa no email que nos falamos e ai poderei te ajudar melhor. abraços. |
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 25/04/2006 13:46 hs
futura esse erro me parece que é algum dado que vc esta querendo inserir na tabela que o tipo da coluna da tabela nao suporta. e no access suportava, de uma olhada nisso ok. |
|
|
|
Futura
|
PORTO FERREIRA
SP - BRASIL
|
|
Postada em 25/04/2006 21:41 hs
bom a rotina é esta: set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseServer
If Trim(txtcodigo.Text) <> Empty Then
sql = " select * from clientes where codigo = " & txtcodigo & " "
Rs.Open sql, Cnn, adOpenDynamic, adLockOptimistic
Else
Rs.Open "clientes", Cnn, adOpenDynamic, adLockOptimistic
Rs.AddNew
End If
'dados cadastrais
Rs!classe = cmbclasse.Text
Rs!cgc = txtcgc.Text
Rs!ie = txtrg.Text
Rs!razao = txtrazao.Text
Rs!apelido = txtape.Text
Rs!rua = txtrua.Text
Rs!comple = txtcomp.Text
Rs!bairro = txtbai.Text
Rs!cidade = cmbcid.Text
Rs!uf = cmbuf.Text
Rs!cep = txtcep.Text
Rs!fones = txtfone.Text
Rs!celular = txtcelular.Text
Rs!fax = txtfax.Text
Rs!email = txtemail.Text
Rs!web = txtweb.Text
Rs!tipo = cmbtipo.Text
Rs!ramo = txtramo.Text
Rs!contato = txtcont.Text
If Not IsNumeric(txtlimite) Then txtlimite = 0
Rs!LIMITE = Replace(txtlimite.Text, ",", ".")
Rs!cadastro = Format(dtcad.Value, "yyyy/mm/dd")
Rs!datanasc = Format(dtnas.Value, "yyyy/mm/dd")
If optbloq.Value = True Then
Rs!Status = "B"
Else
Rs!Status = " "
End If
Rs!ref = txtref.Text
Rs!obs = txtobs.Text
Rs.Update
Rs.Close
Set Rs = Nothing
aviso = MsgBox("Dados Atualizados", vbInformation + vbOKOnly, "Futura - aviso ao usuário")
limpa |
|
|
|
|
|
Postada em 26/04/2006 07:32 hs
eu preciso saber se o conteudo das variaveis que vc esta jogando para os campos do seu banco estao com o mesmo TYPE de dados que os do banco de dados. qualquer coisa coloque ai a sua structure. |
|
|
|
