Cómo escribir sentencias SQL en VB6.0

Agregue control de cuadro de texto y control de comando en el primer formulario form1.

Agrega el control datagrid al segundo formulario form2.

Nota: La base de datos utilizada en el ejemplo es access. Al usarlo, ingrese la declaración SQL de la consulta en el control del cuadro de texto. Por ejemplo, seleccione * nombre de la tabla del formulario en la base de datos.

Subcomando privado 1_Click()

Atenuar mycon como ADODB. Relación

Dim myrt Como ADODB. Conjunto de registros

Establecer mycon = Nuevo ADODB. Relaciones

Establecer myrt = Nuevo ADODB. Conjunto de registros

mycon. ConnectionString = " Proveedor = Microsoft. Jet. OLEDB.4.0 Fuente de datos = Ingrese la ubicación del archivo de la base de datos, como (D:\db1.MDB)"

mycon. Abrir

Milt. CursorLocation = adUseClient

Milt. Abrir Texto1. Text, mycon, adOpenStatic, adLockOptimistic

Configurar el formulario 2. DataGrid1DataSource = myrt

Tabla 2. Mostrar

Conector final