Search in Naslu

using MySql.Data.MySqlClient;

MySqlConnection conexion = new MySqlConnection();
conexion.ConnectionString = "Server=Servidor;Database=Nombre_de_la_base_de_datos; Uid=Nombre_de_usuario;Pwd=contraseña;";
conexion.Open();

Cadena de conexión para trabajar en .NET con MySql
Uploaded on 4/29/2007 12:00:00 AM
Programming Language: c#

By: vela
See more code snippets of vela

.net

mysql

SELECT * FROM 
  Information_Schema.Tables
WHERE 
  Table_Name LIKE '% %'

Search Table SQL Server
Uploaded on 6/5/2007 6:19:16 AM
Programming Language: SQL

By: Carlos
See more code snippets of Carlos

SQL Server

SELECT * FROM
  Information_schema.columns
WHERE
  Table_Name Like '%%' AND Column_Name LIKE '%%'

Search Column in a SQL Server Table
Uploaded on 6/5/2007 6:22:23 AM
Programming Language: SQL

By: Carlos
See more code snippets of Carlos

SQL Server

<%
Class Clientes

    '---------------------------------------------------------------------------------------
    ' This Class Encapsulates a Clientes object and its methods
    '---------------------------------------------------------------------------------------

Dim glngID, gstrNOMBRE, gstrAPELLIDOS, gmemDIRECCION, gstrLOCALIDAD, gstrCP, gstrPROVINCIA, gstrPAIS, gstrTELEFONO, glngANHO_NACIMIENTO

Public Property Get ID
    ID=glngID
End Property
Public Property Let ID(valor)
    glngID=valor
End Property

Public Property Get NOMBRE
    NOMBRE=gstrNOMBRE
End Property
Public Property Let NOMBRE(valor)
    gstrNOMBRE=valor
End Property

Public Property Get APELLIDOS
    APELLIDOS=gstrAPELLIDOS
End Property
Public Property Let APELLIDOS(valor)
    gstrAPELLIDOS=valor
End Property

Public Property Get DIRECCION
    DIRECCION=gmemDIRECCION
End Property
Public Property Let DIRECCION(valor)
    gmemDIRECCION=valor
End Property

Public Property Get LOCALIDAD
    LOCALIDAD=gstrLOCALIDAD
End Property
Public Property Let LOCALIDAD(valor)
    gstrLOCALIDAD=valor
End Property

Public Property Get CP
    CP=gstrCP
End Property
Public Property Let CP(valor)
    gstrCP=valor
End Property

Public Property Get PROVINCIA
    PROVINCIA=gstrPROVINCIA
End Property
Public Property Let PROVINCIA(valor)
    gstrPROVINCIA=valor
End Property

Public Property Get PAIS
    PAIS=gstrPAIS
End Property
Public Property Let PAIS(valor)
    gstrPAIS=valor
End Property

Public Property Get TELEFONO
    TELEFONO=gstrTELEFONO
End Property
Public Property Let TELEFONO(valor)
    gstrTELEFONO=valor
End Property

Public Property Get ANHO_NACIMIENTO
    ANHO_NACIMIENTO=glngANHO_NACIMIENTO
End Property
Public Property Let ANHO_NACIMIENTO(valor)
    glngANHO_NACIMIENTO=valor
End Property


'***************************************************************************************
' Load
'***************************************************************************************
Public Sub Load(lngID)
  Dim strSQL, objRS, objData
    strSQL = "SELECT * FROM usuarios WHERE ID = "& lngID
    Set objData = New DALayer
    objData.ConnectionString = Trim("clientes")
    Set objRS = objData.RetrieveRS(strSQL)

    With objRS
          If Not .EOF Then
             .MoveFirst
             With Me
                 .ID = objRS("ID")
                 .NOMBRE = objRS("NOMBRE")
                 .APELLIDOS = objRS("APELLIDOS")
                 .DIRECCION = objRS("DIRECCION")
                 .LOCALIDAD = objRS("LOCALIDAD")
                 .CP = objRS("CP")
                 .PROVINCIA = objRS("PROVINCIA")
                 .PAIS = objRS("PAIS")
                 .TELEFONO = objRS("TELEFONO")
                 .ANHO_NACIMIENTO = objRS("ANHO_NACIMIENTO")
             End With
          End If
    End With

   If IsObject(objData) Then Set objData = Nothing
   If IsObject(objRS) Then Set objRS = Nothing

End Sub

'***************************************************************************************
' Save
'***************************************************************************************
Public Sub Save()
  Dim strSQL, objRS, objData
    Set objRS = Server.CreateObject("adodb.recordset")
    ConnectionString = Trim("clientes")
    objRS.Open "usuarios", ConnectionString, 2, 3
    objRS.AddNew

                 'objRs("ID").value = Me.ID
                 objRs("NOMBRE").value = Me.NOMBRE
                 objRs("APELLIDOS").value = Me.APELLIDOS
                 objRs("DIRECCION").value = Me.DIRECCION
                 objRs("LOCALIDAD").value = Me.LOCALIDAD
                 objRs("CP").value = Me.CP
                 objRs("PROVINCIA").value = Me.PROVINCIA
                 objRs("PAIS").value = Me.PAIS
                 objRs("TELEFONO").value = Me.TELEFONO
                 objRs("ANHO_NACIMIENTO").value = Me.ANHO_NACIMIENTO

   objRS.Update

   If IsObject(objData) Then Set objData = Nothing
   If IsObject(objRS) Then Set objRS = Nothing

End Sub

End Class
%>

Generador de clases en ASP
Uploaded on 3/14/2008 4:41:40 AM
Programming Language: ASP

By: retebenito
See more code snippets of retebenito

asp

clase asp

clases

generador clases

generador de código