código vb traducción frase por frase gracias
Atenuar rs_findreader como nuevo ADODB.Recordset 'Definir conjunto de resultados de datos
Atenuar sql como cadena 'Definir variables para almacenar declaraciones SQL
If Check1.Value = vbChecked Then 'Si se selecciona la casilla de verificación check1, el número de lector en la declaración SQL es igual al valor de text1
sql = "Número de lector = '" amp; Trim( Text1.Text amp; " ") amp; "'"
End If
If Check2.Value = vbChecked Then 'Igual que arriba
If Trim(sql) = "" Entonces
sql = "Nombre del lector = '" amp Trim(Text2.
Else
sql = sql amp; " y Nombre del lector = '" amp; Trim(Text2.Text amp; " ") amp "''"
Finalizar si
Finalizar si
Si Check3.Value = vbChecked Then 'Igual que arriba
If Trim(sql) = """entonces
sql = "Categoría de lector = '" amp; Trim( Combo1.Text amp; " ") amp; "'"
De lo contrario
sql = sql amp; "y categoría de lector = '" Trim( Combo1.Text amp; " ") amp; "'"
Si Check3.Value = vbCheck, entonces "Igual que arriba
If Trim(sql) = ""Text amp " ") amp; '"
p>End If
End If
sql = "seleccione * de la información del lector donde " amp; sql 'Finalmente complete la declaración sql
rs_findreader.
CursorLocation = adUseClient
rs_findreader.Open sql, conn, adOpenKeyset, adLockPessimistic 'Abre la conexión de la base de datos y ejecuta la instrucción sql
DataGrid1.AllowAddNew = False 'El conjunto de datos no puede ser agregado
DataGrid1.AllowDelete = False 'No se permite eliminar el conjunto de datos
DataGrid1.AllowUpdate = False 'No se permite modificar el conjunto de datos
Establecer DataGrid1.DataSource = rs_findreader 'En la cuadrícula de datos Mostrar datos en
'rs_findreader.Close 'Cerrar conexión de base de datos
End Sub
Sub privado Command2_Click()
Descargarme 'Salir del programa
End Sub
Sub privado Form_Load() 'Rellenar combo1 cuando se carga la ventana
Atenuar rs_find como nuevo ADODB.Recordset
Atenuar rs_find como nuevo ADODB.Recordset
Atenuar rs_find como nuevo ADODB.Recordset