如何用VB制作简单的查询程序，查询EXCEL表格中的内容并显示出结果

n Explicit

vb图书查询程序简单_用vb设计一个图书管理系统vb图书查询程序简单_用vb设计一个图书管理系统


vb图书查询程序简单_用vb设计一个图书管理系统


vb图书查询程序简单_用vb设计一个图书管理系统


Private objSWbemServs As SWbemServs '

Private WithEvents DeleteProcessEvent As SWbemSink '进程结束

Dim xlApp As Excel.Application '定义EXCEL类

Dim xlBook As Excel.Workbook '定义工件簿类

Dim xlsheet As Excel.Worksheet '定义工作表类

Private Sub Initial(ss As String)

Dim i, j As Integer

Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类

'xlApp.Visible = True '设置EXCEL可见

'Set xlBook = xlApp.Workbooks.Open(App.Path + "" & "106-33-LCDTest-20130202.csv") '打开EXCEL工作簿

Set xlBook = xlApp.Workbooks.Open(App.Path + "" & ss) '打开EXCEL工作簿

Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表

xlsheet.Activate '激活工作表

'-----正式统计数量

Text1.Text = xlsheet.UsedRange.Cells.Rows.Count

sun = xlsheet.UsedRange.Cells.Rows.Count

For i = 2 To xlsheet.UsedRange.Cells.Rows.Count - 1

If Format(xlsheet.Cells(i, 3), "mm/dd") = Format(Now, "mm/dd") Then '统计今天的数据

Select Case Format(xlsheet.Cells(i, 3), "hh")

Case 0, 1 '0-1点钟数据统计

If xlsheet.Cells(i, 2) = "PASS" Then

Select Case xlsheet.Cells(i, 6)

Case 1

u(1, 1) = u(1, 1) + 1

Case 2

u(3, 1) = u(3, 1) + 1

Case 3

u(5, 1) = u(5, 1) + 1

Case 4

u(7, 1) = u(7, 1) + 1

Case Else

MsgBox "Nest异常", vbCritical, "消息提示:"

End Select

Else

。。。。。。。。。。。。。。。。。。。。。。。。

Else

Select Case xlsheet.Cells(i, 6)

Case 1

u(2, 12) = u(2, 12) + 1

Case 2

u(4, 12) = u(4, 12) + 1

Case 3

u(6, 12) = u(6, 12) + 1

Case 4

u(8, 12) = u(8, 12) + 1

Case Else

MsgBox "Nest异常", vbCritical, "消息提示:"

End Select

j = j + 1

End If

Case Else

'MsgBox "时间格式异常", vbCritical, "消息提示:"

End Select

End If

Next i

'-----------------------------------------------------------

'xlBook.Se '保存文件

xlBook.Close (True) '关闭工作簿

xlApp.Quit '结束Excel对象

Set xlApp = Nothing '释放xlApp对象

'MsgBox "初始化完成", vbCritical, "消息提示:OK"

Text2.Text = Format(j / Text1.Text, "0.00%")

End Sub

VB+图书管理系统中如何实现输入图书编号自动调出相应的信息？

你可以用SQL语句设计查询实现嘛！

——————————————————————

SELECT

FROM 图书基本信息表

WHERE (((图书基本信息表.图书编号)=[]));

——————————————————————

建立一个窗体按钮，调用本查询，输入图书编号，就OK了。

VB/VF图书管理系统(程序+论文）

B/VF图书管理系统(程序+论文）你可以搜索一下大学生计算机cccbbs 再毕业设计范例有这个样的设计成品，有完整的设计程序源码和论文

你找到了吗

有是一个要人做东西的,我有自己做过的,VB+SQL,没有论文,有设计文档.QQ:7824255

我也想要一个啊,做一个要2个星期啊

用VB设计一个查找程序

Private Sub Command1_Click()

Dim I As Integer, J As Integer

I = Val(InputBox("输入一个数:"))

J = Val(InputBox("输入一个数:"))

For I = I To J

Print I;

Next

End Sub

用VB做一个查询的程序

if text1.text="123" then

text2.text="159"

elseif text1.text="5" then

text2.text="6"

else

text2.text="不存在"

end if

放在按钮单击中

vb实例教程（一个查找程序）

。BTW，学习语言的训练手段是自己提出一个任务项，然后研究开发工具手册中的例证程序，稍做修改，组合出自己的代码，然后进一步理解、精化，渐渐就找到了感觉。

而基本的概念与定义，一定要细心研读，不可忽略。比如数据类型：整数型、浮点型、字符型（就是字符串）......