YOUR SERVER VISUAL BASIC
18 de Julio del 2004

ALGUIEN ME PUEDE DECIR CÓMO ELIMINAR REGISTROS DE UNA BD DE SQL SERVER 2000 DESDE VB,.... YA HE PODIDO HACER LA CONEXIÓN DE VB CON SQL SERVER E INCLUSO HE PODIDO INSERTAR REGISTROS MEDIANTE "INSERT TO...." SOLO QUE PARA ELIMINAR REGISTROS MEDIANTE EL SIGUIENTE CÓDIGO:

Private Sub Elimina_Click()
Set DB = New Connection
DB.CursorLocation = adUseClient
'DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "Evalua.mdb"
DB.Open "Provider=SQLOLEDB.1;" & _
"Integrated Security=SSPI;Persist Security Info=False;User ID=eval;Initial Catalog=Evaluasql;Data Source=powerwebsqlserver2000"
busca = CveAlumTxt.Text
SQL = "DELETE * FROM Alumno WHERE CveAlum = '" & busca & "'"
Set RS = DB.Execute(SQL)
End Sub

DONDE:
busca: es la clave del alumno que va a eliminar

ME MARCA UN ERROR EN

SQL = "DELETE * FROM Alumno WHERE CveAlum = '" & busca & "'"

DICIENDO " SINTAXIS INCORRECTA CERCA DE LA PALABRA CLAVE "*" " ¿A QUÉ SE DEBE?

semperfimxl
18 de Julio del 2004

Prueba con esto...

SQL = "DELETE FROM Alumno WHERE CveAlum = '" & busca & "'"
DB.Execute(SQL)