인터페이스"VB에서

[zkai2000]

안녕하세요, 저는 봤어요 사진과 함께 내 프로필 정보를 저장합니다.왜 내 데이터베이스에서 T는 표시가 돌아가신 () Microsoft Access에서 사용하고 계십니까?내 사진을 Microsoft Access에서 OLE 개체로 설정됩니다

이건 내 VB는 코드입니다 :전용 서브 cmdSave_Click ()savePicToDB picPhoto.Tag, rsUser ( "사진")savePicToDB picFingerprint.Tag, rsUser ( "지문")
rsUser.AddNewrsUser ( "이름") = txtname.TextrsUser ( "IC에서 아니오") = txtIC.TextrsUser ( "나이") = txtAge.TextrsUser ( "성별") = txtGender.TextrsUser ( "연락처 없음") = txtContact.TextrsUser ( "주소") = txtAddress.TextrsUser ( "이메일") = txtEmail.TextrsUser ( "비고") = txtRemarks.Text
rsUser.Update
txtBoxLock (True)로ctrlEnable (True)로
cmdNew.SetFocusEnd Sub 참고
공공 하위 savePicToDB로서 (ByVal picFile 문자열, ByVal ADODB.Field로서 fldPic)
희미한 bBLOB 바이트 (현재)정수로 Dim iNum
만약 (picFile "" "") 그럼
iNum = FreeFile
# iNum 마찬가지로 바이너리 열기 picFileReDim bBLOB (FileLen (picFile)), bBLOB # iNum 타닫기 # 1
'저장소에 BLOBfldPic.AppendChunk bBLOB최종면
End Sub 참고공공 하위 loadPicFromDB (ByVal PictureBox로로서 ADODB.Field, ByRef picTarget로서) fldPic
희미한로서 sTempPic 문자열희미한로서 긴 lImgSize오래 Dim lOffset희미한 bChunck 바이트 (현재)정수로 Dim iFileconst CHUNKSIZE = 1000
sTempPic = App.Path & "\ temppic.jpg"만약 렌 (Dir ()) sTempPic "0 그렇다면죽여 sTempPic최종면
iFile = FreeFile
# iFile 마찬가지로 바이너리 열기 sTempPiclImgSize = fldPic.ActualSize
lOffset "lImgSize 동안 마bChunck () = fldPic.GetChunk (CHUNKSIZE), # iFile 넣어 bChunck ()lOffset = lOffset CHUNKSIZE루프
닫기 # iFile
만약 FileLen () sTempPic "0 그렇다면picTarget.Picture = LoadPicture () sTempPic그 밖의picTarget.Picture = 아무것도최종면
죽여 sTempPic
End Sub 참고어디에 문제가 무엇입니까??
정말 고마워요!

 

[eemapir]

안녕
전 VB에서 액세스 생각과 비교되지 않을 수있습니다
어느 특정 할 sth 만들어집니다
안녕

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

 

[Guest]

[No message]

 

[zkai2000]

내 데이터베이스로 nono .. 내가 사용하는 마이크로 소프트 액세스할 수있습니다.VB는 GUI를했다.

해당하므로, 어떠한 정보 난 키가에 액세스에 저장됩니다

 

[kelvin_sg]

당신은 소스 다운로드 소스 코드 code.com www.planet 갈 수있는
데이터베이스에 액세스합니다.AFAIK, 그건 상당히 AccessDB 조작 간단
Visual Basic에서 6.

왜 XML이고, 더 많은 물론 인기가 액세스할 수있는 사용하지 마십시오.

 

[sapaku]

그 의식.거기 또는 U 어디 인터페이스를 너무 VB에서 사용하는 사용 예를 볼 수 있을까요 소스 코드를 잘 수있습니다.