VB连接ACCESS数据库精简版
Option Explicit
Private Sub Form_Load()
'工程->引用->选中Microsoft ActiveX Data Objects 2.8 Library
Dim shujukulianjie As New ADODB.Connection
Dim jiluji As New ADODB.Recordset
'连接数据库的代码段
shujukulianjie.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\database\shujuku.mdb"
'自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨
'对xingmingbiao表进行查询操作
jiluji.Open "Select * from xingmingbiao", shujukulianjie
End Sub
==========================
http://www.bianceng.cn/Programming/vb/200812/11121.htm
http://zhidao.baidu.com/question/76929489.html?fr=qrl&cid=1073&index=2
http://topic.csdn.net/t/20060821/17/4965200.html
相关文档：
Option Explicit
Dim potflag As Integer '标识是否用小数点
Dim numcol As Integer ' 点击运算符的个数
Dim LastInput ' 指示上一次操作的内容
Dim colflag ......
Private Sub Form_load()
'判断程序是否已经运行
If App.PrevInstance
Then
MsgBox "本程序已经运行！", vbInformation Or vbOKOnly, "提示信息"
Unload
Me
Exit Sub
&n ......
webbrowser 不能收到SendMessage的消息
主要是因为1webbrowser 的句柄找不到。经过努力搜索，终于解决了。做个记录.
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ......
一个CommonDialog，一个CommandButton，一个PictureBOX
Option Explicit
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, B ......
今天公司要求用C#写个验证码组件，让asp可以调用，在网上找了一堆资料，终于给我给搞出来了，因为本人第一次写组件，也是第一次发表文章，所有可能说的不是很好，大家请见谅。
csdn上有这么篇文章，想学习写组件的可以去看看：http://blog.csdn.net/KimmKi ......
