Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вопрос по топику Создание бд, Как вывести даные в MSFlexGrid 
:(
    Опции темы
Igor Graf
Дата 16.4.2005, 08:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет
Народ, всем привет! Заглянул в топик Создание бд и увидел занятные вещи. В принципе все понятно, но возник следующий вопрос: База создается и даже открывается при помощи кодов Naghuala и Cardinala , да вот проблема как мне програмно вывести данные из таблицы в MSFlexGrid или DataGrid
пробовал я сначала data подключать , и adodc , ичерез них уже дальше работать, но что-то не получилось.
Просветите пожалуйста.



С уважением Graf
PM MAIL   Вверх
Gannibal
Дата 16.4.2005, 08:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
вот здесь почитай там в низу приблизительно в середине написано... думаю там всё понятно обясняют

http://www.vbnet.ru/articles/showarticle.aspx?id=178


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Igor Graf
Дата 16.4.2005, 09:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет
M.E.G.U.S слушай, классная ссылка, спасибо, буду разбираться.



С уважением Graf
PM MAIL   Вверх
Gannibal
Дата 16.4.2005, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
Цитата
M.E.G.U.S слушай, классная ссылка, спасибо, буду разбираться.


да всегда рад помочь smile


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Igor Graf
Дата 19.4.2005, 08:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет
Привет всем!!!


В обшем методом тыка пришел я к следующему

Код


Private Sub Command2_Click()
If Text4.Text = "" Or Text5.Text = "" Then
MsgBox ("Íåîáõîäèìî âûáðàòü áä è òàáëèöó")
Else
Dim strConnect As String
Dim pwd As String
pwd = "'" & Text10.Text & "'"
strConnect = ";database=c:\" & Text4.Text & ".mdb" & ";PWD=" & pwd & ""
Set mdb = OpenDatabase("", True, False, strConnect)
Data1.DatabaseName = "c:\" & Text4.Text & ".mdb"
Data1.RecordSource = "'" & Text5.Text & "'"
Data1.Refresh
End If
End Sub




Этим кодом я открываю бд и связываю ее с элементом data. Все работает.
Вопрос в следующем как тоже самое связать с ADODC элементом, или как можно в MSFlexGrid редактировать записи ну как в DataGrid , MSFlexGrid помоему этого делать нельзя(может и ошибаюсь, но сколько ковырялся не получилось). Заранее спасибо.


С уважением Graf
PM MAIL   Вверх
Gannibal
Дата 19.4.2005, 08:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
я знаю что много ссылок даю но если есть в нете так почему бы и нет вот почитай может поможет.. надеюсь поможет чё нибудь http://www.microsoft.com/Rus/Msdn/Activ/MS...ss/Default.mspx


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Igor Graf
Дата 19.4.2005, 10:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет
M.E.G.U.Sспасибо за участие твою ссылку смотрю, но если знаешь как мне ADODC подключить к этой проге , будь другом напиши кусок кода, еще раз спасибо .
PM MAIL   Вверх
Gannibal
Дата 19.4.2005, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
если неошибаюсь то вот так сделать можно.. я проверить немогу... взял для примера просто твой код и переделал .. вот так вот приблизительно приду домой перепишу если надо будет....

Код

Private Sub Command2_Click()
If Text4.Text = "" Or Text5.Text = "" Then
MsgBox ("блабла")
Else

Dim pwd As String
pwd = "'" & Text10.Text & "'"

    With Adodc1 
        .ConnectionString = ";database=c:\" & Text4.Text & ".mdb" & ";PWD=" & pwd & ""
        .RecordSource = "'" & Text5.Text & "'"
    End With 

    Set Text1.DataSource = Adodc1 

    Text1.DataField = "Имя"

    Label1.Caption = "Имя:"
    ' аналогично для других полей 
End Sub


Это сообщение отредактировал(а) M.E.G.U.S - 19.4.2005, 20:53


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Igor Graf
Дата 20.4.2005, 07:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет
Код

Private Sub Command2_Click()
If Text4.Text = "" Or Text5.Text = "" Then
MsgBox ("áëàáëà")
Else
Dim pwd As String
pwd = "'" & Text10.Text & "'"
    With Adodc1
        .ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data sourse=\\server\base\" & Text4.Text & ".mdb"  & ";PWD=" & pwd & ""
        .RecordSource = "'" & Text5.Text & "'"
    End With
    Set DataGrid1.DataSource = Adodc1
    End If
End Sub



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



С уважением Graf
PM MAIL   Вверх
Gannibal
Дата 20.4.2005, 17:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
попробуй вместо Microsoft.Jet.OLEDB.4.0 употрябит Microsoft.Jet.OLEDB.3.51 может идёт несовпадение БД


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Igor Graf
Дата 22.4.2005, 07:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет
Пробовал, не идет , да я в принципе уже обошелся тем, что есть, но интересно было-бы всетаки разобраться.


С уважением Graf
PM MAIL   Вверх
Gannibal
Дата 22.4.2005, 13:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17
Цитата
Bugs: Couldn't Find Installable ISAM
When you try to export/import data from Excel, dBase, Text or some other file type, you might get this error message.
A missing file or corrupt registry entry are the usual causes behind this error. Sometimes, a typical Office Setup does not install these drivers by default. Re-run the Setup program, and manually select the individual drivers under the Data Access options. If any of the driver files were missing, they should be copied and registered by the Setup program.
However, in a few cases, this does not get rid of the error message. If the driver files are already present on the hard drive, the registry entries could be corrupt.
First try registering the appropriate dll with RegSvr32 (sample steps <bugs0007.htm>. If this doesn't work, then try running the setup with some command line arguments:
Setup /y /r
If you still experience the same error message, try completely uninstalling Access. Then, search for these files on your hard drive, and rename them.
Msexcl35.dll (Excel) Mstext35.dll (Text)
Msxbse35.dll (dBase) Msxbse35.dll (FoxPro)
Now, re-install Access.


вот нашёл решения проблемы говорят что помагаета так на майкрасофте есть описание счас посмотрю..
ну вот и майкрасофт http://support.microsoft.com/kb/q90111/


--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
Igor Graf
Дата 23.4.2005, 07:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 152
Регистрация: 10.2.2005

Репутация: нет
Всего: нет

Спасибо большое M.E.G.U.S , буду переводить и разбираться (т.к. с английским туго)



С уважением Graf
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0847 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.