Red de conocimiento informático - Problemas con los teléfonos móviles - Programación de código SQL

Programación de código SQL

Lo siento, estoy un poco ocupado últimamente. Además, soy un novato, no un experto. Aprendan unos de otros~

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")

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

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!') ;