Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как открыть файл из поля в БД / 20 сообщений из 20, страница 1 из 1
21.11.2007, 08:51
    #34953962
Се
Се
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
Народ подскажите может кто подскажет
Как открыть файл *.jpg просмотрщиком из поля БД в котором прописан путь к файлу
одновременно с DataReport?
Смысл всего этого в DataReport открывается текстовый отчет , а картинка к нему отдельно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 09:42
    #34954075
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
Если в базе содержится полный путь к картинке то можно попробовать через ShellExecute, которой в качестве одного из параметров передается значение поля базы содержащее путь к файлу.

С уважением, Николай.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 09:53
    #34954108
Бенедикт
Бенедикт
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
Се,
если нужен внутренний просмотрщик, то можно сделать форму, на ней PictureBox, и делать Set Picture1.Picture = LoadPicture(ПутьКФайлу).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 10:45
    #34954333
Се
Се
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
Спасибо за идеи
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 10:58
    #34954395
Се
Се
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
Бенедикт
можно уточнить?
Private Sub Picture1_Click()
Set Picture1.Picture = LoadPicture (вот здесь должно быть имя поля в котором прописан путь к файлу) .
End Sub
если можно то черкни кодом?
Новичек я что ещё тут сказать:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 11:28
    #34954549
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
Set Picture1.Picture = LoadPicture ( не имя поля а его значение ) .
Ты как данные из базы выбираешь?? Через ресордсет?
Тогда так
Код: plaintext
Set Picture1.Picture = LoadPicture (rs.Fields("имя поля с путем")) .


С уважением, Николай.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 11:30
    #34954563
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
СеБенедикт
можно уточнить?
Private Sub Picture1_Click()
Set Picture1.Picture = LoadPicture (вот здесь должно быть имя поля в котором прописан путь к файлу) .
End Sub
если можно то черкни кодом?
Новичек я что ещё тут сказать:)
Примерное такой код добавить
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Dim conn As ADODB.Connection 
Dim rs As ADODB.Recordset 
Dim DbFile As String 

Set conn = New ADODB.Connection 
Set rs = New ADODB.Recordset 
Dim db_file As String 
db_file = "c:\Documents\db1.mdb" 

With conn 
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db_file 
.Mode = adModeReadWrite 
.CursorLocation = adUseClient 
.Open 
End With 

With rs 
.ActiveConnection = conn 
.Source = "Select put_k_foto from table1 where id=2"' Здесь свой запрос
.CursorType = adOpenDynamic 
.LockType = adLockOptimistic 
.Open , , , , adCmdTableDirect 
End With 
Set Picture1.Picture = LoadPicture (rs.Fields( 1 ))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 12:16
    #34954813
Се
Се
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
У меня вот такой вот запрос , скажите что не так? Все работает кроме Set Picture1.... на нем ошибку выдает Private Sub cmdShowReport_Click()
Dim cn As ADODB.Connection
Dim cm As ADODB.Command
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "C:\Test\DataReport.mdb"
.Open
End With
Set cm = New ADODB.Command
cm.ActiveConnection = cn
cm.CommandText = "SELECT * FROM tblPeople Where LastName&FirstName = '" & txtFrom.Text & txtFrom1.Text & "'"
cm.CommandType = adCmdText
Set rs = cm.Execute
If rs.BOF = False And rs.EOF = False Then
Set DataReport1.DataSource = rs
DataReport1.Sections("Section4").Controls("lblRHeader").Caption = "Отчет " & txtFrom
DataReport1.Show 1
Set Picture1.Picture = LoadPicture(rs.Fields("Image"))
frmImage.Show 1
Set rs = Nothing
Set cn = Nothing
Else
MsgBox "Запись не найдена!"
End If

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 12:27
    #34954862
gjghjc
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
Какая ошибка?
И что дает Debug.Print rs.Fields("Image")?

С уважением, Николай.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 12:33
    #34954897
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
Ты уверен что твой селект возвращает одно значение?
Если одно значение, то есть ли такой путь к фотографии?
Какая ошибка?


-----------
Андрей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 12:35
    #34954908
Се
Се
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
Ошибка Type mismatch
Debug говорит что Set...= 0
Хотя и файл реально существует и путь в поле прописан и форма открывается но только с пустым picturebox-ом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 12:43
    #34954939
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
СеОшибка Type mismatch
Debug говорит что Set...= 0
Хотя и файл реально существует и путь в поле прописан и форма открывается но только с пустым picturebox-ом
Ты уверен что select у тебя тянет хоть одно значение?
Скорей всего там у тебя ошибка. Попробуй для начала задать конкретный select типа
"SELECT * FROM tblPeople Where FirstName =Иванов"
Лучше даже
"SELECT Image FROM tblPeople Where FirstName =Иванов"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 12:54
    #34954997
Се
Се
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
Ну если бы селект ничего не тянул тогда в DataReport было бы пусто , а та в датарепорт у меня вся инфа по конкретной записи появляется
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 13:37
    #34955196
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
Если я в своем select указываю ложное условие, то у меня тоже Type mismatch
Попробуй конкретный select или кидай прогу с базой

-----------
Андрей.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 14:18
    #34955401
Се
Се
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
У меня там ещё косяков куча большая
конечно если можешь помочь
скажи куда скинуть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2007, 16:52
    #34956037
Belkin
Belkin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
СеУ меня там ещё косяков куча большая
конечно если можешь помочь
скажи куда скинуть?
Можешь здесь выложить (есть вероятность что еще кто-то поможет), можешь на почту (в профайле).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2007, 06:22
    #34957024
Се
Се
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
вот проект мой
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2007, 08:28
    #34957111
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Private Sub cmdShowReport_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = App.Path & "\DataReport.mdb"
    .Open
End With
With rs
    .ActiveConnection = cn
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Open "SELECT * FROM tblPeople Where LastName = '" & txtFrom.Text & "' and FirstName='" & txtFrom1.Text & "'"
End With
If rs.RecordCount >  0  Then
    Set DataReport1.DataSource = rs
    DataReport1.Sections("Section4").Controls("lblRHeader").Caption = "Отчет по сотруднику " & txtFrom
    DataReport1.Show  1 
    frmImage.Picture1 = LoadPicture(rs.Fields("Image").Value)
    frmImage.Show
    If rs.State = adStateOpen Then rs.Close
    If cn.State = adStateOpen Then cn.Close
    Set rs = Nothing
    Set cn = Nothing
Else
  MsgBox "Запись не найдена!Сделайте новую запись!"
    If rs.State = adStateOpen Then rs.Close
    If cn.State = adStateOpen Then cn.Close
    Set rs = Nothing
    Set cn = Nothing
End If

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2007, 08:48
    #34957132
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
не мешало бы проверку на существование файла на диске добавить

Код: plaintext
1.
2.
3.
If Dir(rs.Fields("Image").Value) <> "" Then
        frmImage.Picture1 = LoadPicture(rs.Fields("Image").Value)
        frmImage.Show
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2007, 10:12
    #34957324
Се
Се
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как открыть файл из поля в БД
Tiko огромное спасибо , заработало!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как открыть файл из поля в БД / 20 сообщений из 20, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 387ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2163061]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 102ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 193ms
total:  387ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]