Como abro una tabla en vb6

[tobonfer]

Bunas tardes

Cual es el procedimiento para abrir una tabla en vb6 y poder grabar los datos en ella

Gracias de antemano

[fradve]

Pues hay varias formas de hacerlo. hay de la forma fácilisima que el código que realizas es mínimo por ejemplo:

insertar un control ADODC en tu formulario, luego le haces clic derecho y seleccionas la opción propiedades,

en la primera pantalla das clic en el botón GENERAR

luego te aparace una ventana que te solicitará cual es el gestor de base de datos que usas que si es access o SQL entre otros selecciónas el que esté utilizando, y das clic en siguiente,

de acuerdo a la opcion que elijas será la siguiente pantalla, por ejemplo si seleccionas access te solicitará el directorio y nombre donde se encuentra la base de datos, se le proporcionas y das clic en probar conexion a ver si el proceso ha sido exitoso.

Luego das clic en aceptar y te dirijes a la pestaña origen de registros y en Tipo de Comando Seleccionas adCmdTable y se te presentarán todas las tablas que haya en tu base de datos y la seleccionas del combo "tabla o nombre de procedimiento almacenado", y das clic en el botón aceptar. Ya tienes hecha la conexión.

Ahora tienes que ingresar controles en tu formulario como cajas de texto para que puedas interactuar con la base de datos, así:
____________
Nombre: |____________ |

____________
Apellido: |____________ |

Y lo campos que tengas, ahora selecciona la primera caja de texto correspondiente al campo nombre de la tabla y te dirijes al cuadro de propiedades y buscas DataSource y escojes el control ADO que ingresaste primero, luego buscas la propiedad DataField que es el campo entonces seleccionas el correspondiente al control, en este caso nombre y así con los demás controles.

Ahora para poder agregar datos tienes que primero crear un registro en blanco y eso lo hace de esta manera:

ADO.recordset.addnew

Con eso has creado un registro en blanco

y puedes escribir en las cajas de texto lo que quieras ingresar, ahora para poder guardarlo debes usar lo siguiente:

ADO.recorset.update

Y listo se ha guardado tu registro en la base de datos.

-------------------------------------------------------------------------

La otra manera es mediante código, por ejemplo aquí nos vamos a conectar con una base de datos de access 2007:

Código vb:

Dim cn As ADODB.Connection
Dim res As ADODB.Recordset
Dim conexion As String
 
Private Sub Form_Load()
    Set cn = New ADODB.Connection
    conexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Data.accdb;Persist Security Info=False"
                            
    cn.ConnectionString = conexion
    cn.Open
    
    Set res = New ADODB.Recordset
    With res
        .ActiveConnection = cn
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
    End With
End Sub
 

ahora dentro de tu botón guardar colocas lo siguiente:

res.Open "INSERT INTO Alumnos VALUES('" & txtNombre.Text & "','" & txtApellido.Text & "')"

Y de esa manera ya se guarda lo que hayas puesto en las cajas de texto mencionadas.

Cualquier duda posteala...