La Red de Conocimientos Pedagógicos - Currículum vitae - No conozco el código de consulta de la base de datos VB 6.0, ¡dame algún consejo!

No conozco el código de consulta de la base de datos VB 6.0, ¡dame algún consejo!

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

1. Los nombres de los controles son:

Los tres cuadros de texto de arriba a abajo: Texto1, Texto2, Texto3

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

2. Según la imagen que diste, el campo. [Calidad de acero] es un tipo de carácter, [Diámetro externo] y [Espesor de pared] son ​​tipos numéricos.

3. Su archivo de base de datos se llama "database.mdb" y se ha guardado 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 hacer clic en el botón [Consulta], escriba el siguiente código para realizar sus requisitos. :

Adodc1.ConnectionString

=

"Provider=Microsoft.Jet.OLEDB.4.0;Datos

Fuente="< / p>

&

App.Path

&

"\Database.mdb;Persist

Seguridad

Info=False"

Adodc1.RecordSource

=

"select

*

De

Hoja de datos del acero

Dónde

Calidad del acero='"

&

Texto1.text< / p>

&

"'

Y

Diámetro exterior="

&

trext2 .text

&

"

Y

espesor de pared="

&

text3.text

Adodc1.Refresh

Si

No

(Adodc1.Recordset.EOF

Y

Adodc1.Recordset.BOF)

Luego

Establecer

DataGrid1.DataSource

=

Adodc1

Else

MsgBox

"¡No encontrado!"

Fin

Si