kuroi

o que exatamente faz um tópico ficar quente (com desenhenhinho laranja)??

se não tem na tabela, não grave nada. não entendo muito de delphi mas acho que seria assim: cds.FieldByName('DES_TIPDOC').Value := ''; em vez de cds.FieldByName('DES_TIPDOC').Value := (FdmList.Objects[FdmList.IndexOf('SGEM010')] as Tdm).cds.FieldByName('DES_TIPDOC').Value;

não se define tamanho de integer. ele ocupa por padrão, se não me engano, 4 bytes. se você esta querendo deixar ele digitar no maximo 10 digitos, so com programacao, se é que você esta usando alguma linguagem.

se o seu bd não suporta top, acho que deve dar pra usar limit, não sei direito mas acho que é assim a sintaxe: Select * from Tabela Limit 20 no caso, como você quer pegar os ultimos, você teria que ordenar pelo campo indice: Select * from Tabela Order By Campo DESC Limit 20 se limit não funcionar ou se você não tempo um campo indice (auto numeracao, por exemplo) fica dificil. você esta usando alguma linguagem? nesse caso você pode selecionar todos e mostrar so os ultimos vinte.

e de que tabelas vem esses campos?

ai ele volta esse codigo:

andreia, tem sim uns servicos de banda larga para casa, como o ipwave que o luciano falou. alem dele encontrei um otro pesquisando, solunet alguma coisa assim, parece que quanto mais gente tiver usando o servico na regiao mais barato sai, porque acho que tipo você compartilha o sinal. ahahahahaha cara o problema é que a tecnologia daqui é tão sofisticada que não é compativel com virtua velox não tem nem no estado aqui, nem sei pra que isso existe... você e a andreia me conveceram. também porque não tem mesmo otra solucao... dei uma olhada e vi que o speedy 1 mega tem plano de consumo ilimitado. o problema são os 110 conto, que tristeza... o esquema é eu espera um poco que de tempo em tempo os cara inventa umas promocao. so falta agora eu liga pra la e os caras falarem que não atendem no jacana valeu pela ajuda, td mundo

se vocês acham que minha assinatura está muito grande... não to nem ai, beleza??? e não enhce o saco!!! to zuando, se vocês acharem que está grande demais, da um toque que eu mudo.

você tem que criar uma stored procedure no sql. de uma pesquisada, ou de uma olhada nas stored procedures já existentes para ter uma nocao. qualquer coisa poste aí, mas de preferencia na sala de sql.

não achei module. clico em add new item e escolho qual opcao?

como faco? include igual eu fazia em asp classico? tipo se eu tenho uma funcao pra ser chamada em varias paginas??

a está, aquilo que eu tava fazendo era meio ridículo mesmo, não? tive um poco de dificuldade pra entender o esquema porque tipo no asp o codigo asp fica junto com o html e, quando a pagina carrega ele executa a parte asp, então eu não tava entendento como fazer o asp separado do html. pra falar a verdade, quando fiz o primeiro post, nem sabia que dava pra vê o codigo html do winform. mas agora entendi o esquema. tive um p*** trabalho pra fazer aquela funcao pra adiciona o estilo e ela é completamente inutil, que tristeza... valeu, está dando pra aprender bastante.

vixe, não tenho mesmo nem nocao de como mexer com essa linguagem. td que eu adiciono no body vai pra baixo do form. exemplo, o "<td width = 190><b>Digite o Seu Nome:</b><td>" & vbCrLf fica la embaixo e os textbox la em cima, o que fazer?? cara e foda aprende uma linguagem assim do nada sem te nocao de como os outros usam. tipo, esse esquema do objBody.Controls.Add(x), é assim mesmo que costumam fazer, pra cada linha que os caras querem por tem que criar uma variavel literal, isso não é nada pratico, como vocês costumam fazer??

e você também não precisa digitar os nome dos campos se você for inlcuir tdos e tiver na mesma ordem do select: Insert into tbcarrinho Select CodProd,NomeProd,txtPreco from tbproduto where IdProd=$reg so não sei se em mysql é diferente.

valeu, meu codigo ficou assim: Partial Class _Default Inherits System.Web.UI.Page Dim cnConec As New ADODB.Connection, rsPesquisa As New ADODB.Recordset, strSql As String Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim x As New Literal, txtNome As New TextBox, txtPath As New TextBox, cmdGravar As New Button Dim t As New Object cnConec.Provider = "Microsoft.Jet.OLEDB.4.0" cnConec.ConnectionString = Server.MapPath("Navi.mdb") cnConec.Open() strSql = "Select * from Ghost" rsPesquisa = cnConec.Execute(strSql) 'Estilos(txtNome) 'Estilos(txtPath) 'Estilos(cmdGravar) cmdGravar.Text = "Gravar" & vbCrLf & "Imagem" x.Text = "<a href = 'index.htm'>" & rsPesquisa.Fields("Nome").Value & "</a><br>" & vbCrLf x.Text = x.Text & "<a href = 'index.htm'>" & rsPesquisa.Fields("Nome").Value & "</a>" objBody.Controls.Add(x) x.Text = "<center>" & vbCrLf & _ "<table>" & vbCrLf & _ "<td width = 190><b>Digite o Seu Nome:</b><td>" & vbCrLf objBody.Controls.Add(x) frmImagens.Controls.Add(txtNome) x.Text = "<tr><td><b>Escolha sua Foto:</b><td>" & vbCrLf objBody.Controls.Add(x) frmImagens.Controls.Add(txtPath) x.Text = "<tr><td>" & vbCrLf & "<td align = 'center'>" objBody.Controls.Add(x) frmImagens.Controls.Add(cmdGravar) x.Text = "</table>" & vbCrLf & "</center>" objBody.Controls.Add(x) For Each t In frmImagens.Controls 'If t.GetType.Name = "TextBox" Or t.GetType.Name = "Button" Then Estilos(t) Estilos(t) Next End Sub Protected Sub Estilos(ByRef o As Object) If o.GetType.Name = "TextBox" Then o.Style.Add("size", "40") o.Style.Add("color", "#ffff33") o.Style.Add("background-color", "#003366") o.Style.Add("font-weight", "bold") o.Style.Add("font-family", "verdana") ElseIf o.GetType.Name = "Button" Then o.Style.Add("color", "black") o.Style.Add("background-color", "white") o.Style.Add("font-size", "12px") o.Style.Add("font-weight", "bold") o.Style.Add("width", "100") o.Style.Add("heigth", "45") o.Style.Add("font-family", "verdana") End If End Sub End Class[/code] sei la o que eu fiz que de uma hora pra otra, todo o texto html que eu insiro não aparece. tipo os objetos do formulario (ex: frmImagens.Controls.Add(cmdGravar)) aparecem certinho, mas td que eu adiciono com objBody.Controls.Add(x) não aparece mais, algum tem uma ideia do que pode ser??

acho que assim: Insert into tbcarrinho(-digite aqui os nomes dos campos-) (Select CodProd,NomeProd,txtPreco from tbproduto where IdProd=$reg)

data e um campo data/hora? tem que ser.

não sei se funciona esse negocio de escolher include, mas pra ver qual o mês você faz assim: If Month(Date) = 1 Then <!-- #include file = "jan2006.asp" --> ElseIf Month(Date) = 2 Then <!-- #include file = "fev2006.asp" --> e assim continua até ElseIf Month(Date) = 12 Then <!-- #include file = "dez2006.asp" --> End If[/code]

qual o seu banco de dados? acho que essa mensagem "Nehum valor foi fornecido para um ou mais parâmetros necessários." é do access não? se for access é só abrir uma nova consulta, mudar para o modo sql (o botaozinho ao lado do botao de gravar), colar o insert e excutar (clique na exclamacao). se for sql, é so executar no query analizer. mas você não precisa fazer isso necessariamente. como eu disse, você conferiu os nomes dos campos se estao digitados certo e se todos os campos existem mesmo na tabela?

o que você quer dizer com ordem de cadastro? você entende que desc quer dizer que a data mais nova vem primeiro e a mais antiga por ultimo no recordset?

de um response.write pra ver o que esta vindo, porque deve estar vindo letra junto. poste o codigo da linha onde você usa o CInt. qualquer coisa, tente usar Val em vez de CInt.

acho que TimeValue(Now) ou simplesmente Time

pra mim foi o contrario, consegui instalar no XP mas não no 2003. e no xp funcionou certinho, consegui usar o query analizer sem problema.

O nome de algum campo aqui: INSERT INTO Livros (CodLivro, Titulo, Autor, CodEditora, " & _ "CodCategoria, AcompCD, AcompDisquete, Idioma, Observacoes) " & _ "VALUES (" & vCod & ",'" & _ txtTitulo.Text & "','" & _ txtAutor.Text & "'," & _ vCodEditora & "," & _ vCodCategoria & "," & _ vAcompCD & "," & _ vAcompDisquete & "," & _ vIdioma & ",'" & _ txtObservacoes.Text & "');" [/code] ou aqui:[code] .CommandText = "UPDATE Livros SET Titulo = '" & txtTitulo.Text & "', Autor = '" & txtAutor.Text & "', CodEditora = " & vCodEditora & _ ", CodCategoria = " & vCodCategoria & ", AcompCD = " & vAcompCD & ", AcompDisquete = " & vAcompDisquete & ", Idioma = " & vIdioma & ", Observacoes = '" & txtObservacoes.Text & "' WHERE CodLivro = " & vCod & ";" não existe na tabela. veja se você digitou todos os nome direito. se não conseguir descobrir, tente executar o insert/uptade direto no banco que ele vai apontar qual é o campo.

você tem um campo auto numeracao? se tiver é so pegar o maior numero.