conexion con base de datos

[trasnoc]

gente tengo una pregutna sobre mi pregunta... esoy utilizando visual estudio con lenguaje visual basic (es una aplicacion web osea seria visual basic .net) y utilizo sql server, estoy intentando hacer las conexiones, les comento lo que tengo hecho;
ya hice que la base de datos este en mi solucion de problemas, y consigo conectarlo (osea le sale un lacito en vez de una cruz) hasta ahi todo bien....
pero necesito los comando para conectarme y poner lo datos del usuario en un texbox por ejemplo....

voy a tratar de explicarme mejor...

tengo una tabla llamada "usuario" que tiene

id_usuario
usuario
contraseña

ahora yo keiro que a traves de mi programa tome los valores usuario y lo ponga en el textbox1 y la contraseña la ponga en el textbox2.... pero no se como hacer la conexion...


bueno eso seria todo desde ya muchas gracias por leer.

pd: cualquier otra info necesaria me avisan GRACIAS!!!

[rafa2300]

'importamos las librerías
Imports System.Data.Sql
Imports MySql.Data.MySqlClient
Imports System.Data.OleDb
Imports System.Data
'nota este paso ya lo debiste de haber echo pero aun asi rectifico tienes que agregar las referenias
'mysql.data y mysql.web


'declaramos algunas variables
Dim conect As MySqlConnection
Dim adp As MySqlDataAdapter
Dim tb As DataTable


'priemor realizas la conexion
conect = New MySqlConnection("datasource=localhost;username=adm inistrador;password=123456;database=usuario")
adp = New MySqlDataAdapter("select id_usuario, usuario, contraseña from usuario;", conect)
tb = New DataTable
adp.Fill(tb)
'igualamos una caja de texto al valor
textbox1.Text=tb.Rows(0)(1)'para nombre de usuario
textbox2.Text=tb.Rows(0)(2)'para contraseña
tb.clear()'siempre ay que borrar la tabla si es que vamos a seguirla usando en el mismo formulario

espero que te ayude

[rafa2300]

perdón por el doble post

[trasnoc]

muchisimas gracias!!che y es mucha molestia el INSERT DELET Y UPDATE? y yo utilizo sql server no mysql.... pero supongo que sera parecido o lo mismo....

[trasnoc]

me da un error en esta parte pte paso todo el codigo a ver que estoy haciendo mal.... mezcle un poco de tu ayuda con otra ayuda de un compañero pero sigue con errores!!

Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Data


Partial Class rusuario
Inherits System.Web.UI.Page
Dim cadena As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\Administrador\Escritorio\redhive\App_Data \cruzados.mdf;Integrated Security=True;User Instance=True"
Dim midataset As New Data.DataSet
Dim miconexion As New Data.SqlClient.SqlConnection(cadena)
Dim adp As SqlDataAdapter
Dim tb As DataTable
Dim micomando As New Data.SqlClient.SqlCommand
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
miconexion.Open()
micomando.CommandText = "select nombre_usuario, contraseña from usuario where id_usuario =1"
micomando.Connection = miconexion
Dim midatadapter As New Data.SqlClient.SqlDataAdapter(micomando)
midatadapter.Fill(midataset)
tb = New DataTable
adp.Fill(tb)
TextBox1.Text = tb.Rows(0)(1)
TextBox2.Text = tb.Rows(0)(2)


'If Me.TextBox1.Text <> "" And Me.TextBox2.Text <> "" And Me.TextBox3.Text <> "" And Me.TextBox4.Text <> "" And Me.TextBox5.Text <> "" Then

'End If


' Response.Redirect("dpersonales.aspx")
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

Y EL ERROR ES ESTE:

Error de servidor en la aplicación '/redhive'.

Referencia a objeto no establecida como instancia de un objeto.

Descripción: Excepción no controlada al ejecutar la solicitud Web actual. Revise el seguimiento de la pila para obtener más información acerca del error y dónde se originó en el código.

Detalles de la excepción: System.NullReferenceException: Referencia a objeto no establecida como instancia de un objeto.

Error de código fuente:


Línea 20: midatadapter.Fill(midataset)
Línea 21: tb = New DataTable
Línea 22: adp.Fill(tb)
Línea 23: TextBox1.Text = tb.Rows(0)(1)
Línea 24: TextBox2.Text = tb.Rows(0)(2)

Archivo de origen: C:\Documents and Settings\Administrador\Escritorio\redhive\rusuario .aspx.vb Línea: 22

Seguimiento de la pila:


[NullReferenceException: Referencia a objeto no establecida como instancia de un objeto.]
rusuario.Button3_Click(Object sender, EventArgs e) in C:\Documents and Settings\Administrador\Escritorio\redhive\rusuario .aspx.vb:22
System.Web.UI.WebControls.Button.OnClick(EventArgs e) +118
System.Web.UI.WebControls.Button.RaisePostBackEven t(String eventArgument) +112
System.Web.UI.WebControls.Button.System.Web.UI.IPo stBackEventHandler.RaisePostBackEvent(String eventArgument) +10
System.Web.UI.Page.RaisePostBackEvent(IPostBackEve ntHandler sourceControl, String eventArgument) +13
System.Web.UI.Page.RaisePostBackEvent(NameValueCol lection postData) +36
System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +5563

[trasnoc]

Necesito ayuda enserio por favor

[trasnoc]

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>>>>>>>>>>>>

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

[trasnoc]

tema CERRADO