Cómo vb llama al procedimiento almacenado SQL
atenuar myRecord como objeto
Atenuar mySQL como cadena
Atenuar strSQL como cadena
Establecer myconn createobject ("adodb .connect")' para crear el objeto.
Establezca myconn createobject ("adodb.connection")' para crear el objeto.
Private subform_Load()
Anotar mySQL como una cadena
Atenuar strSQL como una cadena
Establece la cadena de caracteres de conexión.
mySQL = "Provider=Microsoft.Jet.OLEDB.4.0 Información de seguridad persistente=False"
mySQL = mySQL+" Fuente de datos = "&App. Caminos y caminos. " \Product.mdb "
MiConn. ConnectionString = mySQL 'Establece la cadena de conexión.
MsgBox mySQL
MyConn. "Abrir" abre la conexión.
Mi récord. ' activeConnection = myconn 'Establece el objeto de conexión de RecordSeet en Conexión.
StrSQL = "select * from Products " 'Establece la cadena de consulta.
Abre miRegistro.
Mi récord. openstrSQL, adOpenDynamic, adLockOptimistic
showdata
showdata
conector final
subshowdata privado()
En caso de error continúa con el siguiente paso
Número de producto
Texto1. Texto = miRegistro. campo("IDProducto"). Valor
Nombre del producto
Texto2. Texto = miRegistro. Campo ("Nombre del producto"). Valor
Número de proveedor
SMS 3. Texto = miRegistro. campo ("ID del proveedor"). Valor
Número de categoría
Texto 4. Texto = miRegistro. Campos("ID de categoría "). Valor
Cantidad unitaria
Texto5. Texto = miRegistro. campo("CantidadPorUnidad"). Valor
Precio unitario
Texto 6. Texto = miRegistro. Campo ("Precio unitario"). Valor
Cantidad de stock
SMS 7. Texto = miRegistro. Campos("Unidades en stock "). Valor
Cantidad del pedido
Texto 8. Texto = miRegistro. campos("UnidadesEnOrden"). Valor
Repuntuación
Texto 9. Texto = miRegistro. campo ("ReorderLevel"). valor
Conector final
Evento después de hacer clic en el botón
Subcomando privado 8_Click()
Mueve el registro al siguiente elemento El método es MoverSiguiente.
Antes de llamar al método MoveNext, primero debe determinar si se ha excedido el último registro.
Si se excede el último registro, se producirá un error si se ejecuta MoveNext nuevamente.
Si no es mi expediente. Así que EOF
mi récord. Siguiente paso
Otro
Además del registro final, utilice MoveLast para restaurar el registro final.
Mi récord. MoveLast
Terminará si...
Mostrar datos
Mostrar datos
Finalizar conector
Botón Anterior Evento de clic
Subcomando privado 7_Click()
Determine si se excede el registro del encabezado.
Si se excede el registro del encabezado, se producirá un error si se ejecuta MovePrevious nuevamente.
Si no es mi expediente. Entonces vamos a BOF
Mi récord. Mueva Anterior
Otro
más allá del registro de título.
Utilice MoveFirst para restaurar el apuntamiento al primer registro.
Mi récord. MoveFirst
Terminará si...
Mostrar datos
Mostrar datos
Conector final
Registro de cola botón Evento de clic
Subcomando privado 9_Click()
Llamadas a MoveLast
Mi registro. MoveLast
Mostrar registros
Mostrar datos
Conector final
Subcomando privado 5_Click()
Llamar a Recordset El El método cancelUpdate del objeto cancela el guardado de datos.
Mi récord. Cancelar actualizaciones
Mi registro. MoveFirst
Mostrar datos
Mostrar datos
Conector final
Registrar evento de clic en el botón por primera vez
Subcomando privado 6_Click()
Llame a MoveFirst para moverse.
Mi récord. MoveFirst
Mostrar registros
Mostrar datos
Conector final
Subcomando privado 4_Click()
Cuando se produce un error ocurre Continúe con el siguiente paso
Guardar datos requiere programación.
Número de producto
El número de producto no puede estar vacío.
Si Texto1. Text = " "Entonces
MsgBox "¡El número de producto no puede estar vacío!"
Text1. SetFocus
Conector de salida
Terminará si...
Otros cuadros de texto tienen juicios similares y se omiten aquí.
Guardar número de producto
Mis registros. campo("IDProducto"). Valor = Val(Text1.Text)
Guardar nombre del producto
Mi registro. Campo ("Nombre del producto"). valor = texto2. Texto
Guardar número de proveedor
Mi registro. campo ("ID del proveedor"). Valor = Val(Text3.Text)
Guardar número de categoría
Mi registro. Campos("ID de categoría "). Valor = Val(Text4.Text)
Guardar cantidad unitaria
Mi registro. campo("CantidadPorUnidad"). valor = texto5. Texto
Guardar precio unitario
Mi registro. Campo ("Precio unitario"). Valor = Val(Text6. Texto)
Guardar cantidad de inventario
Mi registro. Campos("Unidades en stock "). valor=texto7. Texto
Guardar la cantidad del pedido.
Mi récord. campos("UnidadesEnOrden"). Valor = Val(Text8.Text)
Guardar el nivel de reorden.
Mi récord. campo ("ReorderLevel"). Valor = Val(Text9.Text)
Llame al método de actualización del objeto del conjunto de registros para guardar los datos.
Mi récord. Actualizar
Mostrar datos
Mostrar datos
Finalizar adaptador