Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   SQL Server (http://www.forosdelweb.com/f87/)
-   -   aliminar desde visual con SQL server 2005 (http://www.forosdelweb.com/f87/aliminar-desde-visual-con-sql-server-2005-a-579686/)

cibernet 24/04/2008 15:56

aliminar desde visual con SQL server 2005
 
ola! disculpen necesito ayuda soy nuevo aqui y tambien programando con SQL server mi problema es el siguiente, realizo la busqueda y una vez teniendo los datos necesito eliminarlospero no puedo, la base de datos esta se encuentra ubicada en el servidor (de hecho la conexion ya esta eralizada) estoy utilizando el siguinte codigo para eliminar pero me marca error y ya no se que hacer.. ayudenme por favor es urgente!!... de anetamno le doy las gracias.

Private Sub KewlButtons3_Click()
Set cmd = New ADODB.Command
Set rsACS = New ADODB.Recordset
Set rsACS2 = New ADODB.Recordset

' Establecimiento de conexion
Set cmd.ActiveConnection = cnn1

cmd.CommandText = _
"select count(*) as sCNT from alumno where partcipante = '" & Trim(Text1.Text) & "'"


rsACS.Open cmd, , adOpenDymanic, adLockBatchOptimistic

rsACS.MoveFirst
Do While Not rsACS.EOF
If (rsACS!sCNT > 0) Then
' Monitor "El ambito " & cIDAbrev & " Ya existe en la B.D."

Else
cmd.CommandText = "DELETE alumno FROM ('" & partcipante = Text1.Text & "','" & evento = Text2.Text & "','" & fecha = Text3.Text + "','" & planta = Text4.Text & "','" & turno = Text5.Text + "','" & habitacion = Text5.Text + "')"
Text1.SetFocus
rsACS2.Open cmd, , adOpenDymanic, adLockBatchOptimistic

End If
rsACS.MoveNext
Loop
rsACS.Close
Unload Me
MsgBox "Datos Eliminados"

End Sub


espero una pronat respuesta gracias.

RobiBaggio 24/04/2008 16:33

Re: aliminar desde visual con SQL server 2005
 
Viene de Ayuda General.

flaviovich 24/04/2008 17:15

Re: aliminar desde visual con SQL server 2005
 
Código:

cmd.CommandText = _
  "DELETE FROM alumno " & _
  "WHERE partcipante = '" & Text1.Text & "' AND evento = '" & Text2.Text & "' AND fecha = '" & Text3.Text & "' AND planta = '" & Text4.Text & "' AND turno = '" & Text5.Text & "' AND habitacion = '" & Text5.Text & "'"


iislas 24/04/2008 17:33

Re: aliminar desde visual con SQL server 2005
 
Te sugiero, como ya lo he mencionado en otros casos, que desarrolles CLIENTE-SERVIDOR, esto es, CERO codigo T-SQL en tu front (VB) y pura ejecucion de Store Procedure.


La zona horaria es GMT -6. Ahora son las 00:17.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.