• Viernes 8 de Noviembre de 2024, 10:55

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - malavida

Páginas: [1]
1
VB .NET / Re: conexion en visual .net
« en: Sábado 5 de Septiembre de 2009, 09:07 »
Espero te sirva.

Imports System.Data.SqlClient

 Private CN As SqlConnection
 Private DA As New SqlDataAdapter

' Con esto te conectas
    Private Function Conectar(ByVal DA As SqlDataAdapter) As SqlDataAdapter
       
        'Crear conexión
        CN = New SqlConnection
        Try
            CN.ConnectionString = "Server=(local);" & "Database=BlackBox;uid=sa;pwd=sa;Integrated Security=SSPI;"        
        Catch ex As ArgumentException
            MsgBox("Error:" & vbCrLf & "ConnectionString", MsgBoxStyle.Critical)
        End Try

        DA = New SqlDataAdapter
        Return DA
    End Function


'Una funcion para que ocupes la coneccion

    Public Function Proveedor_Tabla() As DataSet
        Conectar(DA)
        DA.SelectCommand = New SqlCommand
        DA.SelectCommand.Connection = CN

        DA.SelectCommand.CommandText = "sp_TablaProveedores"
        DA.SelectCommand.CommandType = CommandType.StoredProcedure

        DS = New DataSet
        DA.Fill(DS, "Proveedores")
        DT = DS.Tables("Proveedores")

        Return DS
    End Function

2
VB .NET / Vb.net Base De Datos Integrada ???
« en: Miércoles 11 de Abril de 2007, 02:55 »
Hola. quisiera hacer un programa pero con la base de datos integrada Sin ocupar sql ni access ni otro programa, ya que cualquier programa tiene una base de datos integrada (mas o menos potenete). Por ejemplo no quiero decirle al usuario que tiene que tener instalado el access o SQL o algun otro
Pero no tengo ni la menor idea de con que herramiente se hace
Ocupo Vb.net 2003. gracias

Saludos

3
SQL Server / Re: Como Obtener Combinaciones Posibles Entre2 Campos?
« en: Miércoles 25 de Octubre de 2006, 17:23 »
Que nivel este foro! repuesta en tiempo real :D ( es que soy nuevo aca ^^)

Resolvi el problema... lo que pasaba es que no savia eso de los alias hera por eso que no me salia^^

Dejo el ejercicio resuelto por si le sirve a alguien

Saludos y gracias por la onda

-------------------------------------------------------------------------------
--Creo la tabla
USE NegocioAutopartes
CREATE TABLE Partes
   (
   Parte_ID char (2)PRIMARY KEY NOT NULL,
   Nombre varchar (30),
   Color varchar (30),
   Peso int,
   Ciudad varchar (30),
   )

-- Saco las combinaciones posibles
USE NegocioAutopartes

SELECT  c1.Parte_ID,c2.color
FROM Partes c1, Partes c2
ORDER BY c1.Parte_ID

4
SQL Server / Re: Como Obtener Combinaciones Posibles Entre2 Campos?
« en: Miércoles 25 de Octubre de 2006, 15:20 »
pongo denuevo los campos porque se ve mal ^^

campo1: a, b
Campo2: 1, 2

saludos

5
SQL Server / Re: Como Obtener Combinaciones Posibles Entre2 Campos?
« en: Miércoles 25 de Octubre de 2006, 15:18 »
Por ej tengo

campo1 | campo2
  a              1
  b              2

y lo que quiero obtener es:  a1, a2, b1, b2

Osea algo parecido a un Producto carteciano


La instruccion "Cross Join" me fije en la ayuda del SQL y esta hai pero no la puedo usar por lo que vi hace lo que yo quiero pero no la puedo usar :/ .... no se porque

6
SQL Server / Como Obtener Combinaciones Posibles Entre2 Campos?
« en: Martes 24 de Octubre de 2006, 13:52 »
Hola, tengo una dudita...
Como obtengo todas las combinaciones posibles entre 2 campos en la misma tabla


Saludos

7
SQL Server / Re: Sql Y Windows Xp
« en: Martes 24 de Octubre de 2006, 13:48 »
Yo tengo Windows XP sp2 y me funciona bien por lo menos
bajate el sp4 del SQL  a mi personalmente me soluciono el problema de que se me colgaba el query


Saludos

8
VB .NET / Re: Arreglos Bidimencionales
« en: Martes 24 de Octubre de 2006, 06:36 »
Este es un metodo

Saludos

'Ordenamiento por Seleccion Directa

        Dim i As Integer
        Dim j As Integer
        Dim k As Integer
        Dim x As Integer

        Dim n As Integer
        n = 5
        Dim vec(n) As Integer

        vec(0) = 5
        vec(1) = 4
        vec(2) = 3
        vec(3) = 2
        vec(4) = 1
        vec(5) = 0

        For i = 0 To n - 1
            k = i
            x = vec(i)
            For j = (i + 1) To n
                If (vec(j) < x) Then
                    k = j
                    x = vec(j)
                End If
            Next
            vec(k) = vec(i)
            vec(i) = x
        Next

        txtvector.Clear()
        txtvector.Text = Str(vec(0)) & Str(vec(1)) & Str(vec(2)) & Str(vec(3)) & Str(vec(4)) & Str(vec(5))

Páginas: [1]