Dim sData$, file% file = FreeFile() Open "C:\DBASE.TXT" For Output As #file rs.MoveFirst While Not rs.EOF ' You can set bigger NumRows to make it faster ' Or if the data is small, u can use -1 to get all data at once sData = rs.GetString(NumRows:=1, ColumnDelimeter:=",") ' remove the vbCr at the end of string If Len(sData) Then sData = Left(sData, Len(sData) - 1) Print #file, sData ' do not call MoveNext 'the GetData automatically updates the record position Wend Close #file
If you would like to report an abuse of our service, such as a spam message, please . Если Вы хотите пожаловаться на содержимое этой страницы, пожалуйста .
