none
VB para C # convertendo RRS feed

  • Pergunta

  • gostaria que alguem ajudasse hum conversor Pará c # ESSE Código ... ELE ESTA los VB e pouco entendo 

    SalvarPresencas função privada () As Boolean
            Dim sql As String = ""
            Dim cmd Como OdbcCommand
            Dim transacao Como OdbcTransaction
            Tente
                transacao = Lig.Conection (). BeginTransaction ()             parágrafo CADA Linha Como DataGridViewRow Em dgvListaPresenca.Rows                 sql = "delete from TBPRESENCAFUNCIONARIO Onde COD_FUNCIONARIO =? e Dados between? E?"                 cmd = New OdbcCommand (SQL, Lig.Conection, transacao)                 cmd.Parameters.Add ("? ", OdbcType.Int) .Value = cint (linha.Cells (" COD_FUNCIONARIO ") .Value)                 cmd.Parameters.Add ("?", OdbcType.Date) .Value = dtxtDataInicial.Value.Date                 cmd.Parameters.Add ( "?", OdbcType.Date) .Value = dtxtDataFinal.Value.Date                 cmd.ExecuteNonQuery ()                 Para Joe Cada Coluna Como DataGridViewColumn Em dgvListaPresenca.Columns                     Se coluna.Index> 1 Then                         sql = "insert into TBPRESENCAFUNCIONARIO (COD_FUNCIONARIO, DADOS, Presente) Valores (???) "                         cmd = New OdbcCommand (sql, Lig.Conection, transacao)                         aux Dim As String = coluna.Name.Substring (0, 2) & "/" & coluna.Name.Substring (2, 2) & "/" & coluna.Name.Substring (4, 4)                         Dados OS Dim As Date = Date.parse (AUX)                         cmd.Parameters.Add ("?", OdbcType.Int) .Value = cint (linha.Cells ( "COD_FUNCIONARIO"). Value)                         cmd.Parameters.Add ("?", OdbcType .date) .Value = Dados                         cmd.Parameters.Add ("?", OdbcType.TinyInt) .Value = CBool ​​(linha.Cells ( coluna.Index) .Value)                         cmd.ExecuteNonQuery ()                     End If                 Próximo             Próximo             transacao.Commit ()             return true         ex Captura As Exception             MsgBox ("Erro AO SALVAR presenças Como!", MsgBoxStyle.Critical, "Erro")             transacao.Rollback ( )             return false         End Try     End Function

































    • Editado Diézare quarta-feira, 15 de outubro de 2014 02:48 palavra errada
    quarta-feira, 15 de outubro de 2014 02:47

Respostas

  • Segue o código traduzido por http://converter.telerik.com/

    Não se esqueça de marcar como resposta!

    private bool SalvarPresencas()
    {
    	string sql = "";
    	OdbcCommand cmd = default(OdbcCommand);
    	OdbcTransaction transacao = default(OdbcTransaction);
    	try {
    		transacao = Lig.Conection().BeginTransaction();
    
    
    		foreach (DataGridViewRow Linha in dgvListaPresenca.Rows) {
    			sql = "delete from TBPRESENCAFUNCIONARIO WHERE COD_FUNCIONARIO =? e Dados between? E?";
    
    			cmd = new OdbcCommand(sql, Lig.Conection, transacao);
    			cmd.Parameters.Add("? ", OdbcType.Int).Value = Convert.ToInt32(Linha.Cells("COD_FUNCIONARIO").Value);
    			cmd.Parameters.Add("?", OdbcType.Date).Value = dtxtDataInicial.Value.Date;
    			cmd.Parameters.Add("?", OdbcType.Date).Value = dtxtDataFinal.Value.Date;
    			cmd.ExecuteNonQuery();
    
    			foreach (DataGridViewColumn coluna in dgvListaPresenca.Columns) {
    
    				if (coluna.Index > 1) {
    					sql = "insert into TBPRESENCAFUNCIONARIO (COD_FUNCIONARIO, DADOS, Presente) Valores (???) ";
    					cmd = new OdbcCommand(sql, Lig.Conection, transacao);
    					string aux = coluna.Name.Substring(0, 2) + "/" + coluna.Name.Substring(2, 2) + "/" + coluna.Name.Substring(4, 4);
    
    					System.DateTime Dados = DateTime.Parse(aux);
    					cmd.Parameters.Add("?", OdbcType.Int).Value = Convert.ToInt32(Linha.Cells("COD_FUNCIONARIO").Value);
    					cmd.Parameters.Add("?", OdbcType.date).Value = Dados;
    					cmd.Parameters.Add("?", OdbcType.TinyInt).Value = Convert.ToBoolean(Linha.Cells(coluna.Index).Value);
    					cmd.ExecuteNonQuery();
    				}
    			}
    		}
    		transacao.Commit();
    		return true;
    	} catch (Exception ex) {
    		Interaction.MsgBox("Erro AO SALVAR presenças Como!", MsgBoxStyle.Critical, "Erro");
    		transacao.Rollback();
    		return false;
    	}
    }

    • Sugerido como Resposta Deric Ferreira quarta-feira, 15 de outubro de 2014 16:49
    • Marcado como Resposta Diézare quarta-feira, 15 de outubro de 2014 22:48
    quarta-feira, 15 de outubro de 2014 16:49

Todas as Respostas

  • http://www.developerfusion.com/tools/convert/vb-to-csharp/
    • Sugerido como Resposta Mr. GMSOFT quarta-feira, 15 de outubro de 2014 15:00
    quarta-feira, 15 de outubro de 2014 14:54
  • Segue o código traduzido por http://converter.telerik.com/

    Não se esqueça de marcar como resposta!

    private bool SalvarPresencas()
    {
    	string sql = "";
    	OdbcCommand cmd = default(OdbcCommand);
    	OdbcTransaction transacao = default(OdbcTransaction);
    	try {
    		transacao = Lig.Conection().BeginTransaction();
    
    
    		foreach (DataGridViewRow Linha in dgvListaPresenca.Rows) {
    			sql = "delete from TBPRESENCAFUNCIONARIO WHERE COD_FUNCIONARIO =? e Dados between? E?";
    
    			cmd = new OdbcCommand(sql, Lig.Conection, transacao);
    			cmd.Parameters.Add("? ", OdbcType.Int).Value = Convert.ToInt32(Linha.Cells("COD_FUNCIONARIO").Value);
    			cmd.Parameters.Add("?", OdbcType.Date).Value = dtxtDataInicial.Value.Date;
    			cmd.Parameters.Add("?", OdbcType.Date).Value = dtxtDataFinal.Value.Date;
    			cmd.ExecuteNonQuery();
    
    			foreach (DataGridViewColumn coluna in dgvListaPresenca.Columns) {
    
    				if (coluna.Index > 1) {
    					sql = "insert into TBPRESENCAFUNCIONARIO (COD_FUNCIONARIO, DADOS, Presente) Valores (???) ";
    					cmd = new OdbcCommand(sql, Lig.Conection, transacao);
    					string aux = coluna.Name.Substring(0, 2) + "/" + coluna.Name.Substring(2, 2) + "/" + coluna.Name.Substring(4, 4);
    
    					System.DateTime Dados = DateTime.Parse(aux);
    					cmd.Parameters.Add("?", OdbcType.Int).Value = Convert.ToInt32(Linha.Cells("COD_FUNCIONARIO").Value);
    					cmd.Parameters.Add("?", OdbcType.date).Value = Dados;
    					cmd.Parameters.Add("?", OdbcType.TinyInt).Value = Convert.ToBoolean(Linha.Cells(coluna.Index).Value);
    					cmd.ExecuteNonQuery();
    				}
    			}
    		}
    		transacao.Commit();
    		return true;
    	} catch (Exception ex) {
    		Interaction.MsgBox("Erro AO SALVAR presenças Como!", MsgBoxStyle.Critical, "Erro");
    		transacao.Rollback();
    		return false;
    	}
    }

    • Sugerido como Resposta Deric Ferreira quarta-feira, 15 de outubro de 2014 16:49
    • Marcado como Resposta Diézare quarta-feira, 15 de outubro de 2014 22:48
    quarta-feira, 15 de outubro de 2014 16:49
  • Obrigado Deri
    quarta-feira, 15 de outubro de 2014 22:49