- 博客(5)
- 收藏
- 关注
RSS订阅转载 怎样在程序中为Access表创建一个自动编号字段？
Dim strDB As String Dim strTbl As String Dim tmpWS As Workspace Dim dbs As Database Dim tdf As TableDef Dim fldtmp As Field strDB = App.Path & "/" & Text1.Text & ".mdb"
2009-05-25 18:17:00
1960
原创 得到mouse坐标，只要几行代码
控件：窗体上加两个label ( label1 和 label2 ) ，再加一个timer1 增加一个模块窗体代码：Dim z As POINTAPI 声明变量 Private Sub Form_Load()Timer1.Interval = 1 设置时钟为1毫秒 End SubPrivate Sub Timer1_T
2008-08-01 12:09:00
503
转载 VB把access数据库里的表导出成EXCEL表
新建一个窗体，窗体上就放一个Command1按钮操作：点一下Command1就导出完成了，在网上找了很久，结果在美国的一个代码论坛上找到的，国内难道都没有人这样写过吗？注意点：在D盘下要存在一个数据库名为data.mdb ，这个数据库里要包含一个叫pop的表，至于表里边什么内容，就随便填一点就可以了。 下面是代码了： Private Sub Command1_Cl
2008-08-01 11:52:00
4866
原创 计时器 的代码
‘计时器 ,窗体上加一个timer ，一个label Private Sub Timer1_Timer() ‘timer1 的interval 设为10Static ii = i + 1Label1.Caption = Format(i / 3600 & ":" & (i Mod 3600) / 60 & ":" & i Mod 60, "hh:mm:ss")End Sub
2008-07-17 17:48:00
746
原创 插入替换删除文本文件中的某一行
'在网上找了关于这方面的资料,发现跟本用不起来 '后来我拷下来,一个一个调试,终于达到预想的效果 '立此存照 2008-7-15 Jason Private Sub Form_Load()Dim strtemp As StringOpen App.Path & "/18XX.txt" For Input As #1 Do Un
2008-07-15 12:15:00
1839
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人