Keskustelu: Ohjelmointikysymykset: VB6: Kuvan tallennus tietokantaan... (VB)

Hieman sivuuttaen tuota aikaisempaa kysymystäni niin onkohan VB:llä mahdollista tehdä nappi (commandbutton-objekti), joka tallentaisi picture-elementissä tai siihen "haetun" kuvan tietokantaan...

Hieman jos jokin ystävällinen sielu voisi tähän antaa osviittaa tai avitusta.

Kiitosh

Private Sub Form_Click()
Dim CX, CY, Limit, Radius   As Integer, Msg As String
ScaleMode = vbPixels
AutoRedraw = True 'Estää pätkimisen
Width = Height
CX = ScaleWidth / 2
CY = ScaleHeight / 2
Limit = CX
For Radius = 0 To Limit   '
Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
'tekee ympyrän
DoEvents
Next Radius
Msg = "Nyt pitäisi olla kuva tallennettuna"
Msg = Msg & "bitmap tiedostoon."
MsgBox Msg
SavePicture Image, "TEST.BMP"
End Sub

Jos tarkoitat (esim: bmp-tiedostoksi) tallentamista tää on aika hyvä esimerkki

Mikäköhän noista riveistä suorittaa itse _tietokantaan_ tallentamisen?

Esim:
*Tietokanta on nimeltään "kuvakanta.mdb"
*Tietokannassa on yksi taulukko (table) nimeltään "Kuvatukset"
*Kuvatukset taulukossa (table) on kaksi tietuetta "Nro", joka on avainkenttä ja ominaisuuksiltaan AutoNumber. Toinen taulukon tietue on nimeltään "Kuva" - tämän tietueen ominaisuudet voisivat olla luokkaa OLE Object (vai onko kuvalle (jpg, gif, bmp) muita vaihtoehtoja?)...

Tältä pohjalta...

Eli kuva on jo ns. valmiiksi haettuna PictureBox-elementtiin (joka on formilla) ja se pitäisi saada tallennettua tietokantaan, jonka rakenteen pääpiirteittäin selostin tuossa...

Kukaan?

Enpä ole ikinä ajatellut kuvan tallentamista tietokantaan...mutta toivottavasti tuosta on apua http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_20601144.html

lainaus:

Enpä ole ikinä ajatellut kuvan tallentamista tietokantaan...mutta toivottavasti tuosta on apua http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_20601144.html

Muuten hyvä, mutta vaatii rekisteröitymisen eikä semmoista jaksa edes roskapostin vuoksi tehdä =)

lainaus:

Muuten hyvä, mutta vaatii rekisteröitymisen eikä semmoista jaksa edes roskapostin vuoksi tehdä =)

Äh! puhu pukille... ehkä kirjottaminen vaatii, mutta tuossahan joku jo kysyy samaa ja siihen on vastattu... Jos se ei jostain syystä sinulla näy niin pastean tähän vielä kysymyksen ja eri vastauksia..

lainaus:

i want to save a picture in ms access using vb6 tell me how i can do this.
thanks
regards
hammad umar

Comment from joaquimbie
Date: 04/30/2003 04:56AM PDT Comment

- Put Into the form the control CommonDialog and a PictureBox And write the next code:

dim Picture,Filter

Filter = "Arquivos Bmp(*.bmp)|*.bmp|Todos Arq.|*.*"
With form
.CommonDialog1.Filter = Filter
.CommonDialog1.DefaultExt = "bmp"
.CommonDialog1.ShowOpen
Picture = .CommonDialog1.FileName

- That code Give you the location of the picture and to show the picture in the form:

form.Image1.Picture = LoadPicture(Foto)

- to save In ms access :

table.addnew
table("Picture")=Picture
table.update

Assisted Answer from emoreau
Date: 04/30/2003 05:07AM PDT Assisted Answer

see
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=39566&lngWId=1
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=31272&lngWId=1
http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=39378&lngWId=1

Comment from n_narayanan
Date: 04/30/2003 11:21AM PDT Comment
one more link
http://www.freevbcode.com/ShowCode.Asp?ID=589
Cheers
Narayanan

Ja tuossa hyväksytty vastaus.
Accepted Answer from RememberMe
Date: 04/30/2003 01:07PM PDT Accepted Answer

I had a typo in the last post

'Do not use the getchunk method.  Use the stream method.
'save image as a blob
'Use ADO 2.5 or greater

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stm As ADODB.Stream

On Error Resume Next

cn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & yourdatabasepath

rs.Open "Select * FROM yourtable", cn, adOpenKeyset, _ adLockOptimistic
   rs.AddNew

   stm.Type = adTypeBinary

   stm.Open

   stm.LoadFromFile yourpath 'path of the image

rs.fields(0).value = stm.read
rs.update
rs.close
stm.close

set rs = nothing
set stm = nothing

Vanhaa ylös... olen käyttänyt kohta kaikki konstit (myös nuo ylhäällä mainitut!) ja en ole saanut hommaa toimimaan niin kuin haluaisin ... .. . ADO-pohjainen VB-koodi pitäisi olla ja kuvan tallennus tietokantaan... voisiko joku neuvoa perustietokantayhteyden avaamisen ADO:lla? Olen etsinyt ja etsinyt, mutta mistään en löydä :(

Tämä oli periaatteessa se mitä etsin:

Private Sub Form_Load()

Set cnYhteys = New Connection

With cnYhteys
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & App.Path & "\images.mdb"
    .Open
End With
Exit Sub


Luoyhteys_virhe:
MsgBox "virhe luotaessa yhteyttä tietokantaan:" & Err.Description
End
End Sub

Nyt on parempi olo huomattavasti - kiitos eräälle kamulle tästä vinkistä :)