Ayuda! Base de Datos Acces y VB.net

Iniciado por Kal_El_00100, 31 Marzo 2010, 22:03 PM

0 Miembros y 1 Visitante están viendo este tema.

Kal_El_00100

Hola gente tengo este problemita, estuve googleando pero los contenido que encuentro nose como adaptarlos a mi problema, hace rato que no programo y estoy migrando a .Net.

les muetro primero lo que quiero hacer y si me pueden ayudar.

'inicio la conexion en un modulo
   Public CN As New ADODB.Connection
Sub Main()

       CN.CursorLocation = ADODB.CursorLocationEnum.adUseClient
       CN.Open("Controldecuentas")

   End Sub

'en otro formulario con un boton aceptar y una vaja de texto donde se ingresa un password

Private Sub CMBAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMBAceptar.Click
       Apertura.Main()

       Dim STRSQL As String
       Dim RS As ADODB.Recordset
       Dim STRDBPass As String

       RS = New ADODB.Recordset
       STRSQL = "SELECT Password.IDPassword, Password.Password, Password.Activo " _
                   & "FROM Password WHERE Password.IDPassword = 1"

       RS.Open(STRSQL, CN, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)

       STRIngPass = Me.TXTPassword.Text
       STRDBPass = RS.Fields("Password")


   End Sub
mi problema esta en que nose como pasar a esta variable "STRDBPass" el valor de un campo de la base de datos, aqui le asigno una fila pero obviamente no me lo acepta.
yo antes en visual 6.0 se lo asinaba asi STRDBPass = RS!Password
pero ahora no el .net esto no se puede

Si me ayudan gracias.

dario1234

Hola kal

mi problema esta en que nose como pasar a esta variable "STRDBPass" el valor de un campo de la base de datos, aqui le asigno una fila pero obviamente no me lo acepta.
yo antes en visual 6.0 se lo asinaba asi STRDBPass = RS!Password
pero ahora no el .net esto no se puede

este es exactamente el mismo problema que acabo de postear hace 40 minutos atras.
yo tambien tengo ese problema en capturar los datos. Saludos y si lo consigo te aviso

dario1234

Aca esta la solucion

TextBox4.Text = tab1.Fields("nombre").Value & ""

tab1(nombre de la tabla)
nombre(nombre del campo)

si lo pones asi, te pasa el valor al text4. Saludos

Kal_El_00100


Kal_El_00100

Gracias dario, me andubo de 10, me aliviaste el dia. muchas gracias.
solo tuve que modificar.
en vez de poner la tabla tuve que poner RS que seria el recordset, pero despues nada mas
SAlu2