Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 | 3 |

 

  Вопрос: считывание и запись в файл Добавлено: 19.01.09 11:47  

Автор вопроса:  amentis

Ответить

  Ответы Всего ответов: 45  

Номер ответа: 16
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #16 Добавлено: 19.01.09 23:33
?Номер (а лучше текст ошибки)?
"путь" и "C:\\data.bzd" - 2 разных файла?
Что такое stroka?

Ответить

Номер ответа: 17
Автор ответа:
 amentis



Вопросов: 6
Ответов: 31
  Профиль | | #17 Добавлено: 19.01.09 23:40
нет нет..путь один stroka это у меня была переменная..
короче, какой код нужно написать чтобы из текстбокса записать в файл данные
допустим из текстбокса1 в 1 ячейку, из текстбокса2 во 2..

Ответить

Номер ответа: 18
Автор ответа:
 amentis



Вопросов: 6
Ответов: 31
  Профиль | | #18 Добавлено: 19.01.09 23:46
вот...кажется получилось..сделал так:
  1. Private Sub Form_Load()
  2.  
  3. Open "C:\\data.bzd" For Random As #1
  4. Put #1, 1, Text1.Text
  5. Put #1, 2, Text2.Text
  6.  
  7. Close #1
  8. End Sub

  1. Dim name1 As String
  2. Private Sub Command1_Click()
  3. Open "C:\\data.bzd" For Random As #1
  4. Get #1, 1, name1
  5. Text2.Text = name1
  6. Close #1
  7.  
  8. End Sub

Ответить

Номер ответа: 19
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #19 Добавлено: 19.01.09 23:59
  1. Private Sub Command2_Click()
  2. Open "c:\Путь" For Random As #1 Len = Len(stroka)
  3. stroka.Name = Text1.Text
  4. stroka.ID = 1
  5. Put #1, 1, stroka
  6. stroka.Name = Text2.Text
  7. stroka.ID = 2
  8. Put #1, 2, stroka
  9. Close #1
  10. End Sub

Ответить

Номер ответа: 20
Автор ответа:
 Ra$cal



ICQ: 8068014 

Вопросов: 18
Ответов: 817
  Web-сайт: www.rascalspb.narod.ru
 Профиль | | #20 		Добавлено: 20.01.09 00:06
не надо привыкать к быдлокод\овым именам переменных типа stroka. имена тока на инглише - string. а еще лучше entered_text.

Ответить

Номер ответа: 21
Автор ответа:
 fAndOrIn



Вопросов: 5
Ответов: 344
  Профиль | | #21 Добавлено: 20.01.09 00:06
Запаришся с этим Random-ом!
Да, задекларируй
  1. Private Type mRecord   ' Define user-defined type.
  2.    ID As Integer
  3.    Name As String * 20
  4. End Type
  5. Dim stroka As mRecord   ' Declare variable.

Ответить

Номер ответа: 22
Автор ответа:
 amentis



Вопросов: 6
Ответов: 31
  Профиль | | #22 Добавлено: 20.01.09 02:05
а что, получается в другой программе уже не получить доступ к базе данных?? о.О
я собственно только и делал базу данных чтобы потом считать ее другой программой..

Ответить

Номер ответа: 23
Автор ответа:
 amentis



Вопросов: 6
Ответов: 31
  Профиль | | #23 Добавлено: 20.01.09 02:12
выдает runtime error 94 invalid use of null

Ответить

Номер ответа: 24
Автор ответа:
 VβÐ



Вопросов: 15
Ответов: 194
  Web-сайт: www.homacosoft.com
 Профиль | | #24 		Добавлено: 20.01.09 15:19
Вместо C:\\data.bzd напиши C:\data.bzd

Ответить

Номер ответа: 25
Автор ответа:
 VβÐ



Вопросов: 15
Ответов: 194
  Web-сайт: www.homacosoft.com
 Профиль | | #25 		Добавлено: 20.01.09 15:22
Запись:
  1. Dim food as record
  2. Open "C:\data.bzd" for random as #1 len = len(food)
  3. put #1,  1, food
  4. Close #1


Чтение:
  1.  
  2. Dim food as record
  3. Open "C:\data.bzd" for random as #1 len = len(food)
  4. Get #1,  1, food
  5. text1.text = food.name
  6. Close #1
  7.  



В чем проблема-то?

Ответить

Номер ответа: 26
Автор ответа:
 amentis



Вопросов: 6
Ответов: 31
  Профиль | | #26 Добавлено: 20.01.09 15:29
в папке 2 проекта, путь к файлу базы данных
 
  1. app.path & "\data.bzd"

в первом создается этот файл..а второй не хочет его читать..записывает спокойно, выдает эту ошибку...я так понимаю что база данных предназначена только для одного проекта? о.О
например в первом проекте создал первую ячейку
  1. put #1, 1, text1.text

если мне нужно считать это, я пишу
  1. get #1, 1, x
  2. text1.text=x

и у меня все прекрасно считывает..
но когда я открываю эту же ячейку в другом проекте чтобы прочитать, выкидывает ошибку

Ответить

Номер ответа: 27
Автор ответа:
 amentis



Вопросов: 6
Ответов: 31
  Профиль | | #27 Добавлено: 20.01.09 15:37
все, разобрался, прошу прощения я не объявил этот самый Х

Ответить

Номер ответа: 28
Автор ответа:
 Ra$cal



ICQ: 8068014 

Вопросов: 18
Ответов: 817
  Web-сайт: www.rascalspb.narod.ru
 Профиль | | #28 		Добавлено: 20.01.09 17:12
[брюзжание]
хм, меня одного что ли коробит от обзывания обычного текстового файла "базой данных"? понимаю если бы хоть бинарные записи с ссылками друг на друга. а так...
[/брюзжание]

Ответить

Номер ответа: 29
Автор ответа:
 VβÐ



Вопросов: 15
Ответов: 194
  Web-сайт: www.homacosoft.com
 Профиль | | #29 		Добавлено: 20.01.09 19:01
понимаю если бы хоть бинарные записи с ссылками друг на друга


Типа понт. Аплодисметы :)

ЗЫ:
Это база данных, только жутко примитивная, элементарная. Для начинающего чела сойдет.

Ответить

Номер ответа: 30
Автор ответа:
 Ra$cal



ICQ: 8068014 

Вопросов: 18
Ответов: 817
  Web-сайт: www.rascalspb.narod.ru
 Профиль | | #30 		Добавлено: 20.01.09 20:55
это не понт. это то чему учат на первом курсе. если не знаешь - это не мои понт, а чьи то пробелы в знаниях =) раньше может и можно было текстовый файл назвать базой, но сейчас база подразумевается реляционная. кароч звучит этот разговор топорно. как запорожец называть истребителем за то что он ездит быстрее человека...

Ответить

Страница: 1 | 2 | 3 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам