(Solucionado)ayuda con vb2005 (validacion de usuarios + SQL2005)

[sicario]

El guille... tambien quiere ser tu amigo... te manda saludos y me dijo que te diera esto:

Código: [Seleccionar]

Friend Sub Conectar(Optional ByVal nombreBaseDatos As String = "", _
                    Optional ByVal commandString As String = "")

    If nombreBaseDatos = "" Then
        nombreBaseDatos = ArchivoDatos
    End If
    ArchivoDatos = nombreBaseDatos
    If ArchivoDatos = "" Then
        Exit Sub
    End If
    '
    If CadenaSelect = "" Then
        CadenaSelect = "SELECT * FROM Table1"
    End If
    If commandString = "" Then
        commandString = CadenaSelect
    End If
    CadenaSelect = commandString
    '
    If CadenaConexion = "" Then
        '
        ' Nota: Deberías cambiar el nombre del equipo, etc.     (16/Abr/03)
        '
        CadenaConexion = "data source=GUILLEACER\NETSDK;" & _
                         "initial catalog=" & ArchivoDatos & ";" & _
                         "integrated security=SSPI;persist security info=True;" & _
                         "workstation id=GUILLEACER;packet size=4096"
    End If
    '
    Try
        dbConnection = New Data.SqlClient.SqlConnection(CadenaConexion)
    Catch e As Exception
        MessageBox.Show("Error al crear la conexión:" & vbCrLf & e.Message)
        Exit Sub
    End Try
    '
    dbConnection.Open()
    '
    dbDataSet = New Data.DataSet()
    '
    dbDataAdapter = New Data.SqlClient.SqlDataAdapter(CadenaSelect, dbConnection)
    '
    Dim commandBuilder As New Data.SqlClient.SqlCommandBuilder(dbDataAdapter)
    '
    dbDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
    Try
        dbDataAdapter.Fill(dbDataSet, NombreTabla)
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
    '
End Sub

podes checarlo aqui:
http://www.mundoprogramacion.com/net/ADONET/ejemploSQL.htm

[renji]

 no esta asi lo cambie por esto
"Server = ANGELICAL_V4; database = Usuarios; "

[tekun]

no se si has revisado lo que puso sicario en el link del guille....

específicamente me refiero a lo siguiente:

        '
        ' Nota: Deberías cambiar el nombre del equipo, etc.
        '
        CadenaConexion = "data source=GUILLEACER\NETSDK;" & _
                         "initial catalog=" & ArchivoDatos & ";" & _
                         "integrated security=SSPI;persist security info=True;" & _
                         "workstation id=GUILLEACER;packet size=4096"

    '
        dbConnection = New Data.SqlClient.SqlConnection(CadenaConexion)

    '
    dbConnection.Open()

así solo por joder, hace la prueba con algo parecido... haber si furula.... luego nos avisas...