kuroi

falta um apostrofo no campo do IP. e os campos de data e de hora tb devem estar entre apostrofos, assim: INSERT INTO webcam ( ip, data, hora, idioma ) VALUES ('100.100.100.5', '20/01/2006', '11:43:18', 'portugues') o estranho é q no seu codigo o apostrofo do IP aparece: strSQL = "INSERT INTO webcam ( ip, data, hora, idioma ) VALUES ('" & Request.ServerVariables("REMOTE_ADDR") & "', " & date() & ", " & time() & ", 'portugues')" Set rs = adoCon.Execute(strSQL) ou você copiou alguns dos codigos errado?

???? pra eu?

talvez porque na hora de fechar o form do servido você deva passar um comando pra excerrar a execucao do programa nos clientes.

ae recebeu os arquivos de exemplo q te mandei ontem?

clipper é loco.

então ponha: sql = "select * from clientes where Empresa like '%" & busca & "%' and del=True" em vez de sim/não use, no select, True/False.

qual o erro?

o certo é: sql = "select * from clientes where Empresa like '" & busca & "%' and del=sim" acho ainda q na verdade seria: sql = "select * from clientes where Empresa like '" & busca & "%' and del='sim'"

a placa de som q c usa é a q veio com a placa mae (on board) ou você usa uma outra placa? se estiver usando uma placa offboard talvez tenha q tira-la e por de novo pro windows reconhecer. se estiver usando onboard, não sei, mas talvez tenha queimado apenas sua placa de som. já tentou formatar o pc? já postou na secao de hardware? talvez la possam te ajudar.

Dim mControle As Control For Each mControle In Me.Controls If TypeOf mControle Is TextBox Then mControle.Text = "" ElseIf TypeOf mControle Is CheckBox Then mControle.Value = 0 ElseIf TypeOf mControle Is DataGrid Then Set mControle.DataSource = Nothing End If Next essa é a logica, ve quais os controles q c quer limpar e adapte.

veja essa linha: vproprietario=trim(request.form("Prorietario")) esse request.form("Prorietario") esta trazendo um valor em branco. normalmente isso não é problema, mas talvez, no banco você tenha posto pra na deixar entrar valor em branco. tipo, no access, se você puser Requerido = Sim. se você realmente não quiser deixar cadastrar em branco, você deve validar antes do insert. senao, verifique o banco.

troque as linhas: vvencimento=isdate(request.form("vencimento")) vvalor=isnumeric(request.form("Valor")) por vvencimento=request.form("vencimento") vvalor=request.form("Valor")

faz o seguinte. na linha em q esta set recset = con.execute(insere) troque por response.write insere mas so pra testar, depois pode tirar. copie o codigo q aparece e tente executar como consulta no access (ou no banco q você esta utilizando) pra ver se ele aponta mais especificamente qual o erro.

algum nome de campo (empresa,Endereco,Bairro,Cidade,Telefone, TelFax, Proprietario, Plano, Vencimento, EmDia, Categoria, Valor, Site) esta errado ou não existe no banco.

sim.

você tem q refazer o calculo: <% fdata = DateDiff("yyyy", rsNiver("dob"), now) %> a cada movenext. assim ele calcula pra cada pessoa q ele passar...

sinto muito, cara mas eu não manjo nada de nada mesmo de VBA ou de Visual Basic com Excel.

não sei dizer não. não sei qual a utilidade do call, já q da pra chamar a sub sem ele.

no dicionario estava: acho q os q mais se enquadram são: estabelecer, definir, determinar, designar. já q você usar o set pra definir os valores q serao passado pra cada campo.

você deve selecionar os registros q atendam a uma condicao na hora de atualizar. exemplo: sql= "Update clientes set empresa='" & vnome &"' Where Codigo = 1" ou sql= "Update clientes set empresa='" & vnome &"' Where Codigo = " & vcod

veja se isso pode ser util: http://www.macoratti.net/excel_vb.htm http://www.macoratti.net/vba_use.htm

Dim mControle As Control For Each mControle In Me.Controls If TypeOf mControle Is TextBox Then mControle.Text = "" End If Next

mostra o codigo da sub AbreConexao.

veja essa linha do seu codigo: <td ><a href="Altera.asp?cod=<%=rs("Codigo")%>Alterartd</a></td> veja q voce pos cod=<%=rs("Codigo")%>. ou seja, você esta passando o valor rs("Codigo") para o parametro "cod" ao abrir o Altera.asp. dai q vem o request.querystring("cod"). seria assim, como você tinha feito antes: vcod=request.querystring("Codigo") se fosse assim: <td ><a href="Altera.asp?Codigo=<%=rs("Codigo")%>Alterartd</a></td> quando ao novo erro. em vez de: set con.execute(sql) tente: con.execute(sql)

o certo não seria: vcod=request.querystring("cod")