ET99加密锁设置程序带数据库VB6开发含源代码 IfCombo.Text=""ThenMsgBox"请选择加密方案",vbExclamation:ExitSub'空狗et99pid="FFFFFFFF"et99pin="FFFFFFFFFFFFFFFF"retcode=et_FindToken(et99pid,et99count)'查找加密狗If
VB6图片存数据库源代码 数据表.Open sql, Database, adOpenKeyset, adLockBatchOptimistic Set MyImage = New ADODB.Stream MyImage.Type = adTypeBinary '指定流是二进制类型 MyImage.Open '将数据获取到