Noticias Weblogs Código

RecorteX

» fjmp76
706 usuarios y 239 recortes de código
Usuario

Contraseña
Crear cuenta
Estás viendo los recortes del usuario fjmp76

RSS
Recortes: 36
Registrado: 30/8/2006

Etiquetas:
vbnet (23)
csharp (11)
xml (7)
sql (4)
SQLServer (2)
2005 (1)
fk (1)
js (1)

Ver foreign keys en la bd

Escribe aquí el texto

 
  
SELECT f.name AS ForeignKey,
OBJECT_NAME(f.parent_object_id) AS TableName,
COL_NAME(fc.parent_object_id,
fc.parent_column_id) AS ColumnName,
OBJECT_NAME (f.referenced_object_id) AS ReferenceTableName,
COL_NAME(fc.referenced_object_id,
fc.referenced_column_id) AS ReferenceColumnName
FROM sys.foreign_keys AS f
INNER JOIN sys.foreign_key_columns AS fc
ON f.OBJECT_ID = fc.constraint_object_id
 

Una clase para simular (en parte) el objeto My de Visual Basic 2005

Una clase para simular (en parte) el objeto My de Visual Basic 2005

 
// Una clase para simular (en parte) el objeto My de Visual Basic 2005
static class My
{
    public static Properties.Settings Settings
    {
        get
        {
            return Properties.Settings.Default;
        }
    }
}
 

Remover declaracion de xml

xml es XmlDocument

 
foreach(XmlNode n in xml.ChildNodes)
{ 
    if (n.NodeType == XmlNodeType.XmlDeclaration)
       n.ParentNode.RemoveChild(n);
}
 

Coleccion de datos en net

Esto se usa para hacer una coleccion de un mismo objeto

 
  Public Class ProcesosBase
    Inherits CollectionBase
 
    Public Sub New()
    End Sub
 
    Public ReadOnly Property Item(ByVal index As Integer) As CLASE_A_USAR
        Get
           Return CType(List.Item(index), CLASE_A_USAR)
        End Get
    End Property
 
    Public Function Add(ByVal value As CLASE_A_USAR) As Integer
        Dim res As Integer
        res = List.Add(value)
        Return res
    End Function
 
End Class
 

Traer un DT desde un query en SqlServer

 
    Private Function getDT(ByVal qry As String, ByVal connectionString as string) As DataTable
        Dim dataSet As DataSet = New DataSet
        Dim conn As New SqlConnection(connectionString)
        Dim cmdString As String = qry
        Dim dataAdapter As New SqlDataAdapter(cmdString, conn)
        Dim ds As New DataSet()
        dataAdapter.Fill(ds, "dt")
 
        Return ds.Tables("dt")
    End Function
 
 
    private DataTable getDT(String qry, String  connectionString)
    {
        DataSet dataSet = new DataSet();
        SqlConnection conn = new SqlConnection(connectionString);
        SqlDataAdapter dataAdapter = new SqlDataAdapter(qry, conn);
        DataSet ds= new DataSet();
        dataAdapter.Fill(ds, "dt");
  
        return ds.Tables ["dt"];
    }
 

XMLtoDT

 
    Private Function XMLtoDT(ByVal xml As String) As DataTable
        Dim dataSet As DataSet = New DataSet
        Dim reader As New System.Xml.XmlTextReader(New StringReader(xml))
        dataSet.ReadXml(reader)
        If dataSet.Tables.Count = 0 Then
            Return New DataTable
        Else
            Return dataSet.Tables(0)
        End If
    End Function
 

Funcion para checar si un valor esta dentro de una serie separada por comas

 
    Function IsIn(ByVal val1 As String, ByVal text As String) As Boolean
        Dim ret As Boolean = False
        Dim temp() As String
        Dim separador As String = ","
        temp = Microsoft.VisualBasic.Split(text, separador)
        For Each b As String In temp
            If val1 = b Then
                ret = True
                Exit For
            End If
        Next
        Return ret
    End Function
 

Salir de Console App regresando un ErrorLevel

Este ejemplo regresa ErrorLevel=1

 
         dim ErrorLevel as integer=1
         Environment.Exit(ErrorLevel)
 

Recursividad

Un ejemplo de recursividad para buscar una cadena en archivos.

 
      Public Sub CheckFiles(ByVal TxtToFind As String, ByVal Path As String, ByRef sb As System.Text.StringBuilder, ByVal Filter As String)
        For Each file As String In Directory.GetFiles(Path, Filter)
            Dim txt As String = ReadFile(file)
            If txt.IndexOf(TxtToFind) <> -1 Then
                sb.AppendLine(file)
            End If
        Next
        For Each dir As String In Directory.GetDirectories(Path)
            CheckFiles(TxtToFind, dir, sb, Filter)
        Next
    End Sub
 

Leer y escribir archivos de texto

En Vb.net

 
    Private Sub WriteFile(ByVal FileName As String, ByVal data As String)
        If File.Exists(FileName) Then File.Delete(FileName)
        Dim swFile As StreamWriter = File.CreateText(FileName)
        swFile.Write(data)
        swFile.Flush()
        swFile.Close()
    End Sub
 
    Private Function ReadFile(ByVal FileName As String) As String
        Dim ret As String = ""
        If File.Exists(FileName) Then
            Dim TheFile As System.IO.StreamReader = New StreamReader(FileName, System.Text.Encoding.Default)
            ret = TheFile.ReadToEnd()
            TheFile.Close()
        End If
        Return ret
    End Function
 

En c#

 
        private void WriteFile(String FileName , String data ){
            if (File.Exists(FileName)) {File.Delete(FileName);}
            StreamWriter swFile   = File.CreateText(FileName);
            swFile.Write(data);
            swFile.Flush();
            swFile.Close();
        }
 
        private String ReadFile(String FileName ) {
            String ret  = "";
            if (File.Exists(FileName)){
                 System.IO.StreamReader TheFile = new System.IO.StreamReader(FileName, System.Text.Encoding.Default);
                 ret = TheFile.ReadToEnd();
                 TheFile.Close();
            }
            return ret;
        }
 
info@recortex.com - Proyecto: Juanjo Navarro, 2006 - Diseño: Albin - Información legal y técnica