VPF::Добавление картинки в бд MySql - Форум программистов

Igor Graf

Дата 22.7.2005, 09:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Привет, это снова я, со своими вопросами!

Короче такая беда, значит есть кнопка Выбрать

Код


Dim sPath$, cdlg As GCommonDialog, bRet As Boolean
    Set cdlg = New GCommonDialog
    On Error Resume Next
  ' pop up a dialog
    sPath = cmdBrowse.Tag
    bRet = cdlg.VBGetOpenFileName( _
      sPath, "Select Image file:", True, False, True, False, _
      "Bitmap's (*.bmp)|*.bmp|GIF's (*.gif)|*.gif|" & _
      "Icon's (*.ico)|*.ico|JPEG's (*.jpg)|*.jpg|" & _
      "Supported graphics formats (*.bmp;*.gif;*.ico;*.jpg)|" & _
      "*.bmp;*.gif;*.ico;*.jpg", 5, App.Path, _
      "Please select an image file:")
  ' get the filename
    sPath = cdlg.Filename
    Text1.Text = sPath
  ' load the picture
    Set Picture1.Picture = LoadPicture(sPath)
      Set cdlg = Nothing

при нажатии выбирается файл и потом его путь надо сохранить в бд Mysql

Код


cn.Execute "INSERT INTO students (path) VALUES('" & Text1.Text & "')"

все сохраняется, да только без знака \, например text1.text= d:\ ляляляля, а сохраняется-
d: ляляляля , я тут доки почитал и узнал что для занесения знака \ нужно написать \\, то есть пишешь \\, а записывается \, так вот вопрос, как модернизировать код, чтоб все нормально записывать путь ?

спасибо за внимание

С уважением Graf

Spawn™Production®

Дата 22.7.2005, 09:50 (ссылка)

(нет голосов)

Загрузка ...

Тестер ПО, VB.NET Developer

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

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

Igor Graf, так как знак "\" запрещен в названии файлов и т.п., то можно обойтись простым Replace при обработке пути.

Код


Replace(Text1.Text, "\","\\")

--------------------

ОС: WinXP SP2 Rus
Frameworks: v1.0.3705, v1.1.4322, v2.0.50215, v2.0.50727
Сам кодю на VB (6.0 (почти забросил), 7.1, 8.0)

Igor Graf

Дата 22.7.2005, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Спасибо
Spawn™Production® огомное
но пожалуйста поподробнее , как это применить, для моего кода?

Код


cn.Execute "INSERT INTO students (path) VALUES('" & Text1.Text & "')"

Код


Replace(Text1.Text, "\","\\")

куда его вставить?Кто знает напишите, если не влом пожалуйста
С уважением....

Igor Graf

Дата 22.7.2005, 14:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

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

Все помощь больше не нужна, вот так все работает

Код


cn.Execute "INSERT INTO students (path) VALUES('" & Replace(Text1.Text, "\", "\\") & "')"

Spawn™Production® искренняя благодарность тебе

С уважением Graf

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »