kuroi

a conexao não deve estar aberta? assim: <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' HTTP="false" ' Catalog="" ' Schema="" MM_connDUnews_STRING.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database\DUnews.mdb") %>

você tem certeza q os tres labels tem todos o mesmo nome e estao como controle array? entenda bem. pra q esse codigo funcione: function ZERA_LABEL(String_label as string) for indice =0 to 3 String_label(indice)=empty next indice end function você deve ter 4 labels chamadas string_label.

depende do bd q você usa isso pode ser diferente. outra coisa, data em branco você quer dizer nula ou vazia? se for vazia, em access faco assim: sql = "delete from cliente_bancoPF where databaixa = #00:00:00#" se for nula assim: sql = "delete from cliente_bancoPF where IsNull(databaixa)"

cara, asp usa linguagem vbscript, quase a mesma coisa q o visual basic. apenas adapte a sintaxe do visual basic para funcionar em asp. você so vai ter q trocar a declaracao das funcoes q não são nem public nem private e variaveis q são sempre variant, portanto não tem "as". fora isso você talvez tenha q mudar algumas funcoes q podem ser diferentes em asp. o negocio é ir testando pra ver se funciona.

tenho as duas em Visual Basic. a sintaxe é quase a mesma, é so adaptar: Public Function Valida_CPF(ByVal strCPF As String) As Boolean Dim intConta As Integer, intSoma As Integer, intResto As Integer, intContador As Integer Valida_CPF = False: strCPF = Trim(strCPF) If Len(strCPF) <> 11 Then Exit Function End If For intContador = 11 To 12 intSoma = 0 For intConta = 1 To intContador - 2 intSoma = intSoma + Val(Mid(strCPF, intConta, 1)) * (intContador - intConta) Next intResto = 11 - (intSoma - (Int(intSoma / 11) * 11)) If intResto = 10 Or intResto = 11 Then intResto = 0 If intResto <> Val(Mid(strCPF, intContador - 1, 1)) Then Exit Function End If Next Valida_CPF = True End Function Public Function Valida_CNPJ(ByVal strCNPJ As String) As Boolean Dim dblA, dblJ, dblDigito1, dblDigito2 As Double Dim intCont As Integer Valida_CNPJ = False If Len(strCNPJ) <> 14 Then Valida_CNPJ = False Exit Function End If dblA = 0 intCont = 0 dblDigito1 = 0 dblDigito2 = 0 dblJ = 5 For intCont = 1 To 12 Step 1 dblA = dblA + (Val(Mid(strCNPJ, intCont, 1)) * dblJ) dblJ = Conversion.CDbl(IIf(dblJ > 2, dblJ - 1, 9)) Next intCont dblA = dblA Mod 11 dblDigito1 = Conversion.CDbl(IIf(dblA > 1, 11 - dblA, 0)) dblA = 0 intCont = 0 dblJ = 6 For intCont = 1 To 13 Step 1 dblA = dblA + (Val(Mid(strCNPJ, intCont, 1)) * dblJ) dblJ = Conversion.CDbl(IIf(dblJ > 2, dblJ - 1, 9)) Next intCont dblA = dblA Mod 11 dblDigito2 = Conversion.CDbl(IIf(dblA > 1, 11 - dblA, 0)) If (dblDigito1 = Val(Mid(strCNPJ, 13, 1)) And dblDigito2 = Val(Mid(strCNPJ, 14, 1))) Then Valida_CNPJ = True Else Valida_CNPJ = False End If End Function

você não tem q fazer inner join?

a ta... tentei com 0 tb e funcionou... valeu pela ajuda...

o estranho é q qualquer valor numerico q eu passar pra esse parametro do hWnd da funcao, ela funciona normal...

faca um for e compare a idade do indice atual com a idade do proximo indice. a maior idade você guarda numa variavel separada e compara essa variavel com a proxima idade. se a idade for maior, você troca o valor da variavel e poe essa idade nela ate chegar no final.

ve se é isso: Select T_Normas.Tipo, Tipo.Cod from T_Normas INNER JOIN Tipo ON T_Normas.Campo = Tipo.Campo no lugar de "Campo" escreva o nome do campo que deve ter um valor em comum entre as duas tabelas.

aqui tem varios exemplos: https://www.scriptbrasil.com.br/?class=2&in...=689&geral=6040 mas o esquema é so por uma tabela no banco com um campo contador. ponha valor 0 no banco e quando abrir a pagina, atualize a tabela somando o valor do campo + 1.

testei agora e vi q, realmente, a conexao so funciona com ADO. pra fazer do segundo modo, você deve adicionar a referencia Microsoft ActiveX Data Controls 2.0. se por algum motivo você não quiser trabalhar com ADO, então o esquema é tentar do jeito q c tava fazendo antes: Dim db As Database Dim rs As Recordset Set db = DBEngine.Workspaces(0).OpenDatabase("S:\Controle\Data\database.mdb") Set rs = db.OpenRecordset("select * from movimentacao where codigo = 5") Set DataGrid1.DataSource = rs mas nesse caso já não sei direito como te ajudar... tente fazer: Set DataGrid1.DataSource = db.OpenRecordset("select * from movimentacao where codigo = 5")

no primeiro caso não sei. tente por, no inicio, depois de criar as variaveis: Set rs = New RecordSet no segundo, faca assim: Dim cn As Connection Dim rs As Recordset Dim linhas As Integer Dim sql As String cn.Provider = "Microsoft.Jet.OLEDB.4.0" cn.ConnectionString = "S:\Controle\Data\database.mdb" cn.CursorLocation = adUseClient cn.Open sql = "Select * from Tabela Where Codigo = 5" Set rs = cn.Execute(sql) Set DataGrid1.DataSource = rs mas não sei não se vai funcionar, porque costumo trabalhar sempre com ADO.

qual erro? criou todas as variaveis direitinho e fez a conexao com o banco?

valeu graymalkin, achei esse tópico: http://scriptbrasil.com.br/forum/index.php...hl=shellexecute e funcionou certinho. mas me explica uma coisa q eu sempre quis entender. o q é essa propriedade hwnd do formulario? e porque preciso passar ela pra essa funcao?

deve por num recordset e depois no grid. assim: sql = "Select * from Tabela Where Codigo = 5" Set rs = cn.Execute(sql) Set DataGrid1.DataSource = rs

o certo seria o contrario: If IsDate(Vencimento) = True Then data = Conversion.CDate(Vencimento) Else Var = NADA End If pois se Vencimento não é uma data valida, você não conseguira converte-la.

TypeName (variavel)

pode usar pra quantas tabelas e consultas quiser, desde que, é logico, uma de cada vez. não vai dar nenhum conflito, pois os recordsets são carregados separadamente em cada computador como se fossem dois distintos.

Select * from Tabela Where Codigo = 5 não é isso?

talvez você tenha q adicionar alguma referencia antes.

ou ainda assim: sql = "Select * from Tabela Where Idade = 20" set rs = cn.execute (sql) quantidade = rs.RecordCount

então faca assim: sql = "Select Idade, Count(Idade) as Conta from Tabela Where Idade = 20 Group By Idade" set rs = cn.execute (sql) quantidade = rs!Conta no rs!Conta você vai ter o 2.

o q foi q você tentou fazer? veja se você entende: tenho a tabela com os campos nome e idade, assim: se você olhar, vai ver q 19 aparece 3 vezes e 20 aparece 2. se você fizer o select assim: Select Idade, Count(Idade) as Conta from Tabela Group By Idade você tera uma consulta assim: entendeu? se puser num recordset, você vai ter os dois campos idade e conta com esses valores.

bom q funcionou. mas o certo seria datevalue e não datavalue.