GGerminiani
-
Content count
89 -
Joined
-
Last visited
Everything posted by GGerminiani
-
Olá amigo. Primeiramente, certifique-se que está salvando corretamente no access, por exemplo: cmd.Parameters.AddWithValue("@valor", Convert.ToDecimal(txtValor.Text.Replace("R$", String.Empty).Trim)) Para trazer o registro do access, tente: txtValor.Text = FormatCurrency(registro("VALOR")) No access, set o campo para currency (moeda). []s
-
Olá amigo. Veja se ajuda: Dim fluxoTexto As IO.StreamReader Dim linhaTexto As String fluxoTexto = New IO.StreamReader(txtarquivo.Text) linhaTexto = fluxoTexto.ReadLine While Not fluxoTexto.EndOfStream Dim colunas As String() = linhaTexto.Split(New Char() {" "c}) 'separa no array a cada espaço da linha 'Aqui, colunas ficaria num array, da seguinte forma: 'colunas(0) - Código:1 'colunas(1) - Descição:teste 'colunas(2) - Ação:Inserir 'Caso necessário, você deverá novamente fazer um split tendo como delimitador ":", assim ficaria outro array com 2 posicionamentos, por exeplo: dim codigo as String() = colunas(0).split(":") 'codigo ficaria: 'codigo(0) - Ccódigo 'codigo(1) - 1 linhaTexto = fluxoTexto.ReadLine End While fluxoTexto.Close() Separando as strings, então você adiciona a linha manualmente. No site do marcoratti, possui um exemplo mais detalhado: http://www.macoratti.net/vbn_txt.htm []s
-
Olá amigo. Primeiramente, é necessário saber qual o banco de dados utilizado... para cada database, temos uma connectionstring. https://www.connectionstrings.com/ Fazendo uma string para um MySQL local (por exemplo), ficaria: Imports MySql.Data.MySqlClient Dim conexao As String = String.Format("server={0};user id={1};database={2}", host, "root", "cadastro") 'configura a connection string Dim conexaoMySql = New MySqlConnection(conexao) 'cria o objeto de conexão Dim query as string = "Insert into usuario (Id, IdUser, nomeUsario) values (@id, @iduser, @nome)" 'a query de execução Dim comandoMySQl As New MySqlCommand(query, conexaoMySql) 'instancia o objeto de comando comandoMySQl.Parameters.AddWithValue("@id", 1) 'seta os parâmetros do insert comandoMySQl.Parameters.AddWithValue("@iduser", 1) comandoMySQl.Parameters.AddWithValue("@nome", "nome") conexaoMySql.Open() 'abre a conexão comandoMySQl.ExecuteNonQuery() 'executa o comando conexaoMySql.Close() 'fecha a conexão no site do marcoratti ele exemplifica mais detalhadamente: http://www.macoratti.net/13/04/vbn_stor1.htm []s
-
Boa tarde. Nas minhas páginas, quero manter uma página php padrão, para chamar o menu do site, porém, alguns pequenos detalhes estão dando erro. Tenho a página menu.php: <!DOCTYPE html> <html lang="pt-BR"> <head> <meta http-equiv="X-UA-Compatible" content="IE=edge"> <meta name="viewport" content="width=device-width, user-scalable=1"> <meta charset="utf-8"> <meta name="description" content=""> <meta name="keywords" content=""> <meta name="author" content=""> <link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/bootstrap/4.3.1/css/bootstrap.min.css" integrity="sha384-ggOyR0iXCbMQv3Xipma34MD+dH/1fQ784/j6cY/iJTQUOhcWr7x9JvoRxT2MZw1T" crossorigin="anonymous"> <style> body{background: black} div.capa { position: relative; left: 50px; } div.logo { position: absolute; top: 20px; } div.login { position: absolute; left: 10px; float: right; color: yellow; font-size: 12px; } </style> </head> <body> <div class="fixed-top"> <div class="capa"> <img src="https://img.freepik.com/fotos-gratis/widescreen-3d-rendem-de-uma-paisagem-surreal-com-a-lua-a-noite_1048-5350.jpg?size=626&ext=jpg"> <div class="logo"> <a href="index.php"> <img src="https://image.flaticon.com/icons/png/128/87/87390.png"> </a> </div> </div> <nav class="navbar navbar-expand-lg navbar-light bg-danger"> <button class="navbar-toggler" type="button" data-toggle="collapse" data-target="#navbarTogglerDemo01" aria-controls="navbarTogglerDemo01" aria-expanded="false" aria-label="Alterna navegação"> <span class="navbar-toggler-icon"></span> </button> <div class="collapse navbar-collapse" id="navbarTogglerDemo01"> <ul class="navbar-nav mr-auto mt-2 mt-lg-0"> <li class="nav-item active"> <a class="nav-link" href="./index.php">Home<span class="sr-only">(Página atual)</span></a> </li> <li class="nav-item"> <a class="nav-link" href="#home">Página 1</a> </li> <li class="nav-item dropdown"> <a class="nav-link dropdown-toggle" href="#" id="navbarDropdownMenuLink" role="button" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false"> DropDown </a> <div class="dropdown-menu" aria-labelledby="navbarDropdownMenuLink"> <a class="dropdown-item" href="#">Sub 1</a> <a class="dropdown-item" href="#">sub 2</a> </div> </li> </ul> </div> </nav> </div> <script src="../js/jquery-3.3.1.min.js"></script> <script src="../js/bootstrap.js"></script> </body> </html> Na página index.php, por exemplo, tenho o seguinte código: <!DOCTYPE html> <html lang="pt-BR"> <head> <meta http-equiv="X-UA-Compatible" content="IE=edge"> <meta name="viewport" content="width=device-width, user-scalable=1"> <meta charset="utf-8"> <meta name="description" content=""> <meta name="keywords" content=""> <meta name="author" content=""> <title>Page Title</title> <link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/bootstrap/4.3.1/css/bootstrap.min.css" integrity="sha384-ggOyR0iXCbMQv3Xipma34MD+dH/1fQ784/j6cY/iJTQUOhcWr7x9JvoRxT2MZw1T" crossorigin="anonymous"> <style> body{color:white} </style> </head> <body> <?php include_once("menu.php") ?> <p> Cain beetle hugo batman cobblepot shadow robin gearhead ra. Bruce, lynx drake oracle chimera hugo barrow. Oswald edward elongated lillian gordon cluemaster czonk bennett. Calendar scorn of deadshot aiko montoya wayne doom firefly, fox kobra? Wayne manor lex shrike hangman pit amanda. Zatanna todd wing cain killer al thorne wing luthor cluemaster nyssa blake spoiler? Ventriloquist spectre boomerang pit wing rose. Raatko atom selina grey kane. Aiko carmine czonk lucius! Zeus toymaker hush echo amanda drake fairchild. Scarecrow quinn freeze ghul, chimera arrow knight lillian tally hood solomon chill boomerang! </p> <p> Swamp jester lucius metallo zatanna of robin outsider prey. Echo scorn dent lucius echo snake ra grundy prey thorne helena. Collector fox mad dent arrow? Gotham hammer batcave basil atomic. A basil blue flash canary aiko. Kane pit jester kyle doom fairchild atkins nocturna damian spoiler hood. Gargoyle bullock barbara aiko arkham? Ventriloquist knight nyssa bullock freeze cypher catwoman gargoyle hatter tumbler lynx killer nyssa. Barbara ragdoll dick bennett. Fright harvey america abdullah fox diamond alcor falcone; killer penguin martha. Carmine charlatan joe atom? Kane wayne martha league batcave prey alfred riddler? Kyle rose, ivy shrike america. Riddler knight diamond green gargoyle birds zatanna grayson grey katana sinestro. Toymaker rumor lex calendar. Young chill atom rumor! Grayson, atomic fairchild atkins lantern phantom gordon boomerang. Amanda jester barrow creeper tim carmine harley, wayne red creeper batmobile birds? Abattoir wing cypher, blink jester harlequin alcor. Moth atom spoiler lazarus. </p> <p> Basil wayne atom blink atkins. Swamp ra ventriloquist luthor katana batgirl cain? Barrow nocturna ra lucius. Elongated harley harlequin atomic alcor. Ragman gordon cain abdullah. Nyssa mugsy rhino montoya bennett. Thomas dent arkham katana luthor america master outsider. Flash sinestro deadshot thorne zeus abattoir society knight. Ghul damian boomerang shadow creeper deadshot society owl firefly bat poison. </p> <p> Mister fox flash jester vicki scorn. Basil bullock supergirl gargoyle czonk deadshot lazarus rhino superman thomas league superman. Fox phantom carmine toymaker lantern shiva, bennett quinn zatanna? Rhino the arkham jim two! Ghul temblor lazarus raatko, kane nigma bat tim killer sinestro mask alcor thomas? Ali nocturna, grayson night outsider gearhead. Arkham deadshot, damian selina birds shiva. Zatanna grundy ra bane ra deadshot. Wayne fox hatter! </p> <p> Aquaman alfred toymaker cain bennett hammer master. Young alcor scorn rumor maxie anarky batmobile. Flash mad echo black sinestro gearhead mister cluemaster harley. A tumbler bennett barrow abbott al katana tumbler kobra shade lynx mask fox. Amanda zatanna elongated selina gordon oswald charlatan hatter shrike grey harvey shade. Falcone ventriloquist bennett spoiler robin clock green rose carmine. Kobra katana pennyworth atomic of checkmate caird justice. Bruce batman red selina society robin vale rupert penguin charlatan smoke charlatan! League al shrike basil riddler? Owl luthor metallo face blink dent deadshot. Carmine canary, toymaker pennyworth barbara tim. </p> <p> Charlatan doom fright face league harvey oswald, night manor rhino creeper czonk? Oswald wing hugo black jester grey, toymaker gordon of phantom. Clock jim outsider of maxie. Atomic spoiler two hood edward zucco wayne arkham jason hood basil dick collector. Thomas grundy thomas abattoir! Cluemaster batmobile harlequin red robin alfred arrow lillian young two, doom knight ventriloquist. Lantern martha cobblepot wayne oswald gearhead rupert outsider penguin. Tim face lazarus penguin gargoyle deathstroke bennett gearhead harlequin? Harlequin poison oracle barrow boomerang tally chill, zatanna kobra arrow solomon. Lazarus joker creeper knight lynx zeus. Katana robin charlatan dick justice deathstroke bane shrike boomerang abdullah? Barbara poison chill blake. </p> <p> Cain, lillian hush justice doom moth black bartok gleeson green barrow. Collector copperhead falcone the blue ragdoll maxie lantern. Bennett harvey oracle lantern collector hood elongated carmine harlequin manor riddler cluemaster lantern. Calendar phantom red basil nocturna falcone. Strange hood a sinestro red. Phantom batgirl pit rumor. Raatko rhino zatanna freeze ra. Huntress ivy scorn master jester snake firebug gotham azrael two azrael chimera hugo. Maroni red league harlequin pit tally, grundy batgirl knight hood chill knight chase! </p> <p> Damian rose jester crane abbott zeus shadow face hugo nyssa carmine. Anarky nyssa damian barrow freeze basil. Rhino rumor bane batman knight mad lazarus diamond alcor tim tim scorn. Sinestro cain arrow charlatan maroni hammer caird. Huntress outsider abdullah calendar gargoyle batcave kyle. Atkins rhino shrike hugo ragman killer harvey harvey owl. Kane hatter night gordon cypher kane hammer prey atom helena caird. Harley bat metallo aiko anarky cypher hatter black. Hugo chase tim arrow hammer owl atkins metallo freeze basil. Lucius ali, kyle creeper clock. Clock toymaker chase bane a? Of penguin ghul the snake charlatan faith cobblepot montoya kyle clock. </p> <p> Rose sinestro master oswald. Deadshot penguin sinestro grey, sinestro caird gargoyle rose charlatan atom? Grundy dent raatko swamp green smoke! Riddler shadow lillian arrow ra. Blue blue deathstroke cypher, temblor shadow. Catwoman aquaman sinestro kane master hatter edward. Toymaker strange huntress gleeson ragdoll solomon penguin temblor rose fright. Joe oracle solomon tally. Barrow damian wayne anarky a pit, wing helena collector quinn bane! Swamp blake maroni lynx maroni kyle al. Tally firefly ragman grundy, atomic maroni wayne nyssa lantern. Atom manor joker penguin lillian black crane wayne rupert. Calendar killer cypher copperhead tumbler ghul swamp cain deadshot carmine flash batcave. Nyssa black diamond tumbler sinestro. Scorn crane rumor shiva bat. Gearhead nigma phantom. </p> <p> Fairchild maxie dick anarky pennyworth chill america. Face diamond edward edward doom batman. Crane ali nigma lillian croc nyssa outsider edward lantern maroni. Diamond selina rumor shadow mugsy shade hammer wayne checkmate nigma harlequin echo smoke. Creeper tally flash phantom nigma spoiler blink bat jester, kobra oswald ghul! Pennyworth joe shrike fox ghul catwoman face azrael damian nigma lantern chill. Fright nyssa metallo toymaker. Ghul bartok crane maroni temblor abdullah ivy clench elongated firebug gotham. Czonk, crane penguin gordon joker copperhead? Carmine harley charlatan bat jim martha. </p> <script src="../js/jquery-3.3.1.min.js"></script> <script src="../js/bootstrap.js"></script> </body> </html> A página index.php chama a pagina menu.php. Preciso da seguinte ajuda: Se eu executo somente a página menu, consigo abrir meu dropdown, quando a página menu dentro da pagina index abre, os menus do drop não aparecem; Como faço para que o conteúdo da página index e qualquer outra página fique abaixo do menu? No menu, como centralizo a capa, mas mantenho o logo à esquerda, somente centralizado na vertical? É isso.. quem conseguir ajudar, agradeço demais! []s
-
Prezados, Boa tarde! Eu sei que é um infortúnio mandar pergunta no final da aula (estamos extremamente próximos ao Natal!), mas realmente é uma dúvida que está me incomodando... Já tentei por diversas maneiras popular um combobox num datagridview, mas o .NET não está colaborando. Quero uma função que me traga um DGV populado. Até aqui, ok, realizo vários, sem problemas... é que neste caso, quero colocar um Combobox (até aqui, também sem problemas), mas no momento que tento preeche-lo, o runtime me retorna um erro. Public Shared Function DGV_Autorizacoes(DGV As DataGridView) As DataGridView Try DGV.Columns.Clear() 'AQUI PREPARO A FORMATAÇÃO DO DGV With DGV .DefaultCellStyle.Font = New Font("Consolas", 12) '.ReadOnly = True .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill .AllowUserToAddRows = False .AlternatingRowsDefaultCellStyle.BackColor = Color.Bisque .SelectionMode = DataGridViewSelectionMode.FullRowSelect .AllowUserToResizeColumns = False .RowHeadersVisible = False .AllowUserToResizeRows = False 'não permite redimensionar a linha .MultiSelect = False 'selecionar várias linhas = falso .ColumnCount = 6 .Columns(0).Name = "Código" .Columns(1).Name = "Nome" .Columns(2).Name = "Documento" .Columns(3).Name = "CPF" .Columns(4).Name = "Parentesco" .Columns(5).Name = "ID_TELEFONE" .Columns(0).Visible = False .Columns(1).AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill .Columns(2).Width = 100 .Columns(3).Width = 200 .Columns(4).Width = 300 .Columns(5).Visible = False End With 'INSIRO A COLUNA DE COMBOBOX Dim column As New DataGridViewComboBoxColumn() With column .HeaderText = "Telefone(s)" .Name = "telefone" .Width = 150 .FlatStyle = FlatStyle.Standard .SortMode = DataGridViewColumnSortMode.Automatic .CellTemplate = New DataGridViewComboBoxCell() End With DGV.Columns.Insert(6, column) For Each columns As DataGridViewColumn In DGV.Columns DGV.Columns(columns.Index).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter Next _query = "select * from AUTORIZACOES" Dim comm2 As OleDbCommand = New OleDbCommand(_query, _cn) Dim da2 As OleDbDataAdapter = New OleDbDataAdapter(comm2) Dim ds2 As DataSet = New DataSet() da2.Fill(ds2, "AUTORIZACOES") Dim _AUTS() As DataRow = ds2.Tables("AUTORIZACOES").Select For Each registro As DataRow In ds2.Tables("AUTORIZACOES").Rows 'FAÇO A PESQUISA NO BD REFERENTE À UM ID _query = "select * from TELEFONES where ID = @id" Dim comm As OleDbCommand = New OleDbCommand(_query, _cn) comm.Parameters.AddWithValue("@id",_registro("ID")) Dim da As OleDbDataAdapter = New OleDbDataAdapter(comm) Dim ds As DataSet = New DataSet() da.Fill(ds, "TELEFONES") Dim _TELS() As DataRow = ds.Tables("TELEFONES").Select 'CRIO UMA COMBOBOX DE DGV PARA ARMAZENAR OS VALORES Dim combo As New DataGridViewComboBoxCell For Each registro2 As DataRow In ds.Tables("GRUPOS").Rows combo.Items.Add(registro2("TELEFONE")) Next 'POPULO A LINHA COM AS INFORMAÇÕES DA AUTORIZAÇÃO + O COMBOBOX DGV.Rows.Add(registro("COLUNA1"), registro("COLUNA2"), registro("COLUNA3"), registro("COLUNA4"), registro("COLUNA5"), registro("COLUNA6"), combo) Next Return DGV Catch ex As Exception MessageBox.Show(ex.Message, "Alerta de Erro", MessageBoxButtons.OK, MessageBoxIcon.Error) Return Nothing Finally If _cn.State = ConnectionState.Open Then _cn.Close() End Try End Function End Class O problema está aqui: Crio uma variável estilo ComboBox para célula e vou preenchendo informações nela... Dim combo As New DataGridViewComboBoxCell For Each registro2 As DataRow In ds.Tables("GRUPOS").Rows combo.Items.Add(registro2("TELEFONE")) NextPorem quando tento adiciona-la à linha, o sistema me apresenta erro. 'POPULO A LINHA COM AS INFORMAÇÕES DA AUTORIZAÇÃO + O COMBOBOX DGV.Rows.Add(registro("COLUNA1"),[...] combo) Desde já, muito obrigado e boas festas à todos!!! :natallaugh:
-
Depois de 5 anos me deparei com a mesma situação.... para quem tiver o mesmo problema, posto aqui como foi solucionado: Primeiramente, todo o trabalho com meu grid é através de código (tanto formatação, quanto população).... Formatação: Public Shared Function dgvContato(DGV As DataGridView) As DataGridView Try DGV.Columns.Clear() With DGV .DefaultCellStyle.Font = New Font("Consolas", 12) .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill .AllowUserToAddRows = False .AlternatingRowsDefaultCellStyle.BackColor = Color.Bisque .SelectionMode = DataGridViewSelectionMode.FullRowSelect .AllowUserToResizeColumns = False .RowHeadersVisible = False .AllowUserToResizeRows = False .MultiSelect = False .ColumnCount = 4 .Columns(0).Name = "ID" .Columns(1).Name = "Nome" .Columns(2).Name = "Data Criação" .Columns(3).Name = "Data Modififcação" .Columns(0).Visible = False .Columns(1).AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill .Columns(2).Width = 170 .Columns(3).Width = 170 .Columns(0).ReadOnly = True .Columns(1).ReadOnly = True .Columns(2).ReadOnly = True .Columns(3).ReadOnly = True .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 'Criação de um Combobox dentro do DGV, para mostrar os telefones dos meus contatos Dim column As New DataGridViewComboBoxColumn() With column .HeaderText = "Telefone(s)" .Name = "telefone" .ReadOnly = False .Width = 170 .FlatStyle = FlatStyle.Standard .DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox .CellTemplate = New DataGridViewComboBoxCell() End With DGV.Columns.Insert(2, column) End With For Each columns As DataGridViewColumn In DGV.Columns DGV.Columns(columns.Index).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter Next Return DGV Catch ex As Exception MessageBox.Show(ex.Message, "Alerta de Erro", MessageBoxButtons.OK, MessageBoxIcon.Error) Return Nothing End Try End Function População: Public Shared Function dgvContatosPop(DGV As DataGridView) As DataGridView Try Dim cnCompras As New Connection.compras_flEntities Dim pesquisa = From c In cnCompras.contatos Select c Dim index As Integer = 0 If pesquisa.Count > 0 Then For Each i In pesquisa cnCompras = New Connection.compras_flEntities Dim telefones = (From c In cnCompras.contatos Join t In cnCompras.telefones On c.id_contato Equals t.id_contato Where z.id_contato = i.id_contato Select t).ToList DGV.Rows.Add(i.id_zelador, i.nome, Nothing, Nothing, i.data_criacao, i.data_modificacao) 'Aqui começo a popular o Combobox do DGV Dim comboItens As New DataGridViewComboBoxCell If telefones.Count > 0 Then For Each t In telefones Dim tel As String = t.numero.ToString Dim obs As String = String.Empty If t.descricao.ToString.Equals(String.Empty) = False Then obs = " (" & t.descricao.ToString.Trim & ")" End If comboItens.Items.Add(t.numero & obs) Next Else comboItens = Nothing End If 'Depois do meu Combobox populado, faço meu DGV receber os itens DGV.Rows(index).Cells("telefone") = comboItens index += 1 Next DGV.Rows(0).Cells(0).Selected = False End If Return DGV Catch ex As Exception MessageBox.Show(ex.Message, "Alerta de Erro", MessageBoxButtons.OK, MessageBoxIcon.Error) Return Nothing End Try End Function Enfim, foi isso. Obrigado à todos.
-
Simplificando... Neste DataGridView, vou trazer EMPRESAS ok? Porem, na estrutura de meu BD, criei uma tabela TELEFONES, sendo que a Empresa pode ter vários números cadastrados... Portanto, a cada linha do DGV, na minha coluna TELEFONES, gostaria que fosse ComboBox, trazendo todos os contatos daquela empresa. Nos métodos apresentados acima, simplesmente eles inserem a coluna com Combobox, com valores já definidos no combo, por exemplo, "amarelo, azul e vermelho". Grato. O projeto que anexei no sendspace ilustra bem o que gostaria de fazer. Ele está simples e leve.
-
Khaos, Boa tarde. Infelizmente não. O método que eles discutem é tendo um conteúdo dentro do ComboBox fixo. No caso o meu seria variável. Para facilitar a quem queira se aventurar, criei um projetinho com a situação que ocasiona o erro. Segue link: http://www.sendspace.com/file/ka00e3 Grato.
-
Khaos, Boa tarde. Primeiramente muito obrigado pela resposta e aproveito para lhe desejar um bom 2014! Tentei realizar colocando o .ToString, porem o erro persiste. Para simplificar o problema acima, fiz um exemplo prático e rápido do que estou tentando: 1) Configuração do DataGridView: With DGV .ColumnCount = 3 .Columns(0).Name = "Col 1" .Columns(1).Name = "Col 2" .Columns(2).Name = "Col 3" End With Dim column As New DataGridViewComboBoxColumn() With column .HeaderText = "Col CombBox" .Name = "colcombo" .FlatStyle = FlatStyle.Standard .SortMode = DataGridViewColumnSortMode.Automatic .CellTemplate = New DataGridViewComboBoxCell() End With DGV.Columns.Insert(3, column) 2) Alimento a variável de DGV_ComboBox: Dim combo As New DataGridViewComboBoxCell combo.Items.Add("1") combo.Items.Add("2") combo.Items.Add("3") 3) Crio a linha no DGV: DGV.Rows.Add(0,1,2,combo) BUG: Alguma ideia?
