VB-to-Microsoft Access

[zkai2000]

Hi, I ve tallennan profiilin tiedot sekä kuvat.Miksi se didn t osoittavat tietokannasta (Microsoft Access)?Omat kuvat asetetaan OLE Microsoft Access

Tämä on minun VB-kooditrivate Sub cmdSave_Click ()savePicToDB picPhoto.Tag, rsUser ( "Kuva")savePicToDB picFingerprint.Tag, rsUser ( "sormenjälki")
rsUser.AddNewrsUser ( "Nimi") = txtname.TextrsUser ( "IC o") = txtIC.TextrsUser ( "ikä") = txtAge.TextrsUser ( "sukupuoli") = txtGender.TextrsUser ( "Ota No") = txtContact.TextrsUser ( "osoite") = txtAddress.TextrsUser ( "Sähköposti") = txtEmail.TextrsUser ( "Huomautuksia") = txtRemarks.Text
rsUser.Update
txtBoxLock (True)ctrlEnable (True)
cmdNew.SetFocusEnd Saharan
Public Sub savePicToDB (ByVal picFile As String, ByVal fldPic As ADODB.Field)
Himmennä bBLOB () As ByteDim iNum As Integer
Jos (picFile <> "") Then
iNum = FreeFile
Avaa picFile For Binary As # iNumReDim bBLOB (FileLen (picFile))Get # iNum,, bBLOBSulje # 1
"Kauppa BLOBfldPic.AppendChunk bBLOBEnd if
End SaharanPublic Sub loadPicFromDB (ByVal fldPic Kuten ADODB.Field, ByRef picTarget As PictureBox)
Dim sTempPic As StringDim lImgSize As LongDim lOffset As LongHimmennä bChunck () As ByteDim iFile As IntegerConst CHUNKSIZE = 1000
sTempPic = App.Path & "\ temppic.jpg"If len (Dir (sTempPic))> 0 ThenKill sTempPicEnd if
iFile = FreeFile
Avaa sTempPic For Binary As # iFilelImgSize = fldPic.ActualSize
Älä Vaikka lOffset <lImgSizebChunck () = fldPic.GetChunk (CHUNKSIZE)Laita # iFile,, bChunck ()lOffset = lOffset CHUNKSIZEKiemura
Sulje # iFile
Jos FileLen (sTempPic)> 0 ThenpicTarget.Picture = LoadPicture (sTempPic)MuutenpicTarget.Picture = NothingEnd if
Kill sTempPic
End SaharanMissä on ongelma?
Kiitoksia paljon!

 

[eemapir]

hei
Mielestäni vb pääsyä ei voida verrata
joko tehdään tehdä STH erityisiä
hei

<img src="http://www.edaboard.com/images/smiles/icon_surprised.gif" alt="Yllättyneitä" border="0" />

 

[zkai2000]

nono .. voin käyttää Access minun tietokannasta.VB kuin GUI.

joten kaikki info I avain-ja tallennetaan pääsy

 

[kelvin_sg]

Voit mennä www.planet-source-code.com ladata lähdekoodien
tietokantoihin pääsyä.AFAIK, se on melko helppo manipuloida AccessDB
Visual Basic 6.

Miksi eivät käytä XML, joka on helpommin ja enemmän halpa tietysti.

 

[sapaku]

Tämä riitti.Voit sakko lähdekoodin siellä tai u voi vilkaista käyttää esimerkiksi silloin, kun liitäntä on käytössä VB liikaa.