Public Sub testExportTxtNoNames()
Dim fno As Integer
fno = FreeFile
Open "C:\work\access\T.txt" For Output As fno
Dim db As Database
Set db = CurrentDb
Dim rs As Recordset
Set rs = db.OpenRecordset("SELECT * FROM T", dbOpenForwardOnly)
While Not rs.EOF
Write #fno, rs!ID, rs!sName
rs.MoveNext
Wend
rs.Close
Close fno
End Sub
Sozdat .TXT File ACCESS Tablizi
POMOGITE !
Ja smogla sozdat .TXT-File ACCESS TAblizi no rezultat poluchaetsja s nazvanijami Stolbikov Tablizi. Kak ubrat nazvanija i linii tablizi? V VB-Code
Ja smogla sozdat .TXT-File ACCESS TAblizi no rezultat poluchaetsja s nazvanijami Stolbikov Tablizi. Kak ubrat nazvanija i linii tablizi? V VB-Code
Код:
Код:
"1","n1"
"2","n2"
"3","a"
"4","ab"
"5","abc"
"6","abcd"
"12","xxx"
"13","xxx"
"14","xxx"
"20","111.222.333"
"21","111.22.333"
"2","n2"
"3","a"
"4","ab"
"5","abc"
"6","abcd"
"12","xxx"
"13","xxx"
"14","xxx"
"20","111.222.333"
"21","111.22.333"
Prostite no chto znachit
fno = FreeFile.
FreeFile???
Kakoe znachenie mne nado sozdat?
fno = FreeFile.
FreeFile???
Kakoe znachenie mne nado sozdat?
Цитата:
Originally posted by crystal
Prostite no chto znachit
fno = FreeFile.
FreeFile???
Kakoe znachenie mne nado sozdat?
Prostite no chto znachit
fno = FreeFile.
FreeFile???
Kakoe znachenie mne nado sozdat?
FreeFile — функция, возвращаюшая свободный номер файла. Этот номер используется программами Write, Close и прочими из этой серии.
Prostite za nazojlivost no ja nachinajuschij programmist i ne znaju kak napisat takuju funkciju. Vi mne ne mozhete pomoch. Spasibo za ranee.
Собственно, функция уже написана.
...
Open "C:\work\access\T.txt" For Output As fno
...
Set rs = db.OpenRecordset("SELECT * FROM T", dbOpenForwardOnly)
...
Write #fno, rs!ID, rs!sName
...
Замените C:\work\access\T.txt именем вашего файла, T — именем вашей таблицы, ID и sName — именами интересующих вас полей таблицы, и файл будет создан.
Что конкретно вас интересует?
...
Open "C:\work\access\T.txt" For Output As fno
...
Set rs = db.OpenRecordset("SELECT * FROM T", dbOpenForwardOnly)
...
Write #fno, rs!ID, rs!sName
...
Замените C:\work\access\T.txt именем вашего файла, T — именем вашей таблицы, ID и sName — именами интересующих вас полей таблицы, и файл будет создан.
Что конкретно вас интересует?
Spasibo u menja vishlo vot tak
DoCmd.TransferText acExportFixed, "Table Exportspezifikation", "Table", "C:\Table_Export.txt"
DoCmd.TransferText acExportFixed, "Table Exportspezifikation", "Table", "C:\Table_Export.txt"
Цитата:
Originally posted by crystal
Spasibo u menja vishlo vot tak
DoCmd.TransferText acExportFixed, "Table Exportspezifikation", "Table", "C:\Table_Export.txt"
Spasibo u menja vishlo vot tak
DoCmd.TransferText acExportFixed, "Table Exportspezifikation", "Table", "C:\Table_Export.txt"
Ё! Надо же! А я полчаса потратил на эксперименты с DoCmd, но так и не понял, как создать спецификацию экспорта :roll:
Если не очень долго, расскажите, пожалуйста, пару слов про это дело.
Цитата:
Originally posted by sq_deep
Ё! Надо же! А я полчаса потратил на эксперименты с DoCmd, но так и не понял, как создать спецификацию экспорта :roll:
Если не очень долго, расскажите, пожалуйста, пару слов про это дело.
Ё! Надо же! А я полчаса потратил на эксперименты с DoCmd, но так и не понял, как создать спецификацию экспорта :roll:
Если не очень долго, расскажите, пожалуйста, пару слов про это дело.
Da konechno,
ja rabotaju v Germanii i polzujus nemeckoj versiej ACCESS, no ja popitajus opisat process sozdanija specifikacii dlja tablici.
Snachala nado tablicu pri zapisi na harddisk so specifikaciej zapisat:
-Nazhav na tablicu pravoi mishkoj vibrat Export;
-vvesti nazvanie tablici i zapisat kak tekstovoj file;
-nazhat export;
-pojavitsja Assistent s dvumja vozmoznostjami zapisi. Mne nuzhno bilo s opredeljonnoj shirinoj stolbikov zapisat;
-vibiraesh;
-s levoj storoni vnizu pervaja knopka.Na nemeckom ona primerno nazivaetsja "rasshirenie". Nazhat;
-vihodit okno s dannimi stolbikov. s pravoj storoni knopki dlja vibora i zapisi specifikacij.
-vibrat,zapisat, i zapomnit imja.
- Gototvo. Eto imja vvesti v formulu. I zapisivat tablicu bez nazvanij stolbikov.