Jump to content
Fórum Script Brasil
  • 0

Erro Jet Database


Deividy

Question

Esta aparecendo esse erro quando eu envio para gravar, com alguns campos vazios

Alquem pode me ajudar nisso.

Microsoft JET Database Engine (0x80040E21)

O campo 'cadagente.Nome' não pode ser uma seqüência de caracteres de comprimento nulo.

/agente/aguas/teste/validaagente.asp, line 74

Set conn = Server.CreateObject("ADODB.Connection")

rs = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("testando.mdb")

conn.Open rs

  sql = "SELECT * FROM grupo WHERE usuario = '" & vlogin & "'"

  Set rsUsers = Server.CreateObject("ADODB.Recordset")

  rsUsers.Open sql, conn, 3, 3

 

  vponto = rsUsers.Fields("ponto").Value

  vgrupo = rsUsers.Fields("grupo").Value

 

Nome        = Request.Form("nomeint")

    Sobrenome  = Request.Form("sobrenomeint")

Endereco    = Request.Form("enderecoint")

  Bairro      = Request.Form("bairroint")

Cidade      = Request.Form("cidadeint")

Estado      = Request.Form("estadoint")

CEP        = Request.Form("cepint")

Telefone    = Request.Form("telefoneint")

Celular    = Request.Form("celularint")

Email      = Request.Form("Emailint")

Observacoes = Request.Form("observacoesint")

 

Set rsUser = Server.CreateObject("ADODB.Recordset")

rsUser.open "cadagente", conn, 3, 3

rsUser.AddNew

rsUser("grupo")      = vgrupo

rsUser("ponto")      = vponto

rsUser("nome")        = nome

rsUser("sobrenome")  = sobrenome

rsUser("endereco")    = endereco

rsUser("bairro")      = bairro

rsUser("cidade")      = cidade

rsUser("estado")      = estado

rsUser("cep")        = cep

rsUser("telefone")    = telefone

rsUser("celular")    = celular

rsUser("email")      = email

rsUser("observacoes") = observacoes

rsUser.Update

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

Guest
This topic is now closed to further replies.


  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      652k
×
×
  • Create New...