VB-to-Microsoft Access

Z

zkai2000

Guest
Hi, tôi ve lưu thông tin cá nhân của tôi cùng với hình ảnh.Tại sao nó hiển thị didn t trong cơ sở dữ liệu của tôi (sử dụng Microsoft Access)?Hình ảnh của tôi được thiết lập như là đối tượng OLE trong Microsoft Access

Đây là mã số của tôi VB:private Sub cmdSave_Click ()savePicToDB picPhoto.Tag, rsUser ( "Ảnh")savePicToDB picFingerprint.Tag, rsUser ( "vân tay")
rsUser.AddNewrsUser ( "Tên") = txtname.TextrsUser ( "vi mạch Không") = txtIC.TextrsUser ( "Age") = txtAge.TextrsUser ( "Giới tính") = txtGender.TextrsUser ( "Liên hệ Không") = txtContact.TextrsUser ( "Địa chỉ") = txtAddress.TextrsUser ( "Email") = txtEmail.TextrsUser ( "Ghi chú") = txtRemarks.Text
rsUser.Update
txtBoxLock (True)ctrlEnable (True)
cmdNew.SetFocusEnd Sub
Private Sub savePicToDB (ByVal picFile As String, ByVal fldPic Như ADODB.Field)
Dim bBLOB () As ByteDim iNum As Integer
Nếu (picFile <> "") Sau đó
iNum = FreeFile
Mở picFile Đối với nhị phân Như iNum #ReDim bBLOB (FileLen (picFile))Get iNum #,, bBLOBClose # 1
'Cất BLOBfldPic.AppendChunk bBLOBCuối Nếu
End SubPrivate Sub loadPicFromDB (ByVal fldPic Như ADODB.Field picTarget ByRef, As PictureBox)
Dim sTempPic As StringDim lImgSize As LongDim lOffset As LongDim bChunck () As ByteDim iFile As IntegerConst CHUNKSIZE = 1000
sTempPic = App.Path & "\ temppic.jpg"Nếu Len (Dir (sTempPic))> 0 ThenGiết sTempPicCuối Nếu
iFile = FreeFile
Mở sTempPic Đối với Binary As # iFilelImgSize = fldPic.ActualSize
Trong khi làm lOffset <lImgSizebChunck () = fldPic.GetChunk (CHUNKSIZE)Đặt # iFile,, bChunck ()lOffset = lOffset CHUNKSIZELoop
Close # iFile
Nếu FileLen (sTempPic)> 0 ThenpicTarget.Picture = LoadPicture (sTempPic)KhácpicTarget.Picture = Không có gìCuối Nếu
Giết sTempPic
End SubĐâu là vấn đề?
Thanks so much!!

 
chào
tôi nghĩ rằng một vb truy cập không được so sánh với
hoặc là được làm to do sth cụ thể
tiện đây

<img src="http://www.edaboard.com/images/smiles/icon_surprised.gif" alt="Ngạc nhiên" border="0" />
 
Nono .. i microsoft sử dụng truy cập như cơ sở dữ liệu của tôi.VB là GUI.

do đó bất kỳ thông tin chính i-in sẽ được lưu trong truy cập

 
Bạn có thể đến để www.planet-source-code.com để tải về mã nguồn
trên cơ sở dữ liệu truy cập.AFAIK, nó khá đơn giản để thao tác AccessDB
với Visual Basic 6.

Tại sao không sử dụng XML, mà là dễ tiếp cận hơn và phổ biến hơn trong khóa học.

 
Đó là nghi thức.Bạn có thể tinh mã nguồn có hoặc u có thể đi xem một ví dụ nơi truy cập giao diện đang sử dụng VB quá.

 

Welcome to EDABoard.com

Sponsor

Back
Top