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

   
   
     

Форум - Работа с данными

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

 

  Вопрос: Помогите нубу, плиз( Добавлено: 13.02.09 05:31  

Автор вопроса:  Владислав
Можно ли сделать так чтобы после закрытия программы сохранялись данные без каких-либо дополнительных бд?

Ответить

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

Номер ответа: 1
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #1 		Добавлено: 13.02.09 07:10
Можно. В файл.

Ответить

Номер ответа: 2
Автор ответа:
 Владислав



Вопросов: 2
Ответов: 8
  Профиль | | #2 Добавлено: 13.02.09 07:21
А в самой проге можно это сделать? если нет напишите плиз как именно сохранить в excel файл

Ответить

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



Вопросов: 5
Ответов: 344
  Профиль | | #3 Добавлено: 13.02.09 08:11
сохраня... данные без каких-либо дополнительных бд
Можно. В файл
Клёвый ответ!..
Владислав, а если чуть поподробнее (что за прога, формат данных)?
Или проблема - как запустить Ёксель?

Ответить

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



Вопросов: 5
Ответов: 344
  Профиль | | #4 Добавлено: 13.02.09 09:04
бд?
Только бы Ra$cal не услышал!(aspx?id=181961)

Ответить

Номер ответа: 5
Автор ответа:
 Владислав



Вопросов: 2
Ответов: 8
  Профиль | | #5 Добавлено: 13.02.09 09:15
Прога для отчетов и сбора статистики. в проге текстовые поля, их содержимое суммируется и записывается в переменную, надо чтобы при следующем запуске эта переменная содержала эту сумму :(
Если так невозможно, то можно пример сохранения в экселевский файл(

Ответить

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



Вопросов: 5
Ответов: 344
  Профиль | | #6 Добавлено: 13.02.09 09:38
(что за прога...)?
Вопрос подразумевает, кем и на чем написана? Из темы форума и самого вопроса об этом можно только гадать! Соответственно и ответы будут типа
Можно. В файл.

Ответить

Номер ответа: 7
Автор ответа:
 Владислав



Вопросов: 2
Ответов: 8
  Профиль | | #7 Добавлено: 13.02.09 09:41
пишу сам на vb 6.0.

Ответить

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



Вопросов: 5
Ответов: 344
  Профиль | | #8 Добавлено: 13.02.09 10:05
Наконец-то...
сохранить одну переменную?
Навскидку - 4 варианта
1 - в файл(элементарно)
2 - в реестр(чуть сложнее)
3 - в Excel(зачем? но без проблем)
4 - в себя(в екзешник, была тема на форуме, могу вспомнить ссылку, за результат не отвечаю!)
Выбирай...

Ответить

Номер ответа: 9
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #9 Добавлено: 13.02.09 10:11
  1. open "путь" for output as #1
  2.     print #1, "данные"
  3. close

Ответить

Номер ответа: 10
Автор ответа:
 Владислав



Вопросов: 2
Ответов: 8
  Профиль | | #10 Добавлено: 13.02.09 10:14
я же грю нуб)) переменную одну. а можно все 4?:)вдруг пригодится

Ответить

Номер ответа: 11
Автор ответа:
 st_b



Вопросов: 5
Ответов: 9
  Профиль | | #11 Добавлено: 13.02.09 10:16
'выгрузка в excel
xlBook.Worksheets(1).Range("A1";).CopyFromRecordset рекодсет.Recordset

Ответить

Номер ответа: 12
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #12 Добавлено: 13.02.09 11:01
я же грю нуб)) переменную одну. а можно все 4?вдруг пригодится

  1. open "путь" for output as #1
  2.     print #1, "данные, данные, данные, данные"
  3. close

Ответить

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



Вопросов: 5
Ответов: 344
  Профиль | | #13 Добавлено: 13.02.09 12:00
'1 вариант
  1. Private Sub Form_Unload(Cancel As Integer)
  2.   Dim f As Integer
  3.   f = FreeFile
  4.   Open App.Path + "\MyVar" For Output As f
  5.   Print #f, Text1.Text
  6. End Sub
  7.  
  8. Private Sub Form_Load()
  9.   Dim FN As String
  10.   FN = Dir(App.Path + "\MyVar")
  11.   If FN = "" Then Exit Sub
  12.   Dim f As Integer
  13.   Dim S As String
  14.   f = FreeFile
  15.   Open App.Path + "\MyVar" For Input As f
  16.   Line Input #f, S
  17.   Close f
  18.   Text1.Text = S
  19. End Sub




'2 вариант
  1. Private Sub Form_Unload(Cancel As Integer)
  2.   SaveSetting App.Title, "Settings", "MyVar", Text1.Text
  3. End Sub
  4.  
  5. Private Sub Form_Load()
  6.   Text1 = GetSetting(App.Title, "Settings", "MyVar", "")
  7. End Sub


'3 вариант
  1. Dim b_CreateExcel As Boolean
  2. Dim oE As Excel.Application
  3. Dim WB As Excel.Workbook
  4.  
  5. Private Sub Form_Unload(Cancel As Integer)
  6. If oE Is Nothing Then Exit Sub
  7. WB.Worksheets(1).Cells(1) = Text1.Text
  8. WB.Save
  9. WB.Close
  10. If b_CreateExcel Then oE.Quit
  11. Set oE = Nothing
  12. End Sub
  13.  
  14. Private Sub Form_Load()
  15. On Error Resume Next
  16. Set oE = GetObject("Excel.Application")
  17. If Err Then
  18.   Err.Clear
  19.   Set oE = CreateObject("Excel.Application")
  20.   If Err Then
  21.     Err.Clear
  22.     Exit Sub 'бля..., а где Ёксель?
  23.   End If
  24.   b_CreateExcel = True
  25. End If
  26. Set WB = oE.Workbooks("MyVar.xls")
  27. If Err Then
  28.   Err.Clear
  29.   Set WB = oE.Workbooks.Open(App.Path + "\MyVar.xls")
  30.   If Err Then
  31.     Err.Clear
  32.     Set WB = oE.Workbooks.Add
  33.     WB.SaveAs App.Path + "\MyVar.xls"
  34.     If Err Then
  35.       Exit Sub 'а не будешь запускать с CD(DVD) или выбери другой путь для хранения MyVar.xls
  36.     End If
  37.   End If
  38. End If
  39. Text1.Text = WB.Worksheets(1).Cells(1)
  40. End Sub


'4 вариант смотри там, может что и получиться...
http://vbnet.ru/forum/show.aspx?id=181667
http://www.vbnet.ru/samples/download.aspx?id=585

Ответить

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



Вопросов: 5
Ответов: 344
  Профиль | | #14 Добавлено: 13.02.09 13:08
нуб))
или
нубу
? Переведите, пжлста...

Ответить

Номер ответа: 15
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #15 Добавлено: 13.02.09 14:02
http://ru.wikipedia.org/wiki/Нуб

Ответить

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

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



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