VB-til-Microsoft Access

[zkai2000]

Hej, jeg ve gemme min profil info sammen med billeder.Hvorfor det gjorde t vise i min database (ved hjælp af Microsoft Access)?Mine billeder er indstillet som OLE-objekt i Microsoft Access

Dette er mit VB-koderivate Sub cmdSave_Click ()savePicToDB picPhoto.Tag, rsUser ( "Foto")savePicToDB picFingerprint.Tag, rsUser ( "fingeraftryk")
rsUser.AddNewrsUser ( "Navn") = txtname.TextrsUser ( "IC Nej") = txtIC.TextrsUser ( "Alder") = txtAge.TextrsUser ( "gender") = txtGender.TextrsUser ( "Contact No") = txtContact.TextrsUser ( "Adresse") = txtAddress.TextrsUser ( "Email") = txtEmail.TextrsUser ( "Bemærkninger") = txtRemarks.Text
rsUser.Update
txtBoxLock (sand)ctrlEnable (sand)
cmdNew.SetFocusEnd Sub
Public Sub savePicToDB (ByVal picFile As String, ByVal fldPic Som ADODB.Field)
Dim bBLOB () Som ByteDim iNum As Integer
If (picFile <> "") Then
iNum = FreeFile
Åbn picFile For Binary Som # iNumRedIm bBLOB (FileLen (picFile))Få # iNum, bBLOBClose # 1
»Store BLOBfldPic.AppendChunk bBLOBEnd If
End SubPublic Sub loadPicFromDB (ByVal fldPic Som ADODB.Field, ByRef picTarget Som PictureBox)
Dim sTempPic As StringDim lImgSize As LongDim lOffset As LongDim bChunck () Som ByteDim ifile As IntegerConst CHUNKSIZE = 1000
sTempPic = App.Path & "\ temppic.jpg"If Len (Dir (sTempPic))> 0 ThenKill sTempPicEnd If
ifile = FreeFile
Åbn sTempPic For Binary Som # ifilelImgSize = fldPic.ActualSize
Må Mens lOffset <lImgSizebChunck () = fldPic.GetChunk (CHUNKSIZE)Put # ifile, bChunck ()lOffset = lOffset CHUNKSIZELoop
Close # ifile
Hvis FileLen (sTempPic)> 0 ThenpicTarget.Picture = LoadPicture (sTempPic)AndenpicTarget.Picture = NothingEnd If
Kill sTempPic
End SubHvor er problemet??
Tak så meget!

 

[eemapir]

hej
Jeg tror, vb et adgangspunkt, skal ikke sammenlignes
enten er lavet til at gøre sth specifikke
farvel

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

 

[zkai2000]

nono .. Jeg bruger Microsoft Access som min database.VB som GUI.

så noget info jeg nøgle-in vil blive gemt i adgang

 

[kelvin_sg]

Du kan gå til www.planet-source-code.com at downloade kildekoder
om adgang til databaser.AFAIK, er det forholdsvis enkelt at manipulere AccessDB
med Visual Basic 6.

Hvorfor ikke bruge XML, som er mere tilgængelig og mere populære selvfølgelig.

 

[sapaku]

Dette ritual.Du kan fint kildekoden der eller u kan tage et kig på adgang eksempel, hvor grænsefladen er med VB også.