mestre fyoda
-
Total de itens
1.908 -
Registro em
-
Última visita
Tudo que mestre fyoda postou
-
perfeito mas eu tenho uma outra duvida no xml <?xml version="1.0"?> <account pass="11111" premDays="0" premEnd="0"> <characters> <character name="God" /> <character name="Naruto" /> </characters> </account> Supondo que eu queira acrecentar um <character name="Saske" /> abaixo do codigo <character name="Naruto" /> Como eu faço ?
-
mas como se faz no modo normal ?
-
Como eu faço para criar e salvar com extensao .xml ?
-
http://img182.imageshack.us/my.php?image=imagempu7.png Uma parte não esta sendo completada com a imagem, alguém saberia qual éo problema ? <html> <head> <style type="text/css"> .menu {list-style:none; padding:10px 0 40px 25px; margin:0; width:25px; background:url(imagens/tab_back.gif); border-top:1px solid #593; border-bottom:1px solid #593;} .menu li {display:block; width:25px; margin-bottom:-29px;} .menu li a {text-decoration:none; color:#fff; font-size:11px; line-height:10px;} .menu li a em {display:block; width:25px; height:29px;background:url(imagens/vertical.gif) left top; font-style:normal;} .menu li a b {display:block; width:15px; padding:0 3px 29px 7px; text-align:center; text-decoration:none; background:url(imagens/vertical.gif) left bottom; color:#fff;} .menu li a:hover {border:0; position:relative; z-index:100; cursor:pointer;} .menu li a:hover em {background-position: center top;} .menu li a:hover b {background-position: center bottom; color:#660;} .menu li.selected, .menu li a:hover {border:0; position:relative; z-index:200; cursor:default;} .menu li.selected em, .menu li a:hover em {background-position: right top;} .menu li.selected b,.menu li a:hover b {background-position: right bottom; color:#242;} </style> </head> <body> <ul class="menu"> <li><a href="#"><em></em><b>H O M E</b></a></li> <li><a href="#"><em></em><b>P R O D U C T S</b></a></li> <li><a href="#" class="selected"><em></em><b>C O N T A C T</b></a></li> <li><a href="#"><em></em><b>S E A R C H</b></a></li> <li><a href="#"><em></em><b>L I N K S</b></a></li> </ul> </body> </html>
-
aqui não foi kakaroto, eu copiei o codigo todo e testei, eu só retirei a linha que apointa pro css/default.css porque eu não tenho . Testei aqui e cliquei em qualquer um dos links e não deu nada , detalhe eu dei ctrl + c e ctrl + v e não deu certo ! EDITADO ----------------------- Deu certo ! Vlw kakaroto !
-
kakaroto ainda não ta funcionando !
-
<style> .glossymenu{ position: relative; padding: 0 0 0 34px; margin: 0 auto 0 auto; background: url(imagem/menur_bg.gif) repeat-x; /*tab background image path*/ height: 46px; list-style: none; } .glossymenu li{ float:left; } .glossymenu li a{ float: left; display: block; color:#000; text-decoration: none; font-family: sans-serif; font-size: 13px; font-weight: bold; padding:0 0 0 16px; /*Padding to accomodate left tab image. Do not change*/ height: 46px; line-height: 46px; text-align: center; cursor: pointer; } .glossymenu li a b{ float: left; display: block; padding: 0 24px 0 8px; /*Padding of menu items*/ } .glossymenu li.current a, .glossymenu li a:hover{ color: #fff; background: url(imagem/menur_hover_left.gif) no-repeat; /*left tab image path*/ background-position: left; } .glossymenu li.current a b, .glossymenu li a:hover b{ color: #fff; background: url(imagem/menur_hover_right.gif) no-repeat right top; /*right tab image path*/ } </style> <div id="maincontainer"> <div id="topsection"><div class="innertube"> <ul class="glossymenu"> <li class="current"><a href="index.html"><b>Home</b></a></li> <li><a href="index.html" onclick="this.className='current'"><b>CSS</b></a></li> <li><a href="index.html" onclick="this.className='current'"><b>Forums</b></a></li> <li><a href="index.html" onclick="this.className='current'"><b>Webmaster Tools</b></a></li> <li><a href="index.html" onclick="this.className='current'"><b>JavaScript</b></a></li> <li><a href="index.html" onclick="this.className='current'"><b>Gallery</b></a></li> </ul> </div></div> Eu modifiquei o css, mas quando eu clico não faz nada. Kakaroto se você souber outro geito para fazer isso me ajude por favor
-
-
Como mudar a cor de fundo do menu quando clicar no link ?
-
Como eu faço para mecher com store procedure com vb.net?
-
Como eu faço para salvar uma imagem no campo do banco de dados ? EU sei que no banco de dados eu uso blob !
-
Dim IDCliente As Long Dim dt As DataTable dt = Conexao.RetornaData(" Select id.currval as UltID from dual ") IDCliente = dt.Rows(0).Item("UltID") isto esta dando errado, o que poderia ser ? Public Function RetornaData(ByVal query As String) As DataTable 'essa funca aceita select Dim Conexao As New Oracle.DataAccess.Client.OracleConnection("Password=janio1;User ID=Rafael;Data Source=localhost") Dim da As Oracle.DataAccess.Client.OracleDataAdapter Dim dt As New DataTable Try Conexao.Open() Catch ex As Exception MsgBox("Erro ao conectar no banco", MsgBoxStyle.Critical, "Aviso") Return Nothing End Try Try da = New Oracle.DataAccess.Client.OracleDataAdapter(query, Conexao) da.Fill(dt) Catch ex As Exception 'MsgBox("Erro ao executar a sql", MsgBoxStyle.Critical, "Aviso") MessageBox.Show(ex.Message) Return Nothing Finally Conexao.Close() End Try Return dt End Function
-
Oracle, mas eu queria saber se não tem algum comando que pege a id inserida no cadastro , teria ?
-
O comando "SELECT @@IDENTITY" ele pega o ultimo registro ou pega o registro que foi inserido e depois pega o id desse item inserido ? ' Add template to database. Returns added template ID. Public Function AddTemplate(ByRef template As TTemplate) As Long Dim da As New OleDbDataAdapter("select * from enroll", connection) ' Create SQL command containing ? parameter for BLOB. da.InsertCommand = New OleDbCommand("INSERT INTO enroll (id,template) Values(id.nextval,?)", connection) da.InsertCommand.CommandType = CommandType.Text da.InsertCommand.Parameters.Add("@template", OleDbType.Binary, template.Size, "template") ' Open connection connection.Open() ' Fill DataSet. Dim enroll As DataSet = New DataSet da.Fill(enroll, "enroll") ' Add a new row. ' Create parameter for ? contained in the SQL statement. Dim newRow As DataRow = enroll.Tables("enroll").NewRow() newRow("template") = template.tpt enroll.Tables("enroll").Rows.Add(newRow) ' Update DataSet. da.Update(enroll, "enroll") 'Return IDCliente End Function eu queria pegar o valor da id inserida e colocar em outra tabela, como eu faço isso ?
-
não entendi muito bem o que você quer mas veja se é isso Select MAX(MV.TP_MOVIMENTO ) from MOVIMENTACAO_VENDAS MV where DT_MOVIMENTO = to_date('17/11' , 'DD/MM') and EMPRESA_ID = 1 E vai fazendo pra cada id ! veja se funciona ai !
-
Dim célula As DataGridViewCell Dim i As Integer = 0 For Each r As DataGridViewRow In dtg_cliente.Rows célula = r.Cells(i) If célula.Value = txt_procurar.Text Then r.Selected = True End If Next este codigo só funciona com numeros, pois eu estou usando no campo texto numeros no formato 999.999.999-99 ou no formato numerico ! Quando uso o formato 999.999.999-99 da esse erro : Conversion from string "302.672.168-90" to type 'Double' is not valid.
-
você teria algum exemplo referente a isso ?
-
agora ta funfando eu modifiquei e coloquei concatenado ai ficou mais facil de fazer na hora de passar a query
-
Dim it As ListViewItem = Campo_ListView.FindItemWithText(Campo_TextBox.Text, False, 0, True) Campo_ListView.SelectedItems.Clear() Campo_ListView.Items(it.Index).Selected = True Campo_ListView.Items(it.Index).EnsureVisible() No listview eu uso esse codigo acima e ele me retorna a linha exata, mas teria lago equivalente no datagridview ?
-
me retornou isso : "INSERT INTO Cliente ( cod_cli, cpf_tit, rg_tit, dat_ex, nom_tit, dat_nas, end_cli, cep_cli, bai_cli, est_cli, nom_re1, cpf_re1, rg_re1, dat_ex1, nom_re2, cpf_re2, rg_re2, dat_ex2 ) VALUES ( cod_cli.nextval ,'231.211.221-3', '23123123132132', '12/12/1984', '32113212123213231', '19/09/1982', '13223112312', '12321-332', '231231231', 'SP', '', '', '', '', '', '', '', '') " Ai eu jogo no Oracle query analizer sem as " no incio e fim , e insere certinho no bd mas no vb.net não ta inserindo !
-
como eu faço isso ?
-
eu chamo a função assim : Principal.vb PreencheListViewCliente(ListaCliente) Modulo.vb Public Sub PreencheListViewCliente(ByVal Campo As ListView) Dim ListarCliente As New DataTable ListarCliente = RetornaData(" Select * from Cliente ") Dim i As Integer For i = 0 To ListarCliente.Rows.Count - 1 Dim it As ListViewItem = Campo.Items.Add(ListarCliente.Rows(i).Item("cod_cli").ToString()) it.SubItems.Add(ListarCliente.Rows(i).Item("nom_tit").ToString()) it.SubItems.Add(ListarCliente.Rows(i).Item("cpf_tit").ToString()) it.SubItems.Add(ListarCliente.Rows(i).Item("nom_re1").ToString()) it.SubItems.Add(ListarCliente.Rows(i).Item("rg_re1").ToString()) it.SubItems.Add(ListarCliente.Rows(i).Item("nom_re2").ToString()) it.SubItems.Add(ListarCliente.Rows(i).Item("rg_re2").ToString()) Next End Sub
-
'FUNÇÕES DE CONEXÃO AO BANCO DE DADOS Public Function ExecutaOracle(ByVal query As String) As Boolean 'essa funcao aceita insert, delete, update Dim Conexao As New Oracle.DataAccess.Client.OracleConnection("Password=janio1;User ID=Rafael;Data Source=localhost") Dim cmd As New Oracle.DataAccess.Client.OracleCommand Try Conexao.Open() Catch ex As Exception MsgBox("Erro ao conectar no banco", MsgBoxStyle.Critical, "Aviso") Return False End Try Try cmd = Conexao.CreateCommand cmd.CommandText = query cmd.ExecuteNonQuery() cmd.Dispose() Conexao.Close() Return True Catch ex As Exception MsgBox("Erro ao executar a sql" + Chr(13) + ex.Message, MsgBoxStyle.Critical, "Aviso") cmd.Dispose() Conexao.Close() Return False End Try End Function Public Function RetornaData(ByVal query As String) As DataTable 'essa funca aceita select Dim Conexao As New Oracle.DataAccess.Client.OracleConnection("Password=janio1;User ID=Rafael;Data Source=localhost") Dim da As Oracle.DataAccess.Client.OracleDataAdapter Dim dt As New DataTable Try Conexao.Open() Catch ex As Exception MsgBox("Erro ao conectar no banco", MsgBoxStyle.Critical, "Aviso") Return Nothing End Try Try da = New Oracle.DataAccess.Client.OracleDataAdapter(query, Conexao) da.Fill(dt) Catch ex As Exception MsgBox("Erro ao executar a sql", MsgBoxStyle.Critical, "Aviso") Return Nothing Finally Conexao.Close() End Try Return dt End Function Chamo assim : If ExecutaOracle(" INSERT INTO Cliente (cod_cli, cpf_tit, cpf_re1, cpf_re2, rg_tit, rg_re1, rg_re2, dat_ex, dat_ex1, dat_ex2, nom_tit, nom_re1, nom_re2, dat_nas, end_cli, cep_cli, bai_cli, est_cli) VALUES ( cod_cli.nextval, '" & cpf_tit.Text & "', '" & cpf_re1.Text & "', '" & cpf_re2.Text & "', " & rg_tit.Text & " , " & rg_re1.Text & " , " & rg_re2.Text & ", '" & dat_ex.Text & "', '" & dat_ex1.Text & "', '" & dat_ex2.Text & "', '" & nom_tit.Text & "', '" & nom_re1.Text & "', '" & nom_re2.Text & "', '" & dat_nas.Text & "', '" & end_cli.Text & "', '" & cep_cli.Text & "', '" & bai_cli.Text & "', '" & est_cli.Text & "' ) ") = True Then End If Meu bd CREATE TABLE Cliente( cod_cli number NOT NULL, cpf_tit varchar(14) NOT NULL, cpf_re1 varchar(14) NULL, cpf_re2 varchar(14) NULL, rg_tit number NOT NULL, rg_re1 number NULL, rg_re2 number NULL, dat_ex date NOT NULL, dat_ex1 date NULL, dat_ex2 date NULL, nom_tit varchar(50) NOT NULL, nom_re1 varchar(50) NULL, nom_re2 varchar(50) NULL, dat_nas date NOT NULL, end_cli varchar(60) NOT NULL, cep_cli varchar(9) NOT NULL, bai_cli varchar(30) NOT NULL, est_cli varchar(2) NOT NULL, CONSTRAINT Cliente_pk Primary Key(cod_cli, cpf_tit, rg_tit) ); O que está de errado ?
-
vem do banco de dados ! Private Sub Principal_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated Messagebox.Show("Voltou") End Sub Ta fazendo um loop infinito :)
-
Existe algum codigo que atualiza a listview ? Outra pergunta, eu to na tela principal e abro a tela de cadastro e faço o que tenho que fazer e depois fecho a tela, tem algum evento que identifica que eu voltei para a tela principal ?