| Вопрос: Shell ,Database application | Добавлено: 10.10.02 17:41 |
Автор вопроса:  IljaV
|
|
U menja est odin vopros.Ja rabotaju nad sodzdaniem DB,kotoriy soderzhit foto i opisanie k nim.v dannoe vremja ja pitajus sodzat fromu v kotoroy mozhno bilo bi naiyt nuzhnuju kartinku i zatem poslat kartinku v mspaint ili photoshop.i zdes voznikaet problema: kartinka nahoditsja no kak sdelat 4tobi programma nahodila mesto gde kartinka lezhit na komputere? vot moy kod: poisk kartinki Private Sub lvwTräffar_DblClick() Dim sql As String Set rs = New ADODB.Recordset sql = ("SELECT path FROM bild WHERE bildnr = " & lvwTräffar.SelectedItem & "") rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly picRedigera.Picture = LoadPicture(rs.Fields("path").Value) End Sub otkrit Photoshop Private Sub cmdRedigera_Click() Shell """C:\Program Files\Adobe\Photoshop 6.0\Photoshp.exe"" " & _ "??????????", vbNormalFocus 4to mne nado napisat ???? End Sub spasibo za pomosh zaranee |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Satrapp ICQ: 75556561 Вопросов: 8 Ответов: 80 |
Профиль | | #1 | Добавлено: 11.10.02 00:24 |
|
А что, нельзя сохранить rs!path в какой-нибудь глобальной переменной типа sPath и написать sPath = rs!path picRedigera.Picture = LoadPicture(sPath) а в cmdRedigera_Click() написать Shell """C:\Program Files\Adobe\Photoshop 6.0\Photoshp.exe"" " & _ sPath, vbNormalFocus ?
|
||
Страница: 1 |