| nano666 |  |
|
2008-06-27 21:13 - Respuestas: 0 - Tema nº: 2527454
Características: Windows XP Profesional 512, core duo, 1.60 ghz, 80 gb.
el programa funciona bien, es una aplicacion q toma los datos de un servidor sql y luego de tomar los datos los agrega en un grid al momento de la ejecucion en la aplicacion lo hace todo bien pero al momento de exportar el grid con la informacion da el error "13" en tiempo de ejecución el codigo es el siguiente:
Dim Str As String
Dim rs As ADODB.Recordset
Set mssql = New ADODB.Connection
mssql.Open "Driver={SQL Server};" & _
"Server=;" & _ por segurida no incluyo estos datos
"Address=;" & _ por segurida no incluyo estos datos
"Network=;" & _ por segurida no incluyo estos datos
"Database=;" & _ por segurida no incluyo estos datos
"Uid=;" & _ por segurida no incluyo estos datos
"Pwd=" por segurida no incluyo estos datos
mssql.CommandTimeout = 800
mssql.CursorLocation = 3
Str = "SELECT CONVERT(CHAR(11),TIME,101),CONVERT(CHAR(11),TIME,108),MO,3600*C_TTRALACC FROM CELL_ADM A, CELL_MAIN B WHERE A.ID=B.ID AND RPL=60 AND TIME BETWEEN '21 Junio 2008 00:00:00' AND '21 Junio 2008 23:59:59'AND MO LIKE '5%' ORDER BY TIME DESC"
Set rs = mssql.Execute(Str)
Set DataGrid1.DataSource = rs
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open("C:\proyecto reporte 2 (tiempo de celdas)\excel\Reporte Celdas.xls")
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A4").CopyFromRecordset rs "aqui es donde da el error"
| |
|
|
