Archive

Posts Tagged ‘vb.net’

VB.net – Alterar controles da GridView em tempo de execução

fevereiro 19, 2013 Deixe um comentário

Muitas vezes no deparamos que temos de alterar a propriedade text de um label, hyperlink, ou montar um link de um hyperlink, etc.

Enfim, qualquer propriedade pode ser alterada no evento RowDataBound da GridView.

É importante colocar um IF antes para ver se a linha é do tipo DataRow, senão ocorrerão erros. Segue abaixo um exemplo simples:

If e.Row.RowType = DataControlRowType.DataRow Then

Dim preco As Label = e.Row.FindControl(“Label5”)

preco.Text = “teste”

End If

Divirta-se e inspire-se!

Categorias:.NET Tags:

VB.net – Inserir valor NULL em campo DATE

Tive um problema ao gerar um relatório. Quando eu não tinha uma data, precisava inserir alguma coisa no banco, pois o valor “” nao é válido para datas.

Imaginei criar uma data fictícia, do tipo 1/1/3999. Tudo bem, sempre que meu campo estava em branco passava a data em questão. No entanto, ao chamar o relatório, lá estava esta data atrapalhando tudo.

Consegui encontrar a seguinte solução.

1º passo: Receba a variável do textbox. Se for em branco ( “”)  ou no caso de você usar MaskedTextBox ( ”  /  /    “) atribua uma data, por exemplo, “1/1/3999”.

Dim inserir As New SUACLASSE

If txtChData1.Text <> ” / /” Then
inserir.dataCh1 = txtChData3.Text
Else
inserir.dataCh1 = “1/1/3999”
End If

2ª passo: Na hora da definição do parâmetro na classe ficará mais ou menos assim para passarmos um valor NULL para o banco:

 Dim DATE_ch1 As Date

Public Property dataCh1() As String

Get
Return DATE_ch1
End Get
Set(ByVal value As String)
DATE_ch1 = value
End Set
End Property

Dim conexao As SqlConnection
Dim comando As SqlCommand
conexao = New SqlConnection(“sua string de conexao”)
Try
conexao.Open()

comando = New SqlCommand(“INSERT INTO TABLE (data) VALUES (@chData1)”)
comando.Connection = conexao

‘Passando os parâmetros pro INSERT INTO

Dim parametro As New SqlParameter

parametro.ParameterName = “@chData1”
parametro.SqlDbType = SqlDbType.DateTime
parametro.Value = Me.dataCh1

If Me.dataCh1 = “01/01/3999” Then
parametro.Value = DBNull.Value
Else
parametro.Value = Me.dataCh1
End If
comando.Parameters.Add(parametro)

comando.ExecuteNonQuery()
conexao.Close()

Dessa maneira o banco recebe o valor NULL sem maiores problemas.

Obs: No exemplo utilizamos SQL Server. Pode variar ao trabalhar com outros tipos de banco de dados.

Categorias:.NET Tags:

VB.net – Alert sem erros

Você caro programador em VB.net com certeza já se deparou com um erro comum.

A função MSGBOX do VB.net dá um erro em tempo de execução na página ASPX.

Pois lhe darei 2 opções. Uma é utilizar BLOCKED SCRIPT. Quando você precisar de algo com mais parâmetros ou se precisa de uma variável de decisão, use estaopção. Segue o link abaixo com o tutorial:

http://www.4guysfromrolla.com/articles/021104-1.aspx

Agora, se o que você deseja é um simples ALERT, parecido com o do javascript, utilize o código abaixo:

            Dim strMessage As String
strMessage = “guilhermegoulart.wordpress.com”

Dim strScript As String = “<SCRIPT LANGUAGE=””JavaScript””>” & vbCrLf
strScript += “alert(“”” & strMessage & “””)” & vbCrLf
strScript += “</SCRIPT>”

ClientScript.RegisterStartupScript(GetType(String), “messageBox”, strScript)

Sem erros e sem complicação.

Divirta-se e inspire-se.

Categorias:.NET Tags:

VB.net – Formatando número com 4 casas depois da vírgula

Para que uma string de um textbox vire um campo decimal com 4 casas depois da vírgula, os procedimentos são os seguinte.

1 – Transforme a string em campo decimal

Ex:

dim dec as decimal
dec = CType(texteBox1.text, Decimal)

2 – Deixando apenas 4 casas depois da vírgula

Ex:

Dim teste As Decimal
teste = FormatNumber(dec, 4)

No caso acima, o número 4 representa o número de casas depois da vírgula. Podem ser 2, 3, 8, como você quiser.

3 – Inserindo o símbolo R$ pra ficar mais amigável

Ex:

textBox2.Text = teste.ToString("R$ ###.###0,##")

Estes procedimentos são muito úteis, principalmente ao realizar cálculos em sistema com notas fiscais.

Divirta-se e inspire-se.

Categorias:.NET Tags:
%d blogueiros gostam disto: