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

   
   
     

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

Страница: 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8

 

  Вопрос: mdb + VB6 + DataGrid'ы от MS как сделать прогу? Добавлено: 07.03.10 14:51  

Автор вопроса:  VbStarter | Web-сайт: moscowdevils.ru | ICQ: 357911808 
Новичок в базах данных и тд прошу сильно не бить)) мне нужно написать прогу чтобы просматривать таблицы из MDB.
Подскажите плз как можно енто реализовать на DataGrid (или чтото подобное только от Microsoft а не от Component One и тд) в vb6.

PS если можете скинуть ссылку где скачать Component One'овские надстройки в vb то можно и не на MS.

Ответить

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

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



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #1 Добавлено: 07.03.10 16:22
Сохрани это как файл Проект1.vbp
  1. Type=Exe
  2. Reference=*\G{2A75196C-D9EB-4129-B803-931327F72D5C}#2.8#0#C:\Program Files\Common Files\system\ado\msado15.dll#Microsoft ActiveX Data Objects 2.8 Library
  3. Object={CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0; MSDatGrd.ocx
  4. Form=Form1.frm
  5. IconForm="Form1"
  6. Startup="Form1"
  7. HelpFile=""
  8. Title="Проект1"
  9. ExeName32="Проект1.exe"
  10. Path32=".."
  11. Command32=""
  12. Name="Проект1"
  13. HelpContextID="0"
  14. CompatibleMode="0"
  15. MajorVer=1
  16. MinorVer=0
  17. RevisionVer=0
  18. AutoIncrementVer=0
  19. ServerSupportFiles=0
  20. VersionCompanyName="©"
  21. CompilationType=-1
  22. OptimizationType=0
  23. FavorPentiumPro(tm)=-1
  24. CodeViewDebugInfo=0
  25. NoAliasing=0
  26. BoundsCheck=0
  27. OverflowCheck=0
  28. FlPointCheck=0
  29. FDIVCheck=0
  30. UnroundedFP=0
  31. StartMode=0
  32. Unattended=0
  33. Retained=0
  34. ThreadPerObject=0
  35. MaxNumberOfThreads=1
  36.  
  37. [MS Transaction Server]
  38. AutoRefresh=1

а это как файл Form1.frm
  1. VERSION 5.00
  2. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDatGrd.ocx"
  3. Begin VB.Form Form1
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2295
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   4695
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2295
  11.    ScaleWidth      =   4695
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin MSDataGridLib.DataGrid DataGrid1
  14.       Height          =   2055
  15.       Left            =   120
  16.       TabIndex        =   0
  17.       Top             =   120
  18.       Width           =   4455
  19.       _ExtentX        =   7858
  20.       _ExtentY        =   3625
  21.       _Version        =   393216
  22.       HeadLines       =   1
  23.       RowHeight       =   15
  24.       BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  25.          Name            =   "MS Sans Serif"
  26.          Size            =   8.25
  27.          Charset         =   204
  28.          Weight          =   400
  29.          Underline       =   0   'False
  30.          Italic          =   0   'False
  31.          Strikethrough   =   0   'False
  32.       EndProperty
  33.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
  34.          Name            =   "MS Sans Serif"
  35.          Size            =   8.25
  36.          Charset         =   204
  37.          Weight          =   400
  38.          Underline       =   0   'False
  39.          Italic          =   0   'False
  40.          Strikethrough   =   0   'False
  41.       EndProperty
  42.       ColumnCount     =   2
  43.       BeginProperty Column00
  44.          DataField       =   ""
  45.          Caption         =   ""
  46.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
  47.             Type            =   0
  48.             Format          =   ""
  49.             HaveTrueFalseNull=   0
  50.             FirstDayOfWeek  =   0
  51.             FirstWeekOfYear =   0
  52.             LCID            =   1049
  53.             SubFormatType   =   0
  54.          EndProperty
  55.       EndProperty
  56.       BeginProperty Column01
  57.          DataField       =   ""
  58.          Caption         =   ""
  59.          BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
  60.             Type            =   0
  61.             Format          =   ""
  62.             HaveTrueFalseNull=   0
  63.             FirstDayOfWeek  =   0
  64.             FirstWeekOfYear =   0
  65.             LCID            =   1049
  66.             SubFormatType   =   0
  67.          EndProperty
  68.       EndProperty
  69.       SplitCount      =   1
  70.       BeginProperty Split0
  71.          BeginProperty Column00
  72.          EndProperty
  73.          BeginProperty Column01
  74.          EndProperty
  75.       EndProperty
  76.    End
  77. End
  78. Attribute VB_Name = "Form1"
  79. Attribute VB_GlobalNameSpace = False
  80. Attribute VB_Creatable = False
  81. Attribute VB_PredeclaredId = True
  82. Attribute VB_Exposed = False
  83. Option Explicit
  84.  
  85. Private MDB As New Connection
  86. Private TBL As New Recordset
  87.  
  88. Private Sub Form_Load()
  89.     With MDB
  90.         .CursorLocation = adUseClient
  91.         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + ";Data Source=D:\Basic\Access\db1.mdb"
  92.         .Open
  93.     End With
  94.     Set DataGrid1.DataSource = TBL
  95.     TBL.Open "select * from SuperTable", MDB, adOpenStatic, adLockOptimistic
  96.     DataGrid1.ReBind
  97. End Sub

открой Проект1.vbp, впиши свой путь\имя.mdb ну м имя таблицы вместо SuperTable

Ответить

Номер ответа: 2
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #2 Добавлено: 07.03.10 16:29
  1. .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Твой.mdb"

  1. TBL.Open "select * from ТвояТаблица", MDB, adOpenStatic, adLockOptimistic

  1. DataGrid1.ReBind
не нужен если
  1. Set DataGrid1.DataSource = TBL
идет после TBL.Open
и ещё
  1. DataGrid1.AllowUpdate = False
чтоб юзер немог ничего изменить

Ответить

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



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #3 Добавлено: 07.03.10 16:32
Может кто знает как у акса спросить список таблиц? Можно былобы законченный примерчик сделать, хотя их и так немало ...

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #4 		Добавлено: 07.03.10 17:03
большой сэнкс Smith

Ответить

Номер ответа: 5
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #5 		Добавлено: 07.03.10 17:06
список таблиц конечно хорошобыло-бы выводить как нибудь отдельно в отдельной области или както так. Пишите если есть чтото плз.

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #6 		Добавлено: 07.03.10 17:12
упс, это на vb6? Если экспресс - у меня ентерпрайс и интерфейс не такой новый (такой помоему только в экспрессах в 2008ых

Ответить

Номер ответа: 7
Автор ответа:
 VbStarter



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #7 		Добавлено: 07.03.10 17:15
Сохрани это как файл Проект1.vbp
это как файл Form1.frm

исходник можно плиз. компилятору гдето треть всего кода не нравится:((

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #8 		Добавлено: 07.03.10 18:00
Smithможно исходник плиз

Ответить

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



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #9 Добавлено: 07.03.10 20:45
Ну ты блин даёшь :)

Копируешь то, что я дал, вставляешь в блокнот, сохраняешь под указанным именем.

а чистый код получится такой
  1. Option Explicit
  2.  
  3. Private MDB As New Connection
  4. Private TBL As New Recordset
  5.  
  6. Private Sub Form_Load()
  7.     With MDB
  8.         .CursorLocation = adUseClient
  9.         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Basic\Access\db1.mdb"
  10.         .Open
  11.     End With
  12.     Set DataGrid1.DataSource = TBL
  13.     TBL.Open "select * from SuperTable", MDB, adOpenStatic, adLockOptimistic
  14.     DataGrid1.ReBind
  15. End Sub
тут недостаток в том, что на стадии разработки уже нужно знать имя таблицы.

Ответить

Номер ответа: 10
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #10 Добавлено: 07.03.10 20:48
VbStarter пишет:
упс, это на vb6?

на самом, что ни на есть VB6, и чёт я нифига непонял про интерфейс и версии

Ответить

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



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #11 Добавлено: 07.03.10 21:14
У меня VB6 SP6
  1. http://img-fotki.yandex.ru/get/3910/maxpotas.0/0_41024_782a85c0_orig

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #12 		Добавлено: 07.03.10 22:28
Сенькс, понял. возможно у меня будут вопросы по остольному. например по создании меню выбора таблиц с помощью Combobox или HxTocCtrl из help visuals

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #13 		Добавлено: 07.03.10 22:38
кстати можно организовать в одном окне паказ в одном и томже гриде несколькой таблиц (с выбором таблицы хотябы в комбо боксе) если пишу непонятно то сорри.

Ответить

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



ICQ: 357911808 

Вопросов: 118
Ответов: 1340
  Web-сайт: moscowdevils.ru
 Профиль | | #14 		Добавлено: 07.03.10 22:55
можно использовать Curve для визуализации значений? (см тему - (называется как-то так) использование Curve и Knob в vb6)

Ответить

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



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | | #15 Добавлено: 09.03.10 01:30
Х.З. Может и можно, незнаю я ими не пользовался.
Две таблицы в один датагрид не влезут, помоему, но можно рядом два грида положить и всё.

Ответить

Страница: 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8

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



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