bão consigo enviar dados pro meu BD.

[flaviopreza 0]

fala galera!

 

Não consigo enviar dados pro meu bd em access, dá sempre esse erro:

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Você tentou atribuir o valor Null a uma variável que não é do tipo de dados Variant.

/arm/insere.asp, line 117.

 

Como estou começando a programar em ASP agora, não sei como resolver esse problema.

 

Alguem pode ajudar por favor? Estou usando o WIN -XP e IIS.

 

flaviostudio@hotmail.com

 

http://www.fcstudio.com.br

[FabricioGomes 0]

verifique sua string SQL, pois voce esta incluindo um valor nulo num campo que nao aceita...

[FabricioGomes 0]

posta a linha 117 do arquivo insere.asp, e qualquer linha antes que crie uma string SQL...

[flaviopreza 0]

Tudo bem Fabricio?Cara, como eu te falei, não manjo muito de programação estou trabalhando com Dreamweaver MX, mas tentei fazer a mesma coisa no WIN98 e deu tudo certo. você pode tentar me ajudar a resolver esse problema?verifique sua string SQL, pois voce esta incluindo um valor nulo num campo que nao aceita...

[FabricioGomes 0]

posso tentar te ajudar, como a todos que aqui estao, mas mostra a linha 117 e outras anteriores.... analisamos e verificamos o que pode estar errado... ok?

[flaviopreza 0]

Valeu pela força galera!

eu tentei arrumar o erro e agora mudou a linha, tá ai o erro:

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[Microsoft][Driver ODBC para Microsoft Access] Você tentou atribuir o valor Null a uma variável que não é do tipo de dados Variant.

/arm/insere.asp, line 115

 

 

CODIGO:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/arm.asp" -->

<%

' *** Edit Operations: declare variables

 

Dim MM_editAction

Dim MM_abortEdit

Dim MM_editQuery

Dim MM_editCmd

 

Dim MM_editConnection

Dim MM_editTable

Dim MM_editRedirectUrl

Dim MM_editColumn

Dim MM_recordId

 

Dim MM_fieldsStr

Dim MM_columnsStr

Dim MM_fields

Dim MM_columns

Dim MM_typeArray

Dim MM_formVal

Dim MM_delim

Dim MM_altVal

Dim MM_emptyVal

Dim MM_i

 

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Request.QueryString

End If

 

' boolean to abort record edit

MM_abortEdit = false

 

' query string to execute

MM_editQuery = ""

%>

<%

' *** Insert Record: set variables

 

If (CStr(Request("MM_insert")) = "form1") Then

 

MM_editConnection = MM_arm_STRING

MM_editTable = "cadastro"

MM_editRedirectUrl = "sucesso.asp"

MM_fieldsStr = "erro|value|descricao|value|solucao|value|id|value"

MM_columnsStr = "erro|none,none,NULL|descricao|',none,''|solucao|',none,''|id|none,none,NULL"

 

' create the MM_fields and MM_columns arrays

MM_fields = Split(MM_fieldsStr, "|")

MM_columns = Split(MM_columnsStr, "|")

 

' set the form values

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))

Next

 

' append the query string to the redirect URL

If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

End If

End If

 

End If

%>

<%

' *** Insert Record: construct a sql insert statement and execute it

 

Dim MM_tableValues

Dim MM_dbValues

 

If (CStr(Request("MM_insert")) <> "") Then

 

' create the sql insert statement

MM_tableValues = ""

MM_dbValues = ""

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_formVal = MM_fields(MM_i+1)

MM_typeArray = Split(MM_columns(MM_i+1),",")

MM_delim = MM_typeArray(0)

If (MM_delim = "none") Then MM_delim = ""

MM_altVal = MM_typeArray(1)

If (MM_altVal = "none") Then MM_altVal = ""

MM_emptyVal = MM_typeArray(2)

If (MM_emptyVal = "none") Then MM_emptyVal = ""

If (MM_formVal = "") Then

MM_formVal = MM_emptyVal

Else

If (MM_altVal <> "") Then

MM_formVal = MM_altVal

ElseIf (MM_delim = "'") Then ' escape quotes

MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"

Else

MM_formVal = MM_delim + MM_formVal + MM_delim

End If

End If

If (MM_i <> LBound(MM_fields)) Then

MM_tableValues = MM_tableValues & ","

MM_dbValues = MM_dbValues & ","

End If

MM_tableValues = MM_tableValues & MM_columns(MM_i)

MM_dbValues = MM_dbValues & MM_formVal

Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

 

If (Not MM_abortEdit) Then

' execute the insert

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

 

If (MM_editRedirectUrl <> "") Then

Response.Redirect(MM_editRedirectUrl)

End If

End If

 

End If

%>

<%

Dim Recordset1

Dim Recordset1_numRows

 

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

Recordset1.ActiveConnection = MM_arm_STRING

Recordset1.Source = "SELECT * FROM cadastro"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

 

Recordset1_numRows = 0

%>

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<title>Documento sem título</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

</head>

 

<body>

<div align="center"><font color="#0000FF"><strong>NESTA TELA VOCÊ IRÁ

DESCREVER TODOS OS NUMEROS DE ERROS QUE APARECEM NO SISTEMA ARM!!!

<p> </p>

 

<form method="POST" action="<%=MM_editAction%>" name="form1">

<table align="center">

<tr valign="baseline">

<td nowrap align="right">Erro:</td>

<td> <input type="text" name="erro" value="" size="32"> </td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Descricao:</td>

<td> <input type="text" name="descricao" value="" size="32"> </td>

</tr>

<tr valign="baseline">

<td nowrap align="right">Solucao:</td>

<td> <input type="text" name="solucao" value="" size="32"> </td>

</tr>

<tr valign="baseline">

<td nowrap align="right"> </td>

<td> <input type="submit" value="Inserir registro"> <input type="reset" name="Submit" value="Apagar" />

</td>

</tr>

</table>

<input type="hidden" name="id" value="" size="32">

<input type="hidden" name="MM_insert" value="form1">

</form>

<p> </p>

</strong></font> </div>

</body>

</html>

<%

Recordset1.Close()

Set Recordset1 = Nothing

%>