Base de datos DBF transferencia por lotes Documento de Word

Datos de la base de datos DBF ¿Cómo ir al documento WORD? Copiar y pegar manualmente requiere mucho tiempo y esfuerzo, de hecho, una pequeña parte del código puede resolver el problema. Solo tienes que copiarlo. La siguiente página principal del sistema le presentará el tutorial de documentos de Word de transferencia por lotes de bases de datos DBF. En el trabajo reciente, el autor necesita ordenar y ordenar cierta información del documento con regularidad, y usar Visual FoxPro para crear archivos de la tabla de datos DBF. Al mismo tiempo, debo exportar documentos de Excel de acuerdo con la tabla de datos y hacer una tabla de información del documento de Word para imprimir la salida. Dado que la estructura de la tabla de datos DBF y los campos de la tabla en el documento de Word son fijos, y la cantidad de información del documento clasificada cada vez es bastante grande, se necesita mucho tiempo y esfuerzo para copiar y pegar manualmente. Por lo tanto, el autor ha escrito una copia por lotes. Pequeño programa, es decir, salida automática de datos DBF a la tabla de documentos de Word. El entorno de desarrollo del programa es: VB6.0, Foxpro 6.0, Word 2003. Las tecnologías relacionadas para aplicaciones de programas son: ADO (ActiveX Data Objects), OLE (Object Linking and Embedding). La idea básica de la implementación del programa es acceder a la tabla de datos DBF a través de ADO, obtener el contenido de la tabla de datos y escribirla en la tabla de documentos de Word de formato fijo. Los principales objetos utilizados son ADODB.Connection, ADODB.Recordset, Word.Application, Word.Acttivedocument, Word.Range, etc. El acceso a las tablas de datos DBF a través de ADO, código VB es el siguiente: Dim cn As New ADODB.Connectioncn.ConnectionTimeout = 15cn.ConnectionString = " Provider = MSDASQL; " &_ " Driver = {Microsoft Visual Foxpro Driver); " &_ " SourceType = DBF; &_ " SourceDB = " dbfpathcn.Abra para lograr la adquisición de datos de la tabla de datos DBF, el código VB es el siguiente: Private rec As VariantDim rs As ADODB.Recordsetet rs = New ADODB.RecordsetDemD Sqlstr As Stringsqlstr = " select * from " &dbfnamers.Open sqlstr, cn, adOpenStatic, adLockPessimisticrec = rs.GetRows (n) Abre el documento de Word a través de la implementación de OLE, el código VB es el siguiente: ObjWWD privado Como palabra.
(" Word.Application ") objWD.Documents.Open newfile ‘ newfile Rellene el contenido de la tabla del documento de Word para el nombre del archivo, el código VB es el siguiente: ActiveDocument.Tables.Item (i) .Cell (j, wordcol) .Cange. Text = rec (j, i - 1) (Nota: rec es una matriz multidimensional que almacena datos en el conjunto de datos Recordset) Para facilitar su uso, todo el código (Fig.) También puede ser descargado a http://iask.sina.com.cn/u/ish?uid=1704202287. Este artículo proviene de [System Home] www.xp85.com