¿Algunas preguntas sobre el objeto de conjunto de registros en el control de datos vb6?
Nota: "VB agregar contraseña de base de datos mdb. rar" solo se puede usar para agregar contraseñas a archivos de base de datos mdb sin contraseñas, y la contraseña no se puede eliminar ni cambiar. "Nota: este programa utiliza controles de datos para conectarse a la base de datos MDB. Si el programa publicado es una versión sin instalación, debe haber tres archivos: DAO350.DLL, MSJET35.DLL y VB5DB.DLL, y deben ser registrado como DAO350.DLL y MSJET35.DLL; de lo contrario, el programa no puede ejecutarse normalmente. ¿Opción ExplicitPrivate()
Cargar base de datos
Código de error de verificación de información de base de datos? >
¿Encendido? Errmdbs:' ' ' 'Datos 1.
''Datos1.Base de datos?=?Aplicación.&? MDB. contraseña123456 "
''''if? directorio(app.path?&?" \MDB mddbase.mdb .contraseña123456 ", vbReadOnly? o ?vbHidden? o ?vbSystem)?=?"
'''''?MsgBox?" Error del sistema: ¡El archivo de base de datos especificado no existe o está dañado! ",?0?+?16?+?0,?"El programa finaliza"
'''''?End
''''End?If
Conexión a base de datos sin contraseña
Datos1.=?"Acceso"?=?App.path? \MDB "
if? directorio(app.path?&?" \MDB mddbase.mdb ", vbReadOnly? o? vbHidden? o? vbSystem)?=?""?entonces
MsgBox? "Error del sistema: ¡El archivo de base de datos especificado no existe o está dañado! ",?0?+?16?+?0,?"Programa terminado"
Fin
¿Fin? Si
Datos 1. ¿Fuente del registro?= ?"MDBdate"?Entrada de la tabla de la base de datos
"Refresh" activa la operación del control Data1, haciéndolo efectivo para la operación de la base de datos
Datos 1. Actualiza los datos, esto es. necesario en algunos casos o métodos, de lo contrario los datos no se guardarán en la base de datos
Data 1. ' Recordset.Close 'Cierra la base de datos conectada al control Data1 antes de usarla. utilice "Datos1. Recordset.Update "Para guardar los datos.
Datos 1.' Recordset.AbsolutePosition 'Obtiene el número de secuencia del puntero de datos actual "datos 1. conjunto de registros" y selecciona la primera fila de datos.
p>
Datos 1. 'Recordset.MoveLast? 'Seleccione la última fila de datos 1. ¿Mover? n 'Seleccione la primera fila de datos = 0?
Errmdbs:
¿Y si? ¿error? =?"La contraseña no es válida."? Entonces
¿MsgBox? "En serio: ¡La contraseña de inicio de sesión de la base de datos es incorrecta y el programa finalizó!",?0?+?16?+?0,?"Error"
Fin
Fin? Si
MsgBox? "Error del sistema: ¡El archivo de base de datos especificado no existe o está dañado!",?0?+?16?+?0,?Fin de "Terminación del programa"
¿Fin? ¿Subprivado? ¿Sub? Command2_Click()? Añadir datos
Datos1. ' Recordset.AddNew 'La función de agregar datos está activada (la adición comienza desde la última fila por defecto).
Crecimiento de datos
Datos 1. conjunto de registros.campo(0)? ="Información número 3", ¿cuál es el tipo de datos? Entero
Datos1. conjunto de registros.campo(1)? =?"王五"? Información del nombre, ¿cuál es el tipo de datos? Línea
Datos1. conjunto de registros.campo(2)? =?"789"?Información de contraseña, ¿cuál es el tipo de datos? Línea
Datos1. conjunto de registros.campo(3)? =?"
"'Información de ruta', ¿cuál es el tipo de datos? Línea
Datos1. "Recordset.Update" actualiza los datos. En algunas situaciones o métodos, es necesario actualizar los datos; de lo contrario, los datos no se guardarán en la base de datos.
Datos 1. "Refresh" activa el funcionamiento del control Data1, haciéndolo efectivo para las operaciones de la base de datos.
¿Fin? ¿Subprivado? ¿Sub? Command3_Click()? Eliminar datos
Datos1. Conjunto de registros.MoveLast? Seleccione la última fila de datos.
Datos 1. Recordset.Delete 'La función de eliminación de datos está activada (el valor predeterminado es eliminar la primera fila de datos).
Datos 1. "Refresh" activa el funcionamiento del control Data1, haciéndolo efectivo para las operaciones de la base de datos.
¿Fin? ¿Subprivado? ¿Sub? Command4_Click()? Buscar datos
Datos1. Conjunto de registros. ¿Buscar primero? "¿Nombre? ¿Por ejemplo? "John Doe"
Juicio del resultado de la búsqueda
¿Si? Datos 1. Recordset.NoMatch? =? ¿Falso? Entonces
¿MsgBox? "¿Lo encontraste? Nombre = ¿John Doe? "," fila de datos? 0?+?64?+?0,?"Éxito"
Otro
¿MsgBox? "¿No encontrado? ¿Nombre = Johnnie?", "¿fila de datos? 0?+?16?+?0,?"Error"
¿Fin? Si
MsgBox?data 1. 'Recordset.AbsolutePosition' ¿Obtener el número de secuencia del puntero de datos actual? Sub? Command5_Click()? ¿Mover? ¿Datos? El número de serie de la primera fila es 0.
¿Editar? Se modifican los datos de la primera fila
Escribir
RecordSet.Field(0)?=?"31"
RecordSet.Field(1)?
Data1.RecordSet.Field(2)?=?"Nueva contraseña 789"
Data1.RecordSet.Field(3)?" \ \Nueva 789 \Nueva 789 "
Datos 1. "Recordset.Update" actualiza los datos. En algunas situaciones o métodos, los datos deben actualizarse; de lo contrario, los datos no se guardarán en la base de datos.
Datos 1. "Actualizar" activa el funcionamiento del control Data1.
Fin? Sub? Command6_Click()? Exportar datos (excepto la primera fila de datos) /p>
Conjunto de registros. El número de secuencia de 2 es 0.
¿Título =?
Recordset.Field(0)
Etiqueta2. ¿título? =?Datos1. Recordset.Field(1)
Etiqueta 3. ¿título? =?Datos1. Recordset.Field(2)
Etiqueta 4. ¿título? =?Datos1. Recordset.Field(3)
¿Fin? ¿Subprivado? ¿Sub? Command7_Click()? Obtener datos de la sede
Datos 1. Conjunto de registros.MoveLast? ¿Mover el puntero al último registro de la tabla? Esta línea se agrega principalmente para reducir las respuestas incorrectas causadas por daños a la propia base de datos. Si el puntero no puede apuntar a la última línea, el sistema informará un error.
Etiqueta 6. ¿título? =?Datos1. Recordset.RecordCountEnd? ¿Subprivado? ¿Sub? Command8_Click()? La idea de la numeración automática
Recorra el número total de filas en la base de datos y edite sincrónicamente el valor debajo del elemento de numeración de cada fila para lograr el propósito de modificar los números por lotes.
Datos 1. Conjunto de registros.MoveLast? ¿Mover el puntero al último registro de la tabla? Esta línea se agrega principalmente para reducir las respuestas incorrectas causadas por daños a la propia base de datos. Si el puntero no puede apuntar a la última línea, el sistema informará un error.
¿Oscuro? ¿I? ¿Como? Largo
¿Para qué? ¿I? =?0?¿Adónde ir? Datos 1. Conjunto de registros.RecordCount? -?1
datos 1. conjunto de registros. movefirst 'Comienza desde la primera fila, la dirección es hacia abajo. (Esta línea debe agregarse al control de datos; de lo contrario, confundirá la dirección de búsqueda).
Datos 1. conjunto de registros. ¿mover? Yo
Datos1. conjunto de registros. ¿editar? Función modificar datos activada
Datos 1. conjunto de registros.campo(0)? =?Yo? +?1?Escribir información (número que aumenta automáticamente)
Datos 1. "Recordset.Update" actualiza los datos. En algunas situaciones o métodos, es necesario actualizar los datos; de lo contrario, los datos no se guardarán en la base de datos.
Datos 1. "Refresh" activa el funcionamiento del control Data1, haciéndolo efectivo para las operaciones de la base de datos.
¿Salir? para
entonces
finalizar? ¿Subprivado? ¿Sub? Command1_Click()
Datos 1. 'Cierre la base de datos conectada por el control Data1 y preste atención a "Data1. Antes de usar los datos, debe usar "Recordset.Update" para guardar los datos.
Fin
¿Fin? Sub?
Introducción a la base de datos de VB:
1: VB crea un archivo de base de datos;
1-1: Inicia el complemento del editor de VB (a )-visual data manager (v)-Archivo (f)-Nuevo (n)-Microsoft Access (m)-Versión 7.0 MDB (7)
1-2: Cree una ventana, ingrese el nombre del archivo (como la base de datos MDB) -Guardar
Ingrese a la ventana de la base de datos
1-3: haga clic derecho en Propiedades-Crear nueva tabla (t)
. Ingrese a la interfaz de estructura de la tabla
1-4: Nombre de la tabla (n) (por ejemplo, MDBdate) - Agregar campo (a)
1-5: Nombre - tipo - tamaño - campos fijos/variables -. longitud cero permitida - requerida, otros parámetros se configuran según la situación
1-6: bucle 1-5 para crear múltiples formularios - cerrar
Regrese a la interfaz de estructura de tabla. si no hay errores, genere la tabla (B
Regresar a la interfaz de la base de datos
1-7: haga clic derecho en MDBdate - Abrir (o)
<. p>Ingrese a la interfaz de edición de la base de datos1-8: Agregar (a) - Edite la información correspondiente según la situación - Actualizar (u)
1-9: Bucle 1. -8 para agregar más información - Cerrar (c)
Regresar a la interfaz de la base de datos
1-10: En este punto, la base de datos se ha establecido y el administrador de datos visuales puede ser ahorquillado.
2. Archivo de base de datos de conexión VB:
2-1: Iniciar el editor VB-crear nuevo proyecto
2-2: Agregar proyecto de control (P) - Componente (O) - Marque "Microsoft flex grid Control 6.0" - Aplicación (A)
2-3: dibuje dos controles Data1 y MSFlexGrid1 en el formulario.
2-4: Propiedades básicas del control datos 1
datos 1. caption="Nombre de los datos 1"
Datos 1. DatabaseName = "Configuración de ubicación de la base de datos Data1 que se conectará" o en el código (como ruta de la aplicación y "\mdb base de datos. MDB")
data 1. record source = "Los datos 1 están conectados a la nombre de la tabla de la base de datos"? El nombre de la nueva tabla que creamos arriba es "MDBdate", por lo que usamos "MDBdate" aquí.
Datos 1. RecordsetType = El control Data1 tiene tres valores para el modo de operación de la base de datos: Table = Control total (actualización inmediata de datos) Dynaset = Control total (actualiza datos después de guardar manualmente o guardar código, valor predeterminado (valor recomendado)) Instantánea = leer Modo solo (los datos no se pueden actualizar).
Datos 1. exclusivo = False/true base de datos * * * modo exclusivo o modo exclusivo (False es * * * modo exclusivo, el valor predeterminado).
datos 1. readonly = false/true si el archivo de la base de datos se puede modificar. (Falso es el modo de escritura, el valor predeterminado)
datos 1. visible = verdadero/falso (si el control de datos 1 es visible)
2-5: Propiedades básicas del control msflexgrid 1
fuente de datos msflexgrid 1 = "fuente de datos de msflexgrid 1"? (Simplemente configúrelo en "Data1", porque hemos usado Data1 para conectarnos a la base de datos especificada, y MSFlexGrid1 es básicamente un control de visualización de datos).
2-6: Completado, el código de depuración puede explorar los datos de la base de datos en el control MSFlexGrid1.
Nota: Si el entorno de desarrollo VB utiliza controles de datos para conectarse a la base de datos MDB, si el programa lanzado es una versión sin instalación, debe haber tres archivos: DAO350.DLL, MSJET35.DLL y VB5DB.DLL y deben registrarse como DAO350.DLL, MSJET35.DLL; de lo contrario, el programa no podrá ejecutarse normalmente.
Nota: VB Visual Database Manager no puede crear archivos de base de datos ACCESS mdb con contraseñas ni agregar contraseñas, pero puede usar Microsoft Access para administrar la contraseña de los archivos de bases de datos mdb o usar "VB append mdb Database password.rar". para agregar contraseñas al archivo de base de datos mdb.
Nota: Debido a que la contraseña para el archivo de base de datos ACCESS mdb es muy débil y hay muchos buscadores de contraseñas en Internet, no importa si el archivo de base de datos ACCESS mdb tiene una contraseña.
Nota: "VB agregar contraseña de base de datos mdb. rar " solo se puede usar para agregar contraseñas a archivos de base de datos mdb sin contraseñas y no se puede eliminar ni cambiar.
********************************************* *** **********
Si ve esto, casi ha dominado las operaciones básicas de datos + mdb y solo necesita una combinación de código razonable para completarlo. Por ejemplo, las funciones como eliminación y modificación del ejemplo anterior son todas para filas específicas. Si coincide con la función de búsqueda, puede eliminar o modificar la fila especificada. No he probado el problema de la fecha sobre el que preguntaste. Supongo que es un problema de conversión de estados de cuenta. En segundo lugar, puede intentar determinar la fecha de división y luego volver a combinarla.
Además, tengo un ejemplo de un administrador de disco personal creado por data+mdb para uso de usuarios de cibercafés. Si lo necesitas puedes pedírmelo. ¡Finalmente te deseo éxito!