Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

473 - Command de Ado

Simple proyecto de ejemplo que usa el objeto Command de ADO para añadir nuevos registros a una base de datos

Controles :

Un CommandButton : Command1
Tres TextBox : Textbox1, Textbox2 y Textbox3
Un Datagrid : DataGrid1
La referencia Microsoft Activex data Objetcs
Base de datos con tres campos ( Nombre (texto), Apellido (texto) , DNI (numérico))

Código fuente

Option Explicit Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String Private Sub Ejecutar_Comando( _ sql As String, _ conexion As ADODB.Connection) ' nuevo Command Dim Comando As New ADODB.Command ' propiedades With Comando .ActiveConnection = cn ' Especificar la conexión a usar .CommandText = sql ' Especificar el Contenido del comando .Execute ' ejecutar el command Set Comando = Nothing ' Cargar los datos en la grilla Call Cargar_Grilla(DataGrid1) End With End Sub ' cargar la grilla con el contenido del rs Private Sub Cargar_Grilla(grilla As Object) rs.Requery Set grilla.DataSource = rs End Sub ' Command para Agregar un nuevo registro Private Sub CmdNuevo_Click() If Text1.Text = "" Or _ Text2.Text = "" Or _ Text3.Text = "" Then MsgBox "Datos incompletos", vbCritical, "Error ..." Exit Sub End If sql = "Insert Into Tabla " _ & "(Nombre,Apellido,DNI) " _ & "Values ('" & Text1.Text & _ "','" & Text2.Text & "'," _ & Text3.Text & ")" Call Ejecutar_Comando(sql, cn) End Sub Private Sub Form_Load() ' Abre la conexión, y el Recordset Call Iniciar_Conexion Set rs = New ADODB.Recordset With rs .CursorLocation = adUseClient .Open "Tabla", cn, adOpenStatic, adLockReadOnly, adCmdTable End With Call Cargar_Grilla(DataGrid1) CmdNuevo.Caption = "Nuevo registro" End Sub ' Inicializa la conexión ADO Public Sub Iniciar_Conexion() If cn Is Nothing Then Set cn = New ADODB.Connection With cn .CursorLocation = adUseClient .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ App.Path & "\db1.mdb" & ";Persist Security Info=False" End With End If End Sub ' Cierra un Recordset Sub Cerrar_Recordset(rst As ADODB.Recordset) If Not DataGrid1.DataSource Is Nothing Then Set DataGrid1.DataSource = Nothing End If If Not rst Is Nothing Then If rst.State = adStateOpen Then rst.Close Set rst = Nothing End If End Sub ' Cierra el objeto Connection Sub cerrar_Conexion(pCn As ADODB.Connection) If Not pCn Is Nothing Then If pCn.State = adStateOpen Then pCn.Close Set pCn = Nothing End If End Sub Private Sub Form_Unload(Cancel As Integer) Call Cerrar_Recordset(rs) Call cerrar_Conexion(cn) End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) ' solo valores numéricos If InStr("0123456789" & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub

Recursos visual basic 6.0

Ejemplos de Ado y vb 6

Buscar en Recursos vb