#6 Re: URGENTE ! Necesito ayuda, alguien que sepa programar en VB6 y consultas SQL ?
Bueno, no se si ya sera medio tarde, sin embargo nunca esta demas dejar la respuesta para que otro usuario un tiempo despues pueda leer la respuesta y resolver su problema
Aca, a continuacion, pongo un formulario conde tengo 3 label, 3 textbox y 5 botones.
Los label's se llaman:
- Label1 = "Caption=Nombre"
- Label2 = "Caption=Apellido"
- Label3 = "Caption=Direccion"
Luego tengo 3 textbox
- Text1
- Text2
- Text3
Luego tengo 5 Botones
- btnAlta = Boton de alta --- "Caption=Alta - Crear"
- btnBaja = Boton de Baja --- "Caption=Baja - Borrar"
- btnMoficacion = Boton de Modificacion --- "Caption=Modificacion - Editar"
- btnAtras = Boton para recorrer los registros para Atras --- "Caption=<<"
- btnAdelante = Boton para recorrer los registros para Adelante--- "Caption=>>"
El formulario Queda, asi:
Bueno y los codigos de los botones y formulario son asi:
Código:
Option Explicit
Dim Conexion As ADODB.Connection
Dim SQL As ADODB.Recordset
Dim ID As Integer
'--------------------------------------------------------------------------------
Private Sub Form_Load()
Set Conexion = New ADODB.Connection
Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBase.mdb;Persist Security Info=False"
Set SQL = New ADODB.Recordset
SQL.Open "SELECT TOP 1 Usuarios.ID, Usuarios.Nombre, Usuarios.Apellido, Usuarios.Direccion FROM Usuarios", Conexion, adOpenDynamic, adLockPessimistic
ID = SQL!ID
Text1 = SQL!Nombre
Text2 = SQL!Apellido
Text3 = SQL!Direccion
SQL.Close
End Sub
'--------------------------------------------------------------------------------
Private Sub btnAlta_Click(Index As Integer)
SQL.Open "SELECT Max(Usuarios.ID) AS Maximo FROM Usuarios", Conexion, adOpenDynamic, adLockPessimistic
ID = SQL!Maximo + 1
SQL.Close
SQL.Open "SELECT * FROM Usuarios", Conexion, adOpenForwardOnly, adLockPessimistic
SQL.AddNew
SQL!ID = ID
SQL!Nombre = Trim(InputBox("Ingrese el Nombre", "Inputar Nombre"))
SQL!Apellido = Trim(InputBox("Ingrese el Apellido", "Inputar Nombre"))
SQL!Direccion = Trim(InputBox("Ingrese el Direccion", "Inputar Nombre"))
Text1 = SQL!Nombre
Text2 = SQL!Apellido
Text3 = SQL!Direccion
SQL.Update
SQL.Close
End Sub
'--------------------------------------------------------------------------------
Private Sub btnBaja_Click()
SQL.Open "DELETE Usuarios.Nombre, Usuarios.Apellido, Usuarios.Direccion FROM Usuarios WHERE Usuarios.ID=" & ID & ";", Conexion, adOpenDynamic, adLockPessimistic
End Sub
Private Sub btnAtras_Click()
SQL.Open "SELECT TOP 1 Usuarios.ID, Usuarios.Nombre, Usuarios.Apellido, Usuarios.Direccion FROM Usuarios WHERE Usuarios.ID < " & ID & " ORDER BY Usuarios.ID DESC;", Conexion, adOpenDynamic, adLockPessimistic
If Not SQL.EOF Then
ID = SQL!ID
Text1 = SQL!Nombre
Text2 = SQL!Apellido
Text3 = SQL!Direccion
End If
SQL.Close
End Sub
'--------------------------------------------------------------------------------
Private Sub btnAdelante_Click()
SQL.Open "SELECT TOP 1 Usuarios.ID, Usuarios.Nombre, Usuarios.Apellido, Usuarios.Direccion FROM Usuarios WHERE Usuarios.ID > " & ID & " ORDER BY Usuarios.ID ASC;", Conexion, adOpenDynamic, adLockPessimistic
If Not SQL.EOF Then
ID = SQL!ID
Text1 = SQL!Nombre
Text2 = SQL!Apellido
Text3 = SQL!Direccion
End If
SQL.Close
End Sub
'--------------------------------------------------------------------------------
Private Sub btnModificacion_Click()
SQL.Open "SELECT Usuarios.ID, Usuarios.Nombre, Usuarios.Apellido, Usuarios.Direccion FROM Usuarios WHERE Usuarios.ID=" & ID & ";", Conexion, adOpenDynamic, adLockPessimistic
SQL!ID = ID
SQL!Nombre = Trim(Text1)
SQL!Apellido = Trim(Text2)
SQL!Direccion = Trim(Text3)
SQL.Update
SQL.Close
End Sub
Bueno, supongo que si sabes SQL y lo mas basico de VB con este ejemplo te arreglas tranquilamente.
Pero por si las dudas, te dejo el proyecto con el proyecto funcionando.
Lo subo al foro y a 4shared.
http://www.4shared.com/file/14608687...ificacion.html 
