 |
||||||||
 |
|
|||||||
 
|
||||||||
 |
您现在的位置： 极品网 >> 电脑学院 >> 黑客攻防 >> 黑客编程 >> 教程正文 |
|
||||||||||||||||||||||
|
||||||||||||||||||||||
|
|||||
| Visual Basic编程疑难问题解（二）三 | |||||
| 作者：佚名 教程来源：不详 点击数： 更新时间：2006-5-29 | |||||
|
Private Sub Command3_Click() Dim conn As New ADODB.Connection conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False" conn.Execute "create table a (b longbinary)" End Sub Private Sub Command4_Click() Set b = New ADODB.Recordset Set c = New ADODB.Stream c.Mode = adModeReadWrite c.Type = adTypeBinary c.Open c.LoadFromFile "c:\1.bmp" b.Open "select * from a", "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\1.mdb;Persist Security Info=False", adOpenDynamic, adLockOptimistic b.AddNew b.Fields.Item(0).Value = c.Read() b.Update b.Close Set b = New ADODB.Recordset b.Open "select * from a", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False", adOpenKeyset, adLockOptimistic MsgBox b.RecordCount b.MoveLast c.Write (b.Fields.Item(0).Value) c.SaveToFile "c:\aa.bmp", adSaveCreateOverWrite Picture1.Picture = LoadPicture("c:\aa.bmp") End Sub
|
|||||
|
|||||
| 教程录入：dping 责任编辑：dping | |||||
| 【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 | |||||
| 最新热点 | 最新推荐 | 相关教程 | ||
| windows vista好用吗？是不是 怎么将数字证书和签名加入到 请问装vista系统不打开特效后 我的电脑是华硕A6T 装了VIST C盘是VISTA D盘是XP 最后装的 信息系统工程师--SystemAdmi 关于windows update 安装WINDOWS VISTA的最低系统 请教XP和VISTA的区别! 为什么按右键总是出现symant |
 网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） |
