|
|
|
новичок
участник
Last Login: 22.11.2000 3:37
Сообщ.: 2,
Visits: 23
|
|
Помоготе пожайлуста!
надо с помощью Visual Basic перегнать данные из текстового файла (TXT) в .DBF Всем спасибо!!!
|
|
|
|
|
Supreme Being
участник
Last Login: 09.10.2008 18:37
Сообщ.: 178,
Visits: 1 956
|
|
Консрукция такова
''точное написание команд не помню Ж(
dim sStr as string, iFN as integer
iFN=freeFile
open <текстовый файл> for read #iFN
Do While NOT EOF(iFN)
''читаем строку
Line Input #iFN,sStr
''обработка sStr - разбиение на поля
''Добавить в dbf
''
End do
Close iFN
|
|
|
|
|
Supreme Being
администратор
Last Login: 13.11.2007 13:41
Сообщ.: 4 421,
Visits: 49 251
|
|
Посмотри еще пример работы с БД DBASE через ADO:
http://www.relib.com/code.asp?id=219
|
|
|
|
|
Forum Guru
участник
Last Login: 30.05.2002 13:21
Сообщ.: 61,
Visits: 672
|
|
спасибо 2Vsh,
вот возник вопрос:
а что делать если текстовый файл содержит русские буквы и записан в кодировке ДОС? у меня получается абракадабра :_))
|
|
|
|
|
Supreme Being
администратор
Last Login: 13.11.2007 13:41
Сообщ.: 4 421,
Visits: 49 251
|
|
Для этого надо воспользоваться вот этим примером:
http://www.relib.com/code.asp?id=187
|
|
|
|
|
Forum Guru
участник
Last Login: 30.05.2002 13:21
Сообщ.: 61,
Visits: 672
|
|
2Smalig
извини, а куда это вставлять?
|
|
|
|
|
Supreme Being
администратор
Last Login: 13.11.2007 13:41
Сообщ.: 4 421,
Visits: 49 251
|
|
| Как куда? :-) Можешь в модуль, можешь в форму. Это функция для перекодировки строки. Так что сначала получаешь строку из текстового файла, потом вызываешь эту функцию с полученной строкой в качестве параметра, а потом уже сохраняешь в БД
|
|
|
|