03/10/2004, 06:56
| |||
| |||
 Reiniciar Base de Datos Hola Amigos  Bueno, necesito hacer un Botón que cuando le de Click me pide una Contraseña ejemplo test y que cuando le dé a Aceptar me Reinicie la base de Datos es deci si tenía 5 Usuarios ahora que no tenga ningúno. La Base de Datos la tengo en Access. Espero Respuesta Saludos |
|
03/10/2004, 18:39
| |||
| |||
| Haber, dejame ver si entendí. En el Botón cmdBorrar le pongo el siguiente Codigo ? Private Sub cmdBorrar_Click() .Open "DELETE FROM Cliente" .Open "SELECT * FROM Cliente" End Sub Si es así probé y me dá Error Saludos |
|
03/10/2004, 22:41
| |||
| |||
| No, no es así como te lo dí.. lo que tenés que hacer es ponerle lo que haga falta.. no sé como estás accesando las bases de datos, no se como le abrás puesto a tu recordset.. Recordset.Open.. etc.. Datos.rsRecordset.Open.. etc fijate en que forma estás usando el OPEN para abrir las bases de datos, entonces adicioná la línea CLOSE para cerrar la base de datos, luego el OPEN con el DELETE y luego el OPEN con el SELECT para que la base esté disponible para seguir agregando registros, si no te quedaría inaccesible. Espero que me hayás entendido.. nos vemos!! |
|
04/10/2004, 05:22
| |||
| |||
| Hola Amigo Mira el siguiente Código es como tengo Formulada mi Conexión la la Base de Datos: Set Cn = New ADODB.Connection Set Rs = New ADODB.Recordset Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BDBuyOnlineWithUs.mdb" & ";" Rs.ActiveConnection = Cn Rs.CursorType = adOpenKeyset Rs.LockType = adLockOptimistic Rs.Open "Select * From Cliente" Ahora en que parte le agrego el Codigo tuyo ? |
|
04/10/2004, 20:54
| |||
| |||
| Hola Amigo Listo ya funciona, jeje peo tengo Varios Incombenientes: 1- Porque en vez de Comenzar en el ID 1 comienza en el No. que le sigue al ultimo registro realizado antes de Borrar la Base de Datos. 2- Como hago para que borre los 4 Compos me refiero a las SubBases que componen a BDBuyOnlineWithUs.mdb --Cliente --Factura --Producto --Empresa Espero que me Ayudes. Saludos |
