Ver Mensaje Individual
  #7 (permalink)  
Antiguo 01/12/2011, 07:11
Avatar de trasnoc
trasnoc
 
Fecha de Ingreso: octubre-2011
Ubicación: Salta, Argentina, Argentina
Mensajes: 15
Antigüedad: 12 años, 6 meses
Puntos: 0
Respuesta: conexion con base de datos

bueeeeeeeeeeenooooooooo gente!!! solcuione el problemaaa! por fin leyendo mil y 1 paginas web con la ayuda de rafa2300, y mucho quemarme la cabeza.. al final era un boludez.... pero para los que somos novato es complicado (para mi fue un parto)
el codigo que use fue el siguiente>>>>>>>>>>>>

Cita:
Imports System.Data.SqlClient
Imports System.Data

Partial Class rusuario

Inherits System.Web.UI.Page
Dim connetionString As String
Dim connection As SqlConnection
Dim adapter As SqlDataAdapter
Dim cmdBuilder As SqlCommandBuilder
Dim ds As New DataSet
Dim changes As DataSet
Dim sql As String
Dim i As Int32

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
connetionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Administrador\Escritorio\redhive\App_Data \cruzados.mdf;Integrated Security=True;User Instance=True"
connection = New SqlConnection(connetionString)
sql = "select nombre_usuario, contraseña from usuario where id_usuario =1"
Try
connection.Open()
adapter = New SqlDataAdapter(sql, connection)
adapter.Fill(ds)
connection.Close()
TextBox1.Text = ds.Tables(0).Rows(0)(0)
TextBox2.Text = ds.Tables(0).Rows(0)(1)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub

Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
Response.Redirect("index.html")
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub
End Class