如何用VB6.0编写一个查询程序? 如何用vb6.0编写一个程序能实现查看某个文件格式的打开方式
\u5982\u4f55\u7528VB6.0\u7f16\u5199\u4e00\u4e2a\u7a0b\u5e8f\uff1fDim a As Double
Dim tmp
Dim s As Double
Dim l As Double
tmp = InputBox("\u8f93\u5165\u8fb9\u957f", "\u8f93\u5165\u8fb9\u957f")
If IsNumeric(tmp) = False Then
MsgBox "\u9519\u8bef", vbOKOnly + vbInformation, "\u9519\u8bef"
Exit Sub
End If
a = Int(tmp)
s = a * a
l = 4 * a
MsgBox "\u9762\u79ef\u4e3a" & s & Chr(10) & "\u5468\u957f\u4e3a" & l, vbOKOnly, "\u8fb9\u957f\u4e3a" & a & "\u7684\u6b63\u65b9\u5f62"
\u6211\u521a\u624d\u7f16\u4e86\u4e00\u4e0b\u8fd9\u4e2a\u7a0b\u5e8f\u4f46\u5931\u8d25\u4e86\uff0c\u6211\u77e5\u9053\u5728\u54ea\u91cc\u67e5\uff1a[Hkey_Classes_Root\.rmvb](\u5047\u8bbe\u4f60\u8981\u6253\u5f00.rmvb\u7684\u6587\u4ef6)\uff0c\u627e\u5230\u201c\u9ed8\u8ba4\u201d\u8fd9\u4e2a\u952e\u503c\uff08\u6211\u521a\u624d\u5728vb\u91cc\u5f04\u4e86\u5f88\u4e45\u90fd\u6253\u4e0d\u5f00\uff09\uff0c\u662f\u4e00\u4e2a\u5b57\u7b26\u4e32\uff08\u5982\uff1a\u201cQQPlayer.rmvb\u201d\uff09\uff0c\u7136\u540e\u627e\u5230[Hkey_Classes_Root\QQPlayer.rmvb\Shell\Open\Command]\u91cc\u9762\u7684\u9ed8\u8ba4\u952e\u503c\u5c31\u662f\u9ed8\u8ba4\u6253\u5f00\u7a0b\u5e8f\u4e86\u3002
ShellExecute\u8fd9\u4e2a\u51fd\u6570\u662f\u8fd9\u6837\u7528\u7684\uff1a
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
\u5176\u4e2d\u5404\u4e2a\u53c2\u6570\u7684\u610f\u4e49\u5982\u4e0b\uff1a
\u53c2\u6570 |\u7c7b\u578b |\u8bf4\u660e
hWnd |Long |\u6307\u5b9a\u4e00\u4e2a\u7a97\u53e3\u7684\u53e5\u67c4\uff08\u53ef\u4ee5\u8f93Me.hWnd\uff09
lpOperation |String|\u6307\u5b9a\u5b57\u7b26\u4e32\u201cOpen\u201d\u6253\u5f00\u6216\u201cPrint\u201d\u6253\u5370
lpFile |String|\u60f3\u7528\u5173\u8054\u7a0b\u5e8f\u6253\u5370\u6216\u6253\u5f00\u7684\u7a0b\u5e8f\u540d\u6216\u6587\u4ef6\u540d
lpParameters|String|\u5982lpFile\u662f\u53ef\u6267\u884c\u7a0b\u5e8f\uff0c\u8fd9\u91cc\u8f93\u5165\u9644\u52a0\u53c2\u6570
lpDirectory |String|\u4f7f\u7528\u7684\u5b8c\u6574\u8def\u5f84
nShowCmd |Long |\u5b9a\u4e49\u4e86\u5982\u4f55\u663e\u793a\u542f\u52a8\u7a0b\u5e8f\u7684\u5e38\u6570\u503c
\u4e3e\u4f8b\uff1a\u6253\u5f00\u4e00\u4e2a\u7f51\u5740\uff08Text1.Text\uff09
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
private sub command1_Click()
if text1.text="" then
msgbox "\u8bf7\u8f93\u5165\u7f51\u5740",48,"Information"
else
shellexecute me.hwnd,vbnullstring,text1.text,vbnullstring,"C:\",SW_SHOWNORMAL
end if
end sub
用EXCEL的话就看看这个吧
这份教程我曾给过很多人了,大家都说好,您也看一下吧
VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统,如何把它们有机地结合在一起,是一个值得我们研究的课题。
一、 VB读写EXCEL表:
VB本身提自动化功能可以读写EXCEL表,其方法如下:
1、在工程中引用Microsoft Excel类型库:
从"工程"菜单中选择"引用"栏;选择Microsoft Excel 9.0 Object Library(EXCEL2000),然后选择"确定"。表示在工程中要引用EXCEL类型库。
2、在通用对象的声明过程中定义EXCEL对象:
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
3、在程序中操作EXCEL表常用命令:
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见(或不可见)
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格(row,col)赋值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
4、在运用以上VB命令操作EXCEL表时,除非设置EXCEL对象不可见,否则VB程序可继续执行其它操作,也能够关闭EXCEL,同时也可对EXCEL进行操作。但在EXCEL操作过程中关闭EXCEL对象时,VB程序无法知道,如果此时使用EXCEL对象,则VB程序会产生自动化错误。形成VB程序无法完全控制EXCEL的状况,使得VB与EXCEL脱节。
二、 EXCEL的宏功能:
EXCEL提供一个Visual Basic编辑器,打开Visual Basic编辑器,其中有一工程属性窗口,点击右键菜单的"插入模块",则增加一个"模块1",在此模块中可以运用Visual Basic语言编写函数和过程并称之为宏。其中,EXCEL有两个自动宏:一个是启动宏(Sub Auto_Open()),另一个是关闭宏(Sub Auto_Close())。它们的特性是:当用EXCEL打含有启动宏的工簿时,就会自动运行启动宏,同理,当关闭含有关闭宏的工作簿时就会自动运行关闭宏。但是通过VB的自动化功能来调用EXCEL工作表时,启动宏和关闭宏不会自动运行,而需要在VB中通过命令xlBook.RunAutoMacros (xlAutoOpen)和xlBook.RunAutoMacros (xlAutoClose) 来运行启动宏和关闭宏。
三、 VB与EXCEL的相互勾通:
充分利用EXCEL的启动宏和关闭宏,可以实现VB与EXCEL的相互勾通,其方法如下:
在EXCEL的启动宏中加入一段程序,其功能是在磁盘中写入一个标志文件,同时在关闭宏中加入一段删除此标志文件的程序。VB程序在执行时通过判断此标志文件存在与否来判断EXCEL是否打开,如果此标志文件存在,表明EXCEL对象正在运行,应该禁止其它程序的运行。如果此标志文件不存在,表明EXCEL对象已被用户关闭,此时如果要使用EXCEL对象运行,必须重新创建EXCEL对象。
四、举例:
1、在VB中,建立一个FORM,在其上放置两个命令按钮,将Command1的Caption属性改为EXCEL,Command2的Caption属性改为End。然后在其中输入如下程序:
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '给单元格1行驶列赋值
xlBook.RunAutoMacros (xlAutoOpen) 运行EXCEL中的启动宏
Else
MsgBox ("EXCEL已打开")
End If
End Sub
Private Sub Command2_Click()
If Dir("D:\temp\excel.bz") <> "" Then '由VB关闭EXCEL
xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
End If
Set xlApp = Nothing '释放EXCEL对象
End
End Sub
2、在D盘根目录上建立一个名为Temp的子目录,在Temp目录下建立一个名为"bb.xls"的EXCEL文件。
3、在"bb.xls"中打开Visual Basic编辑器,在工程窗口中点鼠标键选择插入模块,在模块中输入入下程序存盘:
Sub auto_open()
Open "d:\temp\excel.bz" For Output As #1 '写标志文件
Close #1
End Sub
Sub auto_close()
Kill "d:\temp\excel.bz" '删除标志文件
End Sub
4、运行VB程序,点击EXCEL按钮可以打开EXCEL系统,打开EXCEL系统后,VB程序和EXCEL分别属两个不同的应用系统,均可同时进行操作,由于系统加了判断,因此在VB程序中重复点击EXCEL按钮时会提示EXCEL已打开。如果在EXCEL中关闭EXCEL后再点EXCEL按钮,则会重新打开EXCEL。而无论EXCEL打开与否,通过VB程序均可关闭EXCEL。这样就实现了VB与EXCEL的无缝连接。
不简单的。不是一句两句就能出来的
简单
用数据库比较麻烦,用Excel的话就很简单
绛旓細'娌′粈涔堟濊矾锛屽氨鏄痵ql鏌ヨ '娣诲姞涓涓adodc1,涓涓猟atagrid1锛屼竴涓猼ext1锛屼竴涓猚ommand1 '澶嶅埗涓嬮潰鐨勪唬鐮侊紝淇敼涓涓嬩綘鐨勬暟鎹簱鍦板潃鍜屼綘鐨勮〃鍚嶅嵆鍙洿鎺ヤ娇鐢 Dim sqlstr As String Private Sub Command1_Click()Adodc1.RecordSource = "select * from [浣犵殑琛ㄥ悕] where 鎵嬫満='" & Text1.Text & "...
绛旓細VB6.0杩炴帴EXCEL璁剧疆鏂规硶 1. 宸ョ▼ 寮曞叆 Microsoft Excel 12.0 Object Library 锛岃繖閲岀殑12.0 鍙兘浼氬洜涓簅ffice鐗堟湰涓嶅悓鑰屼笉鍚屻2. 浠g爜绋嬪簭閫氱敤閮ㄥ垎瀹氫箟 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet 3.鎵撳紑EXCEL鏂囦欢 CommonDialog1.ShowOpen '閫...
绛旓細鎴戝垰鎵嶇紪浜嗕竴涓嬭繖涓▼搴忎絾澶辫触浜嗭紝鎴戠煡閬撳湪鍝噷鏌ワ細[Hkey_Classes_Root\.rmvb](鍋囪浣犺鎵撳紑.rmvb鐨勬枃浠)锛屾壘鍒扳滈粯璁も濊繖涓敭鍊硷紙鎴戝垰鎵嶅湪vb閲屽紕浜嗗緢涔呴兘鎵撲笉寮锛夛紝鏄涓涓瀛楃涓诧紙濡傦細鈥淨QPlayer.rmvb鈥濓級锛岀劧鍚庢壘鍒癧Hkey_Classes_Root\QQPlayer.rmvb\Shell\Open\Command]閲岄潰鐨勯粯璁ら敭鍊煎氨鏄粯璁...
绛旓細if text1.text="" and text2.text="" then '鏌ヨ鏉′欢鍏ㄤ负绌烘椂,閿欒鎻愮ず锛宮sgbox "鏌ヨ鏉′欢涓嶈兘涓虹┖!"text1.setfocus '鐒︾偣锛堝厜鏍囷級鍥炲埌绗涓涓煡璇鏉′欢鏂囨湰妗 exit sub '閫鍑哄綋鍓嶄簨浠 elseif text1.text="" and text2.text<>"" then '濡傛灉绗竴涓煡璇㈡潯浠朵负绌虹浜屼釜涓嶄负...
绛旓細endif 濡傛灉鏀寔澶氭潯浠鏌ヨ锛歴tr1 = "select * from ... where 瀛楁1=" & text1.text & " and 瀛楁2=" & text2.text "...rs.open str1 鏄剧ず鏁版嵁鏈鏂逛究鐨勫綋鐒舵槸缃戞牸鎺т欢浜嗭紝姣斿VB鑷甫鐨凞ataGrid,MSFlexGrid銆傚綋鐒朵篃鍙互鐢ㄥ涓枃鏈鏉ユ樉绀猴紝姣忎釜鏂囨湰妗嗗搴涓涓瀛楁銆傚浜庣畝鍗曟暟鎹紝涔熷彲浠ョ敤...
绛旓細ADODC鎺т欢瑕佽缃袱涓睘鎬 ConnectionString="杩炴帴鍒版暟鎹簱鐨勫瓧绗︿覆"锛岀偣鍑昏竟涓婄殑涓嬫媺鎸夐挳灏辫兘娴忚鍒颁綘瑕佺殑鏁版嵁搴擄紝涔熷彲浠ョ洿鎺ュ湪绋嬪簭涓缃俁ecordSource=鈥滆鎵撳紑鐨勬暟鎹〃鎴栬鏌ヨ鈥濈劧鍚嶵extBox瑕佽缃袱涓睘鎬 DataSource=涓婇潰璁剧疆鐨勯偅涓暟鎹帶浠讹紝姣斿ADODC1,浣犳妸ADODC鎺т欢娣诲姞鍒癋orm涓殑鏃跺欙紝鍦ㄨ繖涓睘鎬...
绛旓細濡傛灉鍙槸绠鍗曞姛鑳,DAO灏卞彲浠ヤ簡.鍦VB鍚姩鍚庡伐鍏风灏辨湁涓狣ATA鎺т欢,璁剧疆DataBaseName灞炴т负鏁版嵁搴撹矾寰,RecordSource涓轰綘瑕佹搷浣滅殑琛ㄥ悕绉,鍐嶆墽琛孯EFRESH鍛戒护灏辨墦寮浜,鎯虫庝箞鎿嶄綔灏辨庝箞鎿嶄綔浜.鍓嶆彁:瑕佸厛鍒涘缓涓涓鏁版嵁搴撴枃浠,浣哣B6搴旇涓嶆敮鎸丄CCESS2007鏁版嵁搴,瑕佷繚瀛樹负ACCESS97鏍煎紡鎵嶈....
绛旓細鍦╒isual Basic 6.0 (VB6) 涓繛鎺ccess鏁版嵁搴撳苟鎵ц妯$硦鏌ヨ锛屽彲浠ヤ娇鐢ˋDO (ActiveX Data Objects) 缁勪欢銆備互涓嬫槸涓涓绠鍗曠殑绀轰緥浠g爜鐗囨锛屾紨绀哄浣曞垱寤轰竴涓狝DO杩炴帴锛屾瀯閫犱竴涓寘鍚獿IKE璇彞鐨凷QL鏌ヨ锛屽苟鎵ц璇ユ煡璇' 寮曞叆ADODB搴 Dim conn As ADODB.Connection Dim rst As ADODB.Recordset Dim sql As...
绛旓細棣栧厛寤鸿鏁版嵁搴撳瓧娈典笉瑕佺敤姹夊瓧锛岀涓姝ユ槸杩炴帴鏁版嵁搴擄紝鐒跺悗鍐欐煡璇鍛戒护 select 杞﹁締 from cs1 where 鏍囧彿='text1.text' 鎶婃煡璇㈠嚭鏉ョ殑鍊兼斁鍦 text2涓氨琛屼簡銆傚緢闀挎椂闂存病鍐欎唬鐮佷簡锛屽彧鑳界粰涓濊矾浜嗐
绛旓細'杩欓噷鐨勪簨浠舵敼涓涓.浣犺緭鍏ョ殑鏃跺欏氨瑙﹀彂浜嬩欢,涓嶇敤鍗曞嚮 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '杩欓噷浣犳敞鎰忎竴涓.浣犳妸textbox1.text鎹㈡垚鏁版嵁搴撻噷闈㈢殑鎵鏈鏌ヨ鐨勬煇涓鍒(濡傚鍚嶅垪)鐨勫唴瀹,(鏌ヨ鏁版嵁搴撳簲璇ヤ細鐨勫惂).鐢虫槑涓涓...