Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Базы данных
Перезагрузить страницу База данных + VB 2005
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
s-stude s-stude вне форума
Member
 
Сообщений: 28
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.03.2007
Адрес: Украина, Крым, Симферополь
По умолчанию 23.04.2007, 19:34

вот такой вопрос:
мне надо найти литературу по связи вб2005 и базы данных.
в моем случае это PostgreSQL под виндой,или альтернатива (:-D) MSAccess2003
нужна какая нибудь книжка.
по постгрэ в сети находил только платные, на давнлоад никак.
может я не там ищу, тода подскажите линки на давнлоад литературы из такой дже области
Ответить с цитированием
  (#2 (permalink)) Старый
VipeR VipeR вне форума
Шнивавод
 
Аватар для VipeR
 
Сообщений: 5,231
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.02.2007
Адрес: Россия, Уфа
По умолчанию 23.04.2007, 19:37

Насчет аксесса спрашивай, что хочешь (если по мелочи в плане объема), объясним ;) линки дать не могу, я с телефона :)
Ответить с цитированием
  (#3 (permalink)) Старый
pino2007 pino2007 вне форума
Member
 
Аватар для pino2007
 
Сообщений: 459
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 21.03.2007
Адрес: Ростов-на-Дону
По умолчанию 23.04.2007, 20:58

Посмотри здесь может че найдешь http://www.natahaus.ru/index.php
Ответить с цитированием
  (#4 (permalink)) Старый
s-stude s-stude вне форума
Member
 
Сообщений: 28
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.03.2007
Адрес: Украина, Крым, Симферополь
По умолчанию 25.04.2007, 16:16

вот такой вопрос по встроенному VBA
мне надо из программы записать в файл *.txt имена всех существующих таблиц в Ассesse
Ответить с цитированием
  (#5 (permalink)) Старый
VipeR VipeR вне форума
Шнивавод
 
Аватар для VipeR
 
Сообщений: 5,231
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.02.2007
Адрес: Россия, Уфа
По умолчанию 25.04.2007, 17:05

хм ........... интересно, дай время подумать, делов дофигища :)
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
V_Bond V_Bond вне форума
Member
 
Сообщений: 561
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 26.11.2006
По умолчанию 25.04.2007, 17:49

имхо сложно получится .....надо функции win API использовать.....
Ответить с цитированием
  (#7 (permalink)) Старый
VipeR VipeR вне форума
Шнивавод
 
Аватар для VipeR
 
Сообщений: 5,231
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.02.2007
Адрес: Россия, Уфа
По умолчанию 26.04.2007, 16:21

Попотел минут десять, лови код :)
Код:
    Dim TableName As AccessObject, currDB As Object, n
    Set currDB = Application.CurrentData
    Set FSObject = CreateObject("Scripting.FileSystemObject")
    Set MyTextFileName = FSObject.CreateTextfile("c:\ИмяТекстовогоФайла.txt", True)
    For Each TableName In currDB.AllTables
    MyTextFileName.WriteLine (TableName.Name)
    Next TableName
    MyTextFileName.Close
Кинь его на батон на форме аксесса. Если нужны комментарии к коду - велкам :)
Ответить с цитированием
  (#8 (permalink)) Старый
s-stude s-stude вне форума
Member
 
Сообщений: 28
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.03.2007
Адрес: Украина, Крым, Симферополь
По умолчанию 27.04.2007, 17:26

еще одна ситуация.
я в файл вывел данные одной иаблицы:имена полей, количество полей, значения полей..но тут вылез один момент..необходимо такде вывести типы полей таблицы, т.е. чтоб в файл записалось что-то типа: полеФИО-dbText полеКОЛИЧЕСТВО-db...и т.д. чтоб каждому типу счетчик, текстовое, числовое, дата, и т.д. автоматически присваивался соответствующий тип и все это дело выводилось в файл.
Ответить с цитированием
  (#9 (permalink)) Старый
s-stude s-stude вне форума
Member
 
Сообщений: 28
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.03.2007
Адрес: Украина, Крым, Симферополь
По умолчанию 27.04.2007, 17:40

Цитата:
Сообщение от -ViрeR-
Если нужны комментарии - велкам :)
я проверил ваш метод копирования имен,отличается от моего, я вопрос задал, чтоб проверить в том ли направлении я мыслю.
вот результат наших методов:

MSysAccessObjects
MSysAccessXML
MSysACEs
MSysObjects
MSysQueries
MSysRelationships
Доставка
Заказано
Заказы
Клиенты
Поставщики
Сотрудники
Типы
Товары


почти правильно но и у вас и у меня выводит вот эти строки..
MSysAccessObjects
MSysAccessXML
MSysACEs
MSysObjects
MSysQueries
MSysRelationships

мне имена нужны чтоб их закинуть в массив,однако эти строки не есть имена таблиц, конечно при анализе файла их можно обойти, но все таки как бы сделать так чтоб они не выводились...
Ответить с цитированием
  (#10 (permalink)) Старый
VipeR VipeR вне форума
Шнивавод
 
Аватар для VipeR
 
Сообщений: 5,231
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.02.2007
Адрес: Россия, Уфа
По умолчанию 27.04.2007, 17:52

Ща гляну ....., это имена системных таблиц
В общем идея такая ..... TableName - это переменная, кояя по очереди принимает значения имен всех таблиц. Можно через функцию String пробить первые 4 символа имени таблицы - у системных всегда начинается с Msys или Switchboard items отсеять их в коде заранее и делов :)
Ответить с цитированием
  (#11 (permalink)) Старый
VipeR VipeR вне форума
Шнивавод
 
Аватар для VipeR
 
Сообщений: 5,231
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.02.2007
Адрес: Россия, Уфа
По умолчанию 27.04.2007, 21:42

И еще ..... выложи сюда свой код, где ты вывел имена полей и их количество. Над добавлением типа полей подумать чуток надо, зацепка небольшая уже родилась - завтра опробую :)
Ответить с цитированием
  (#12 (permalink)) Старый
s-stude s-stude вне форума
Member
 
Сообщений: 28
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.03.2007
Адрес: Украина, Крым, Симферополь
По умолчанию 28.04.2007, 10:52

Цитата:
Сообщение от -ViрeR-
Ща гляну ....., это имена системных таблиц
В общем идея такая ..... TableName - это переменная, кояя по очереди принимает значения имен всех таблиц. Можно через функцию String пробить первые 4 символа имени таблицы - у системных всегда начинается с Msys или Switchboard items отсеять их в коде заранее и делов :)
да и я о том же.
с таблицами разобрались, но как же теперь выдернуть код...
Ответить с цитированием
Ads
  (#13 (permalink)) Старый
s-stude s-stude вне форума
Member
 
Сообщений: 28
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.03.2007
Адрес: Украина, Крым, Симферополь
По умолчанию 28.04.2007, 10:59

Цитата:
Сообщение от -ViрeR-
И еще ..... выложи сюда свой код
Private Sub кнопка_Click()

Dim db As Database
Dim rs_zakazano As Recordset
Dim strZapros, strPole, strFields As String
Dim masNAME() As String
Dim i As Integer
Set db = CurrentDb
Set rs_zakazano = db.OpenRecordset("Заказано", dbOpenDynaset, dbReadOnly)


rs_zakazano.MoveFirst
Open "D:\temp\test_db\polja.txt" For Output As #1

With rs_zakazano
Print #1, "Таблица заказано"
Print #1, .Fields.count ' количество полей
ReDim masNAME(.Fields.count - 1)
For i = 0 To .Fields.count - 1
masNAME(i) = .Fields(i).Name ' загоняем в массив имена полей
Next

strPole = masNAME(0)
For i = 1 To .Fields.count - 1
strPole = strPole & vbCrLf & masNAME(i) 'переменной присваиваем все имена полей
Next

Print #1, strPole

strFields = .Fields(0)
For i = 1 To .Fields.count - 1
strFields = strFields & "," & .Fields(i) ' берем значения
Next

Do While Not .EOF
strZapros = strFields
Print #1, strZapros
.MoveNext
Loop
End With
Write #1,
Close #1
db.Close
End Sub

может в этом коде чё неправильно, но все вроде работает..
может я что-нибудь усложнил...
буду признателен за поправки..
я ведь только начинаю...
Ответить с цитированием
  (#14 (permalink)) Старый
VipeR VipeR вне форума
Шнивавод
 
Аватар для VipeR
 
Сообщений: 5,231
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 14.02.2007
Адрес: Россия, Уфа
По умолчанию 01.05.2007, 21:22

Думаю ты пошел по несколько более длинному пути, но в принципе очень неплохо :) ..... у мну нашелся старый программный модуль (пару лет ему уже :/ ), выводил как раз только типы полей на форму. Приспособить под текстовый файл - раз плюнуть, но сколько я его не дебугил, ни%*@ он не запускается (хотя раньше на ура работал). Хз завтра еще поработаю хотя каждую строку по десять раз проверил ..... :)
Ответить с цитированием
  (#15 (permalink)) Старый
s-stude s-stude вне форума
Member
 
Сообщений: 28
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 12.03.2007
Адрес: Украина, Крым, Симферополь
По умолчанию 03.05.2007, 13:52

Цитата:
Сообщение от -ViрeR-
Думаю ты пошел по несколько более длинному пути
да я уже смог сам вырвать эти типы полей, все оказалось так просто, и насчет имен полей и их кол-ва вы правы.путь длинный, я нашел более короткий и попроще, попонятнее.щас все работает вроде...правда на 1 таблицу. я взял чисто для примера, посмотреть как оно будет работать
теперь осталось на всю базу сделать...
и в файл...
а потом в PostgreSQL и все...
да...... осталось разобраться с ентим PostgreSQL...
буду думать
ночи нынче длинные...
Ответить с цитированием
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
База данных об объектах, поиск объектов по признакам. База хранится в файле. znakos Prolog 1 16.04.2012 20:47
База данных в VB.net MAGZHAN .NET 1 20.02.2011 07:04
База данных! Anksuna Prolog 0 03.11.2010 13:55
База данных man1ac Delphi 1 16.08.2010 17:42
База данных LOKODRAG Pascal 1 24.03.2010 12:00
База данных Valja Prolog 7 08.04.2009 08:06
База данных в web yarus .NET 0 25.06.2008 11:33
База данных и VW 7.4.1 yamamoto Smalltalk 4 19.11.2007 20:31
База данных. gard Prolog 5 02.12.2006 21:21
Получение данных из поля типа Memo база данных MS ACCESS Лукашин Дмитрий Visual C++ 1 14.07.2004 03:12
База данных и сортировка данных -=MonstriK=- Delphi 2 26.04.2004 09:55
База данных на С++ Anonymous С/С++ 0 12.03.2003 20:17



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов