Programación de código SQL
Les daré un caso sobre cómo obtener valores en Excel.
En cuanto a la sentencia, ¿se puede entender así?
long ll_row1, ll_row2
// Al leer la línea 19, ¿saltar directamente a la línea 20 sin juzgar? Entonces, ¿deberíamos juzgar las líneas 1 a 18?
//Si no se juzgan las filas 1-18, el valor se toma directamente de la fila 20. .
//Si solo hay 19 filas, no hay juicio, si es fila
// - 20-30, 21-31, 22-32
Ll_row1 = fila actual. ll _ fila 2 = ll _ fila 1 10;
Si no es isnull(ll_row2) o ll_row2 lt gt'' entonces
Toma el valor de ll_row2.
Otros
Toma el valor de ll_row1.
Terminará si...
//-El siguiente es un ejemplo de valor:
Entero constante ppLayoutBlank = 12
OLEObject ole_object
ole_object =Crear OLEObject
li_ret = ole_object. ConnectToObject(strFile)
Si li _ ret lt gt entonces 0
MessageBox('Error OLE', '¡El archivo Excel no se puede abrir! Número de error: " string(li_ret))< / p>
Seleccione caso li_ret
Caso-1
Messagebox("Aviso de error", "Llamada no válida")
Caso 2
Messagebox("Mensaje de error", "Nombre de clase no encontrado")
Caso 3
Messagebox("Mensaje de error", "No se puede crear el objeto") p >
Caso 4
Messagebox("Mensaje de error", "El archivo no se puede conectar")
Caso 5
Messagebox("Mensaje de error" ," No se puede conectar con el objeto actual")
Caso 6
Messagebox("Mensaje de error", "Archivo no válido")
Caso 7 p>
Messagebox("Mensaje de error", "El archivo no existe o ha sido abierto")
Caso 8
Messagebox("Mensaje de error", "El servidor no se puede cargar el archivo seleccionado")
Caso 9
Messagebox("Mensaje de error", "Otros errores")
Finalizar selección
ole_object.disconnectobject()
p>
Destruir ole_object
Devuelve 0
Terminará si...
//ole_object.visible=false
/ /Abra el archivo xls especificado para activar el libro de trabajo
//ole _ object workbooks .
//Si se requiere una advertencia al cerrar el archivo xls después de cambios de usuario.
ole_object .aplicación. mostrar alertas = false
Puntero antiguo
Ls_value1 = OLE_Object. Aplicar. libro de trabajo (1). Hoja de trabajo(1). Celda(1,1). Valor //Archivo Excel Hoja1, número 65438
Ls_valor4=OLE_Objeto. Aplicar. libro de trabajo (1). Hoja de trabajo(1). Celda(1,4). Valor//Archivo Excel Hoja1, fila 1, columna 4.
parent.enabled = false
//Establecer el cursor de espera
oldpointer = SetPointer (¡reloj de arena!)
nexcel rowcount = ole _ aplicación de objeto. Hoja de trabajo (1). rango usado. filas. recuento; //Obtener el número de filas en EXCEL
Para ii=4 a nExcelRowCount
//
//El valor de la fila ii y la columna 8 del archivo Excel Hoja1.
//Número de fábrica
ls _ valor 8 = aplicación ole _ objeto libros de trabajo (1). Hoja de trabajo(1). Celda (ii,8). Valor;
//
//El valor de la fila ii y la columna 13 del archivo Excel Hoja1.
//Unidad de inspección
ls_valor 13 = aplicación ole_objeto. Hoja de trabajo(1). Celda (ii,13). Valor;
//
//El valor de la fila ii y la columna 21 de la Hoja 1 del archivo Excel.
//La identificación única del instrumento de medición
ls_value 21 = ole_objeto aplicación(1). Hoja de trabajo(1). Celda (ii,21). Valor;
Si es nulo (ls_value21), entonces ls_value 21 = " ";
//
//Línea ii del archivo Excel Hoja1 23 valores de columna.
//Número de serie del instrumento
ls_value 23 = ole_objeto aplicación(1). Hoja de trabajo(1). células (2, 23).
valor;
si len(ls_value23)>entonces 0
si len(ls_value21)>0 y ls_value 21 lt; entonces "vacío"
ntempnum 1 = 0;
seleccione recuento(*)En: ntempnum 1 de m m
Donde QJ2 _ único _ ID =: ls _ valor 21
Si ntempnum 1; > luego 0
Actualizar conjunto QJ2_countryID = :ls_value23
, QJ2_UpdateDate = getdate()
donde QJ2_unique_ID = :ls_value 21;
Otro
Conjunto de actualización QJ2_countryID = :ls_value23
, QJ2_UpdateDate = getdate()
donde QJ2_sjdw =:ls_value13, QJ2_ccbh =:ls_value8;
Terminará si...
Otro
Actualizar conjunto QJ2_countryID =:ls_value23
p>, QJ2_UpdateDate = getdate()
Donde QJ2_sjdw=:ls_value13, QJ2_ccbh=:ls_value 8;
Terminará si...
si sqlca.sqlcode lt gt entonces 0
Usar sqlca rollback;
Establecer puntero (puntero antiguo)
ole _ object . desconectar objeto ();
Destruir ole _ object
Cuadro de mensaje("Mensaje rápido", "¡Error al guardar!", ¡señal de alto!)
Si... terminará
Terminará si...
Luego
Establezca el puntero (puntero antiguo)
this.enabled = true
parent.enabled = true
ole_object. desconectobject()
Destruye ole_object
Si sqlca.sqlcode =0, entonces
Usa sqlca para enviar;
Otros
Utilice sqlca para revertir;
Messagebox("Mensaje rápido", "¡Error al guardar! ", ¡señal de pare!)
Regresar;
Terminará si...
Messagebox('Mensaje rápido', '¡Archivo importado correctamente!') ;