boton guardar y eliminar

[vampirito]

yo pense que esto me resultaria facil, pero veo que no son enchiladas, ya estube tratando y creo que ando perdido en el espacio.
¿¿¿alguien seria tan amable de decirme como es por favor???

estos son los codigos que he utilizado:

.AddNew !usuario = UCase(Trim(Text1)) & _
!contraseña = UCase(Trim(Text2)) & _
!nombre = UCase(Trim(Text3)) & _
!nivel = UCase(Trim(Text4))

.AddNew !usuario = Text1.text & _
!contraseña = Text2.text & _
!nombre = Text3.text & _
!nivel = Text4.text

de antemano gracias por su ayuda!!!!!

[Jasall]

[code]
.AddNew
!usuario = UCase(Trim(Text1))
!contraseña = UCase(Trim(Text2))
!nombre = UCase(Trim(Text3))
!nivel = UCase(Trim(Text4))
.Update

.AddNew
!usuario = Text1.text
!contraseña = Text2.text
!nombre = Text3.text
!nivel = Text4.text
.Update

[vampirito]

este es mi codigo:

Dim Sql As String
Dim Rst As New ADODB.Recordset

Sql = "Select * from usuarios where usuario = '" & UCase(Trim(Text1)) & "'"
With Rst
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Source = Sql
Set .ActiveConnection = cnn
.Open
If Not .EOF And Not .BOF Then
MsgBox "ya existe"
Else
.AddNew !usuario = UCase(Trim(Text1)) & _
!contraseña = UCase(Trim(Text2)) & _
!nombre = UCase(Trim(Text3)) & _
!nivel = UCase(Trim(Text4))
.Update MsgBox "Registro Guardado"
End If
End With
me marca error en la parte donde estan las letras amarillas.
el error es el siguiente:
el valor de bof o eof es true, o el actual registro se elimino; la operacion solicitada requiere un registro actual

[Frehley]

El primer registro que guardes siempre te va a tirar error. Poné On Error Resume Next al comienzo del evento y fijate si se guarda todo en la base de datos.

[vampirito]

ahora me marca:
error de compilacion
Se esperaba una funcion o variable.
y me marca esta parte del codigo en azul:

.AddNew!usuario = UCase(Trim(Text1)) & _
!contraseña = UCase(Trim(Text2)) & _
!nombre = UCase(Trim(Text3)) & _
!nivel = UCase(Trim(Text4))
.Update

[Jasall]

Código:

Dim Sql As String
Dim Rst As New ADODB.Recordset

Sql = "Select * from usuarios where usuario = '" & UCase(Trim(Text1)) & "'"
With Rst
    .LockType = adLockOptimistic
    .CursorType = adOpenKeyset
    .Source = Sql
    Set .ActiveConnection = cnn
    .Open
    If Not .EOF And Not .BOF Then
    MsgBox "ya existe"
    Else
       .AddNew
        !usuario = UCase(Trim(Text1))
        !contraseña = UCase(Trim(Text2))
        !nombre = UCase(Trim(Text3))
        !nivel = UCase(Trim(Text4))
        .Update
        MsgBox "Registro Guardado"
    End If
End With

[vampirito]

ok bueno, ya no me marca ningun error, solo hay un pequeño problema:
"NO GUARDA NADA"!!!!!

[Frehley]

Sacale el On Error Resume Next y decinos que error te tira. Cuando esté solucionado agregaselo de vuelta.

[vampirito]

el error es el siguiente:

error '-2147217873 (80040e2f)' en tiempo de ejecucion:
no se puede insertar el valor null en la columna 'nivel', tabla 'sistema.dbo.usuarios'.la columna no admite valores null.insert falla.

[vbx3m]

Puedes probar con este codigo...

Código:

Dim Rst As ADODB.Recordset
Set Rst= New ADODB.Recordset
Rst.CursorLocation=adUseClient
Rst.Open "Select * from usuarios where usuario = '" & UCase(Trim(Text1)) & "'", cnn, adOpenStatic, adLockOptimistic, adCmdText
If Not Rst.EOF Then
    MsgBox "ya existe"
Else
   Rst.AddNew 
   Rst!usuario = UCase(Trim(Text1)) 
   Rst!contraseña = UCase(Trim(Text2)) 
   Rst!nombre = UCase(Trim(Text3))
   Rst!nivel = UCase(Trim(Text4))
   Rst.Update
   Rst.Close
   Set Rst= Nothing  
   MsgBox "Registro Guardado"
End If

[vampirito]

ahora me manda:

referencia no valida o sin calificar
y me marca en azul:

If Not .EOF And Not .BOF Then

[vbx3m]

Claro... solo colocas

Código:

 If Not Rst.EOF Then .....

[vampirito]

yesssssssssssssssssssssssssssssss!!!!!!!!!!!!!!!
por fin!!!!!
ya quedo!!!!!!
ahora solo una pregunta????
la parte de eliminar es casi igual o solo le pongo????
rst.Delete

[vbx3m]

Ummm.. seria algo como

Código:

cnn.Execute "DELETE  FROM Tabla Where campo = '" & condicion & "'"

[vampirito]

ok, mil gracias!!!!
ya quedo!!!!

pongo el codigo completo para el que lo necesite

Option Explicit

Private cnn As ADODB.Connection
Private Rst As ADODB.Recordset

Private Sub Command1_Click()
Dim Rst As ADODB.Recordset
Set Rst = New ADODB.Recordset
Rst.CursorLocation = adUseClient
Rst.Open "Select * from usuarios where usuario = '" & UCase(Trim(Text1)) & "'", cnn, adOpenStatic, adLockOptimistic, adCmdText
If Not Rst.EOF Then
MsgBox "ya existe"
Else
Rst.AddNew
Rst!usuario = UCase(Trim(Text1))
Rst!contraseña = UCase(Trim(Text2))
Rst!nombre = UCase(Trim(Text3))
Rst!nivel = UCase(Trim(Text4))
Rst.Update
Rst.Close
Set Rst = Nothing
MsgBox "Registro Guardado"
End If
End Sub

Private Sub Command2_Click()
cnn.Execute "DELETE FROM usuarios Where usuario = '" & UCase(Trim(Text1)) & "'"
End Sub

Private Sub Form_Load()
Set cnn = Nothing
Set Rst = Nothing
Set cnn = New ADODB.Connection
Set Rst = New ADODB.Recordset

cnn.ConnectionString = "Provider= SQLOLEDB.1;" & _
"Persist Security Info= False;" & _
"Integrated Security= SSPI;" & _
"Password= sa; User ID= sa; " & _
"Initial Catalog=sistema; " & _
"Data Source= (local);"
cnn.Open

End Sub