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