Dim builder As New System.Text.StringBuilder
builder.Append("á é í ó ú ñ")
Response.BinaryWrite(Encoding.Default.GetBytes(builder.ToString))
viernes, 29 de agosto de 2008
Remover Acentos
Function convertirSinAcentos(ByVal palabra As String) As String
Dim output As String = palabra
output = output.Replace("á", "a")
output = output.Replace("é", "e")
output = output.Replace("í", "i")
output = output.Replace("ó", "o")
output = output.Replace("ú", "u")
output = output.Replace("ñ", "n")
output = output.Replace("Á", "A")
output = output.Replace("É", "E")
output = output.Replace("Í", "I")
output = output.Replace("Ó", "O")
output = output.Replace("Ú", "U")
output = output.Replace("Ñ", "N")
Return output
End Function
Dim output As String = palabra
output = output.Replace("á", "a")
output = output.Replace("é", "e")
output = output.Replace("í", "i")
output = output.Replace("ó", "o")
output = output.Replace("ú", "u")
output = output.Replace("ñ", "n")
output = output.Replace("Á", "A")
output = output.Replace("É", "E")
output = output.Replace("Í", "I")
output = output.Replace("Ó", "O")
output = output.Replace("Ú", "U")
output = output.Replace("Ñ", "N")
Return output
End Function
convertir fecha a formato yyyy-mm-dd
dim fecha as string = "29-08-2008"
dim a as string=CType(fecha, DateTime).ToString("yyyy-MM-dd hh:mm")
dim a as string=CType(fecha, DateTime).ToString("yyyy-MM-dd hh:mm")
jueves, 28 de agosto de 2008
Problemas con recursos embebidos y custom ajax control toolkit
problemas con el recurso embebido de js ("but does not contain an embedded resource with name ...")
el problema fue que donde estaba esto:
[ClientScriptResource("AjaxControlToolkit.ITYH_Combo2.ITYH_Combo2Behavior", "AjaxControlToolkit.ITYH_Combo2.ITYH_Combo2Behavior.js")]
debia ir (sin el nombre del assembly...)
[ClientScriptResource("AjaxControlToolkit.ITYH_Combo2Behavior", "AjaxControlToolkit.ITYH_Combo2Behavior.js")]
Y en el WebResource tambien sacarle el nombre del assembly:
[assembly: System.Web.UI.WebResource("AjaxControlToolkit.ITYH_Combo2.ITYH_Combo2Behavior.js", "text/javascript")]cambiar por:[assembly: System.Web.UI.WebResource("AjaxControlToolkit.ITYH_Combo2Behavior.js", "text/javascript")]
el problema fue que donde estaba esto:
[ClientScriptResource("AjaxControlToolkit.ITYH_Combo2.ITYH_Combo2Behavior", "AjaxControlToolkit.ITYH_Combo2.ITYH_Combo2Behavior.js")]
debia ir (sin el nombre del assembly...)
[ClientScriptResource("AjaxControlToolkit.ITYH_Combo2Behavior", "AjaxControlToolkit.ITYH_Combo2Behavior.js")]
Y en el WebResource tambien sacarle el nombre del assembly:
[assembly: System.Web.UI.WebResource("AjaxControlToolkit.ITYH_Combo2.ITYH_Combo2Behavior.js", "text/javascript")]cambiar por:[assembly: System.Web.UI.WebResource("AjaxControlToolkit.ITYH_Combo2Behavior.js", "text/javascript")]
No encuentra el namespace Drawing
Problema: The type or namespace name 'Drawing' does not exist in the namespace 'System' (are you missing an assembly reference?)
Solucion: Agregar la referencia a ese namespace "System.Drawing"
Hacer boton derecho sobre la solucion y click en "Add Reference "
Solucion: Agregar la referencia a ese namespace "System.Drawing"
Hacer boton derecho sobre la solucion y click en "Add Reference "
Obtener cadena de conexion del web.config
poner:
using System.Configuration;
agregar la referencia a :
System.Configuration
usar:
string NombreConexion = "cs_1";
string connStr = ConfigurationManager.ConnectionStrings[NombreConexion].ConnectionString;
http://www.pointsolutions.com.ar/presupuesto2.aspx
using System.Configuration;
agregar la referencia a :
System.Configuration
usar:
string NombreConexion = "cs_1";
string connStr = ConfigurationManager.ConnectionStrings[NombreConexion].ConnectionString;
http://www.pointsolutions.com.ar/presupuesto2.aspx
Factory: Devolver valor de un control de cualquier tipo
Private Function tomarValorFactory(ByVal nombreControl As String) As String
If nombreControl IsNot Nothing And nombreControl <> "" Then
Dim control As Control = Me.Parent.FindControl(nombreControl)
Select Case control.GetType.Name
Case "HiddenField"
Return CType(control, HiddenField).Value
Case "TextBox"
Return CType(control, TextBox).Text
Case "Label"
Return CType(control, Label).Text
Case "DropDownList"
Return CType(control, DropDownList).SelectedValue
Case "CheckBox"
Return CType(control, CheckBox).Checked
Case "RadioButton"
Return CType(control, RadioButton).Text
Case "Literal"
Return CType(control, Literal).Text
Case "Calendar"
Return CType(control, Calendar).SelectedDate.ToShortDateString()
Case Else
Throw New Exception("Falta definir el control")
Return ""
End Select
Else
Return ""
End If
End Function
If nombreControl IsNot Nothing And nombreControl <> "" Then
Dim control As Control = Me.Parent.FindControl(nombreControl)
Select Case control.GetType.Name
Case "HiddenField"
Return CType(control, HiddenField).Value
Case "TextBox"
Return CType(control, TextBox).Text
Case "Label"
Return CType(control, Label).Text
Case "DropDownList"
Return CType(control, DropDownList).SelectedValue
Case "CheckBox"
Return CType(control, CheckBox).Checked
Case "RadioButton"
Return CType(control, RadioButton).Text
Case "Literal"
Return CType(control, Literal).Text
Case "Calendar"
Return CType(control, Calendar).SelectedDate.ToShortDateString()
Case Else
Throw New Exception("Falta definir el control")
Return ""
End Select
Else
Return ""
End If
End Function
Etiquetas:
tomar valor control factory
Obtener un Datatable de un SQLDataSource
Dim dv As DataView = CType(ds.Select(DataSourceSelectArguments.Empty), DataView)
dt = dv.Table
Para obtener un SQLDatareader, poner esta propiedad:
ds.DataSourceMode = SqlDataSourceMode.DataReader
dt = dv.Table
Para obtener un SQLDatareader, poner esta propiedad:
ds.DataSourceMode = SqlDataSourceMode.DataReader
Etiquetas:
SQLDataReader SQLDataSource
Suscribirse a:
Entradas (Atom)