¿Cómo hago valer esta API de VC en VB?
Función
TA_Dsql_QRecord
lib
"..."
(byval
Dsql
como
cadena,
byval
fillGap
como
long,
byval
sBlock
como
cadena,
nBlockSize
mientras
largo,
RetCode
mientras
largo,
timeOut
as
long)
as
long.
long
... es un enlace biblioteca Los nombres de
Estas dos matrices int se envían declarando variables en VB y luego usando la función varptr para obtener la dirección:
declarar
Función
p>VarPtr
lib
"msvbvm60 .dll"
(p
as
cualquiera)
como
largo
Entonces fillgap solo se puede pasar en forma larga, pero puedes usar la función asc para obtener el valor ascii del carácter a enviar, por ejemplo, si desea enviar 'c', entonces se enviará asc ("c") largo al segundo parámetro
Antes de usar estos tipos de cadenas, debe declara suficiente espacio para ellos, por ejemplo:
dim
sBlock
as
string
sBlock
=
cadena(asc("A"), "c"), luego asc("c")."A"),
255) 'Deje suficiente espacio, de lo contrario se producirá un error
TA_Dsql_QRecord(...,
sBlock,...)