kuroi

não é nd disso... quero dizer, é isso mas tem uns erros. primeiro q o certo é ADODB e não ADOBD. segundo q você declarou o objeto com nome de DB e depois tentou inicializar com o nome de BD. tercero q o Public é usado só na hora de declarar e não pra inicializar. se você quer criar e inicializar de uma vez, seria assim: Public DB As New ADODB.Connection essa eu não entendi direito. parametro onde?? pra usar o objeto Command, você tem q passar a query pra propriedade CommandText, a conexao pra propriedade ActiveConnection, ai você simplesmente executa assim: Set RS = Com.Execute bom ve se era essa mesmo a sua duvida, qualquer coisa posta ae

tenta colocar o set Ac = nothing somente depois do Quit.

nota q você ta pondo duas connection strings numa só. acho q o q você quer seria isso: BD.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BDPaula.mdb;User Id=admin;Password=123;"

bom, primero de tudo, o Db Grid e o Ms Flex Grid só funcionam com DAO (tecnologia antiga). pra trabalhar com o ADO (recente), os grids correspondentes são o DataGrid e o Ms Hierarchical Flex Grid. mas ai vai de preferencia sua. o Flex Grid tem maior possibilidade de interacao. tipo, uso ele quando quero escrever alguma coisa direto no grid, sem q esteja no banco. exemplo, o cara inclui varias linhas no grid, por exempo, itens do pedido, mas só elas só serao salvas no banco depois q ele fechar o pedido. pela propriedade TextMatrix, eu posso inserir na mao o texto q eu quiser em qualquer linha, qualquer coluna. já com o DataGrid (DbGrid), esse tipo de coisa daria bem mais trabalho.

o erro q eu vi é q faltou uma virgula no final da primera chave: CONSTRAINT PD_PEDIDO_NUM_PEDIDO_FK FOREIGN KEY (NUM_PEDIDO) REFERENCES PD_PEDIDO (NUM_DO_PEDIDO),[/code] fora isso, ta dando algum problema pra você??

bom, acho q você já sabe como fazer pra verificar se ele ta inserindo menor de 18 não?? a sua duvida é como cancelar a insercao?? se for, é so adicionar o comando RollBack. ai você pode dar um raiserror, com uma mensagem de erro, tipo: Raiserror ('O cliente deve ser maior de 18 anos.', 16, 1)

beleza, cara. o importante não é se funcionou o não, mas sim se você ta aprendendo alguma coisa. falou

você pode fazer uma funcao pra ler todos os campos do formulario e checar quais estao em branco. a funcao seria tipo assim: Public Function ValidaForm(f As Form) As Boolean Dim c As Control ValidaForm = False For Each c In f.Controls If TypeOf c Is TextBox Then If c.Text = "" Then MsgBox "Preencha todos os campos" c.SetFocus Exit Function End If ElseIf TypeOf c Is MaskEdBox Then c.PromptInclude = False If c.Text = "" Then MsgBox "Preencha todos os campos" c.PromptInclude = True c.SetFocus Exit Function End If c.PromptInclude = True End If Next ValidaForm = True End Function[/code] depois é so adaptar pra todos os tipos de controle q você possa usar, tipo combobox, e etc. ai pra chamar você poderia fazer assim: [code]If Not ValidaForm Me Then Exit Sub so q essa funcao tem dois problemas. o primeiro é q ele vai validar todos os campos, mesmo os q não forem obrigatorios. o segundo é q ele não vai dar uma mensagem personalizada pra cada campo. exemplo, ele não vai falar "Preencha o campo Código.", so vai falar "Preencha todos os campos". pra resolver esses dois problemas, usamos a propriedade Tag dos TextBox, MaskedBox e etc. tipo, os campos q forem obrigatorios, você preenche, por exemplo, com "obg". ai você adapta na funcao checando a Tag do controle. se não estiver preenchida com obg, você nem checa se ta em branco o não.

nossa, nunca vi isso antes. sei la, então tenta fazer sem iif, faca com if na mao mesmo. tipo assim: cmbTipo = Trim(Request.Form("cmbTipo")) sql_tipo = "" If cmbTipo <> "" Then sql_tipo = "(" array_tipo = Split(cmbTipo, ",") For i = 0 To UBound(array_tipo) If i <> UBound(array_tipo) Then sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "' OR " Else sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "'" End If Next sql_tipo = sql_tipo & ")" End If[/code]

então, mas acho q esse endereco ../css/Class.css talvez seja invalido, não??

você pode por na Session. tipo Session("nome") = Request.Form("nome"). mas tb poderia, depois do post do primeiro formulario, gravar num input hidden, e ir pegando por post de formulario a formulario ate chegar no final.

ta, eu quis dizer q não era pra declarar Dim array_tipo() e sim Dim array_tipo. você ta fazendo certo. o Response.Write tb ta voltando certo, o erro acho q é porque você ta tentando declarar uma variavel chamada IIf. e IIf é uma funcao e não variavel. apaga o IIf da linha de declaracoes e veja se funciona.

estranho. mas você tem certeza q a linha 25 é essa mesmo?? porque não sei o q poderia ta errado nela. testei aqui o codigo igualzinho no Visual Basic e funcionou. posta o codigo desda primeira linha, pra gente ver. uma coisa, a variavel array_tipo esta declarada (com o Dim)?? se estiver, você esta declarando como array (com parenteses)?? se tiver, tire-os. outra coisa q você pode fazer, só de teste, é um Response.Write do Request.Form pra ver o q ele retorna. tipo, tenta assim: cmbTipo = Trim(Request.Form("cmbTipo")) sql_tipo = "" If cmbTipo <> "" Then Response.Write(cmbTipo) Response.End() sql_tipo = "(" array_tipo = Split(cmbTipo, ",") For i = 0 To UBound(array_tipo) sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "'" & IIf(i <> UBound(array_tipo), " OR ", "") Next sql_tipo = sql_tipo & ")" End If[/code] ai ele deve mostrar o q esta vindo do formulario. ai posta pra gente ver o q ele escreveu.

ta, eu troquei os nomes. onde tava cmbTipo, no meu codigo eu postei cmdTipo. troque tudo pro jeito certo (cmbTipo) e veja se funciona.

o sql_tipo deve tar ficando em branco, acho q você não ta passando o Request pro cmbTipo. ai você ta dando split numa variavel em branco. faca assim: cmdTipo = Trim(Request.Form("cmdTipo")) sql_tipo = "" If cmdTipo <> "" Then sql_tipo = "(" array_tipo = Split(cmbTipo, ",") For i = 0 To UBound(array_tipo) sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "'" & IIf(i <> UBound(array_tipo), " OR ", "") Next sql_tipo = sql_tipo & ")" End If[/code]

mas você não ta passando usuario e senha na conexao. olha aqui nesse site ele mostra como faz a connection string para access com senha http://www.connectionstrings.com/?carrier=access

o sql_tipo faz parte do select, não é pra ficar entre '. faca assim: ComandoSQL = "select * from a_pagar where " & sql_tipo & " and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "# ORDER BY DATA ASC"

a esse ADOR é da biblioteca Microsoft ActiveX Data Objects RecordSet. nunca usei essa biblioteca, mas se funcionar ai pode usar sem problemas. query é qualquer comando SQL, tipo Select, Insert, Update, etc. pode usar o execute sem abrir sim, mas você deve iniciar o objeto antes. tipo assim: Set rs = New ADODB.RecordSet o objeto Command serve pra executar um comando no RecordSet. mas ele não é necessario, você pode usar sem. ele facilita quando você vai usar Procedures com parametros, etc. nos comandos mais simples normalmente não utilizamos. - pra estabelecer a conexao só uma vez, é só declarar o objeto como Public ou Global no Module e usar o codigo do seu outro post, onde você passa a Connection String e usa o metodo Open. - cara, normalmente, só uso o Execute cada vez q for executar qualquer coisa. e em querys q não retornam nada (como Insert e Update) nem precisa pro RecordSet, pode fazer simplesmente: BD.Execute "Insert Into Tabela(Campos) Values(Valores)" não chamo o metodo Open do RecordSet nenhuma vez no programa. - no module, a conexao esta declarada. mas note q ela não é uma variavel e sim um objeto, e os objetos precisam ser inicializados. pra isso serve o Set BD = New ADOBD.connection. apesar q você pode fazer direto no module: Global ou public BD as New ADODB.connection

posta o codigo da sua conexao.

na hora de abrir o bd, tenta adicionar a seguinte linha: .CursorLocation = adUseClient ai pra abrir o rs, tenta assim: Tabela.Open Qd, bd, adOpenDynamic, adLockBatchOptimistic se não funcionar, tenta assim: Tabela.Open Qd, bd, adOpenKeyset, adLockOptimistic, adCmdText

tenta assim então: maskedid.Text= Format(rs2!valor, "##,##")

hum... não conheco o Crystal Management Console, mas vo mover pra Crystal Reports, vamos ver se la algume sabe

isso o q??

esse erro acho q da porque cmbTipo não é array. agora pra montar o select seria tipo assim: sql_tipo = "(" array_tipo = Split(cmbTipo, ",") For i = 0 To UBound(array_tipo) sql_tipo = sql_tipo & "tipo = '" & Trim(array_tipo(i)) & "'" & IIf(i <> UBound(array_tipo), " OR ", "") Next sql_tipo = sql_tipo & ")"[/code] [code]ComandoSQL = "select * from a_pagar where " & sql_tipo & " and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "# ORDER BY DATA ASC" strsql2 = "select SUM(valor) as tvalor from a_pagar WHERE " & sql_tipo & " and DATA BETWEEN #" & (datai) & "# and #" & (dataf) & "#"

na verdade o esquema era pra fazer mais o menos assim: If Trim(Request.QueryString("pagina")) = "" Then pagina = 1 Else pagina = Request.QueryString("pagina") End If[/code] ai no For você pegaria quando o contador passasse de 6 para cada numero de paginas. tipo assim: [code]For each arq in pasta.Files If contador >= ((pagina - 1) * 6) Then if (contador mod 3) = 0 then response.write "</tr>" response.write "<tr>" end if %> <td width="100" bgcolor="#FFC6E2"> <div align="center"> <font size="-2"> <% nomeArquivo = arq.name %> <a name="<%=contador%>" href="imagens/<%=nomeArquivo%>" target="fotos" onclick="contador.nome.value='<%=nomeArquivo%>'; salvaCookie();"> <img src="imagens/<%=nomeArquivo%>" width="100" height="75" border="0"> </a> </font> </div> </td> <% contador = contador + 1 if contador=6 then exit for end if End If next veja ai se funciona.