g-jorge
|
ITAPEVI SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 06/03/2008 09:46 hs
Como posso armazenar somente o caminho em vez das fotos no BD ??? pois ficará armazenadas em C:EstoqueFotos . O intuito é não comprometer o tamanho do BD . Private Sub cmdSalvarFoto_Click() Dim NumArq cmm_foto.ShowOpen NumArq = cmm_foto.FileName Image1.Picture = LoadPicture(NumArq) Text1.Text = NumArq End Sub
|
|
|
|
KoRn
|
SAO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 06/03/2008 10:54 hs
Aew amigo mandei um exemplo pra tu no seuemail , espero que sirva
|
|
|
g-jorge
|
ITAPEVI SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 06/03/2008 11:23 hs
|
|
|
Treze
|
SÃO VICENTE SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 06/03/2008 11:23 hs
colega pelo que entendi você está usando o common dialog control, porém o está usando de forma errada use-o desta forma: Private Sub cmdsalvarFoto_Click() On Error GoTo trataerro ' aqui você define o titulo do seu common dialog control cmd1.DialogTitle = "Definir Caminho das Fotos" ' InitDir = o diretório que será aberto ao se abrir o common dialog control cmd1.InitDir = "C:" ' FileName determina que a busca seja por todos o arquivos JPG e Bmp cmd1.FileName = "*.jpg;*.mdb" ' Filter = filtra somente arquivos JPG e BMP cmd1.Filter = "*.jpg;*.bmp" ' e agora sim abrir o common dialog cmd1.ShowOpen ' ao se clicar em OK o caminho será salvo no textbox Text1.Text = cmd1.FileName trataerro: Exit Sub End Sub agora basta você salvar o text1 em seu banco de dados veja se era isto até
|
|
|
KoRn
|
SAO PAULO SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 06/03/2008 11:34 hs
certo, mas troca o do seu cadastro tbm, ja reeviei
|
|
|
g-jorge
|
ITAPEVI SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 06/03/2008 12:13 hs
Valeu, vou testar os códigos e dou retorno .
|
|
|