Red de conocimiento informático - Problemas con los teléfonos móviles - El código de consulta de la base de datos VB 6.0 no funciona, ¡por favor avise!

El código de consulta de la base de datos VB 6.0 no funciona, ¡por favor avise!

El siguiente código se basa en los siguientes 4 supuestos:

1. El nombre del control es:

Hay 3 cuadros de texto de arriba a abajo: Texto1, Texto2, Texto3

El nombre del control ADO es: Nombre del control ADO: Adodc1, el nombre del control grid es: DataGrid1

: DataGrid1

2, según el imagen que proporcionó, el campo [Grado de acero] es un tipo de carácter, [OD] y [Espesor de pared] son ​​tipos numéricos.

3. El nombre del archivo de su base de datos es "database.mdb" y se guarda en la misma carpeta que este archivo de proyecto.

4. La tabla de datos que está utilizando se llama "Tabla de datos de acero".

Luego, en el evento de clic del botón [consulta], escriba el siguiente código para cumplir con sus requisitos:

Adodc1..0;DataSource=" & App.Path & "\ Database.mdb;Persist Security Info=False"

Adodc1.RecordSource = "seleccione * De la tabla de datos de acero donde Grado de acero = '" & Text1.text & "' Y diámetro exterior = " & trext2.text & " Y espesor de pared = " & text3.text

Adodc1.Refresh

Si No (Adodc1.Recordset.EOF y Adodc1.Recordset.BOF) Luego

Establezca DataGrid1.DataSource = Adodc1

Else

MsgBox "¡No encontrado!" /p>

Fin DataGrid1.DataSource = Adodc1

Else

MsgBox "¡No encontrado!

Fin si

上篇: ¿Es posible reducir el tamaño total de los píxeles en PS manteniendo sin cambios la altura y el ancho de los píxeles? 下篇: Compartiendo la dirección del sitio web oficial del juego móvil "Above the Qimen"

Artículos populares