Ver Mensaje Individual
  #3 (permalink)  
Antiguo 19/05/2004, 06:05
Avatar de GeRuNdIo
GeRuNdIo
 
Fecha de Ingreso: marzo-2004
Ubicación: Sanlúcar de Barrameda, Cádiz
Mensajes: 232
Antigüedad: 21 años
Puntos: 2
Mensaje Claro hombre!! como no....

Espero que te sirva de algo el código que te pasteo....
Por si te sirve de algo, me funciona perfectamente. El lenguaje que estoy usando como comprobarás es VB.NET (VS .NET)
El orígen de datos que utilizo es SQL SERVER, si estas usando MDB (Acces) me lo dices y te digo las modificaciones.

Dim conexion as SqlConnection("server=(local);database=prueba;user =sa;")
Dim sql as string

sql = "SELECT * FROM CLIENTES WHERE COD_CLIENTE=" & WebForm2.cod_cliente
Dim consulta as new SqlCommand(sql, conexion)
conexion.Open()
Dim dr As SqlDataReader = consulta.ExecuteReader
While dr.Read
Me.lblnom.Text = dr("nombre_cliente") 'Campo obligatorio

If Not dr.IsDBNull(1) Then 'Comprobamos que no es NULL
Me.lblpass.Text = dr("password")
End If
If Not dr.IsDBNull(3) Then
Me.lblrs.Text = dr("razon_social")
End If
If Not dr.IsDBNull(4) Then
Me.lbldomi.Text = dr("domicilio_cliente")
End If
If Not dr.IsDBNull(5) Then
Me.lblpob.Text = dr("poblacion")
End If
If Not dr.IsDBNull(6) Then
Me.lbltlf.Text = dr("tlf")
End If
If Not dr.IsDBNull(7) Then
Me.lblmail.Text = dr("correo")
End If

End While
conexion.Close()

Ahora te pongo un ejemplo de INSERT:

Dim Sql_insert as string

Sql_Insert = "INSERT INTO LOG VALUES ('" & WebForm2.cod_cliente & "','" & _
cod_app & "','" & datetime & "','" & WebForm1.IP & "','" & cod_inci & "')"

Dim Insercion as New SqlCommand(Sql_Insert, conexion)

conexion.Open()
Insercion.ExecuteNonQuery()
conexion.Close()

Para UPDATE y DELETE es basicamente igual, tan solo cambia la consulta sql.

Espero te sirva de ayuda!!!
__________________
Una buena forma de sacar las castañas del fuego sin quemarse: LEE FOROSDELWEB..... :si:
------
F.P.R. MCAD .NET