<% if IsNumeric("campo1") Then response.write " campo nuérico" else response.write " Diferente" End If %>
é isso ae
abraços
t+
Posted 23/04/2004, 10:14
<% if IsNumeric("campo1") Then response.write " campo nuérico" else response.write " Diferente" End If %>
Posted 23/04/2004, 10:22
cara no caso, quais são os campos numericos no banco de dados?Erro APONTADO
Microsoft JET Database Engine (0x80040E14)
Erro de sintaxe na instrução INSERT INTO.
/web/dbmaxloggrcs/cadastrar.asp, line 33
Obrigado por enquanto pela ajuda de todos vc's.
Posted 23/04/2004, 10:28
Posted 23/04/2004, 10:34
<% if Request.Form("senha") <> Request.Form("senha2") then Response.Write("Senha não confirmada") else vbase=Request.Form("base") vcnpj=Request.Form("cnpj") vrazaosocial=Request.Form("razaosocial") vendereco=Request.Form("endereco") vnumero=Request.Form("numero") vcomplemento=Request.Form("complemento") vbairro=Request.Form("bairro") vcidade=Request.Form("cidade") vestado=Request.Form("estado") vcep=Request.Form("cep") vresponsavel=Request.Form("responsavel") vemail=Request.Form("email") vsenha=Request.Form("senha") Dim conObj Dim SQL Set conObj = Server.CreateObject("ADODB.Connection") conObj.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DBMAX/DBMAX.mdb") & ";" SQL = "INSERT INTO CADASTRO (BASE,CNPJ,RAZAOSOCIAL,ENDERECO,NUMERO,COMPLEMENTO,BAIRRO,CIDADE,ESTADO,CEP,RESPONSAVEL,EMAIL,PASSWORD)values('"&vbase&"','"&vcnpj&"','"&vrazaosocial&"','"&vendereco&"','"&vnumero&"', '"&vcomplemento&"','"&vbairro&"','"&vcidade&"','"&vestado&"','"&vcep&"', '"&vresponsavel&"','"&vemail&"','"&vsenha&"')" conObj.execute(SQL) end if %>abraços
Posted 23/04/2004, 10:55
Edição feita por: pchardnet, 23/04/2004, 11:01.
Posted 23/04/2004, 11:21
<% 'Declarando as variáveis Dim Conn 'Criando o objeto de conexao Set Conn = Server.CreateObject("ADODB.Connection") 'Determinando o caminha dos dados COLOQUE O CAMINHO COMPLETO DO BANCO DE DADOS Conn.open "DBQ=C:\bd\cris.mdb;Driver={MIcrosoft Access Driver (*.mdb)}" %>
Posted 23/04/2004, 12:24
Posted 23/04/2004, 12:35
Posted 23/04/2004, 12:59
Dim conObj, BASE
Set conObj = Server.CreateObject("ADODB.Connection")
conObj.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DBMAX/DBMAX.mdb") & ";"
BASE = "SELECT BASE.BASE, CADASTRO.BASE FROM CADASTRO INNER JOIN BASE ON CADASTRO.BASE = BASE.BASE"
Edição feita por: pchardnet, 23/04/2004, 13:01.
Posted 23/04/2004, 13:28
set rs = Server.CreateObject("ADODb.Recordset") BASE = "SELECT BASE.BASE, CADASTRO.BASE FROM CADASTRO INNER JOIN BASE ON CADASTRO.BASE = BASE.BASE" Set rs = ObjConn.Execute(BASE)
Posted 23/04/2004, 15:53
Posted 23/04/2004, 16:37
Posted 26/04/2004, 09:48
DE QUALQUER FORMA VALEU AE, MANO, MAIS PO VC NÃO PODE DESISTIR DE UMA DUVIDA ASSIM, SE NÃO NUNCA VAI CONSEGUIR FAZER, DESCULPE NÃO TER RESPONDIDO ANTES, ESTAVA COM PROBLEMAS, MAIS AE JÁ Q TROCOU SEU METÓDO, SE TIVER DUVIDAS PODE POSTAR AQUICom certeza não fiz o correto, mas eliminei meu relacionamento e estou pegando os dados do próprio select.
Ficará ruim, pois sempre que entrar uma outra base terei que adicionar um campo no select.
Mas de qualquer forma obrigado a todos que me auxiliaram, de um modo especial o wozniak, valeu mesmo kra!
Fui's
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)