Visual Basic - llamar contenido de tabla

Life is soft - evento anual de software empresarial
   
Vista:

llamar contenido de tabla

Publicado por ana isabel (24 intervenciones) el 18/01/2008 17:33:39
hola
se ke me falta solo un pekeño paso para terminar lo ke ando haciendo
lo que quiero o inento hacer es que todo el contenido de la tabla me la mande a excel, este es mi codigo

im myExcelFile As New ExcelFile
With myExcelFile
FileName$ = ".Lista general.xls"
.CreateFile FileName$
.PrintGridLines = False
.SetMargin xlsTopMargin, 1.5
.SetMargin xlsLeftMargin, 1.5
.SetMargin xlsRightMargin, 1.5
.SetMargin xlsBottomMargin, 1.5
.SetFont "Arial", 10, xlsNoFormat
.SetFont "Arial", 10, xlsBold
'.SetFont "Arial", 10, xlsBold + xlsUnderline
'.SetFont "Courier", 12, xlsItalic
.SetColumnWidth 1, 5, 18

SQL = "perso"
strSQL = "SELECT * FROM perso"
Set rs = db.OpenRecordset(strSQL)
'On Error GoTo error
z = 3
Do Until rs.EOF
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 1, rs("matricula")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 2, rs("nombres")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 3, rs("dir")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 4, rs("col")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 5, rs("muni")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 6, rs("cp")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 7, rs("telc")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 8, rs("telo")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 9, rs("telcel")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 10, rs("fecha_cum")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 11, rs("decasada")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 12, rs("mail")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 13, rs("ocupa")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 14, rs("pasa")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 15, rs("fecha_ing")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 16, rs("lugar")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 17, rs("dia")
.WriteValue xlsText, xlsFont2, xlsLeftAlign, xlsNormal, (z), 18, rs("esposo")
rs.MoveNext
z = z + 1
Loop

donde me marca error es en el rs , para mi ke solo modificando la linea de strSQL se arregla todo pero no se como iria para que me arroje toda la informacion de la tabla y la mande a excel, gracias por au apoyo
besos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:llamar contenido de tabla

Publicado por Ivan (1041 intervenciones) el 18/01/2008 18:10:12
Bueno, intentas abrir el recordset (Set rs = db.OpenRecordset(strSQL) ) pero ¿ya está abierta la base de datos? Porque no veo por ningún lado que la estés abriendo; además no nos dices cuál es el error que te da.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

el error es

Publicado por ana isabel (24 intervenciones) el 18/01/2008 19:07:06
hola Ivan , como siempre eres mi salvador, muchas gracias, te mando un besote
el error es este

runtime error 424
objet requiered
y en debug me marca esta linea
Set rs = db.OpenRecordset(strSQL)

gracias corazon
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

ya kedo gracias

Publicado por ana isabel (24 intervenciones) el 18/01/2008 19:19:06
ya lo corregi, ya se donde estuvo el error, gracias besos de todas formas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar