1. vb查询数据库并列出所有结果
Set xlApp = CreateObject("Excel.Application") '创建excel应用程序,打开excel2003 Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件 Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 for n=1 to 行数 for m=1 to 例数 msgbox xlSheet.Cells.Item(n, m) '注意：我只是告诉你一个循环把你要的内容都读出来，你要拿我的程序去运行会弹死你的 next next
2. vb怎么查询数据库并显示
1、Access中新建数据库，名字为Database1.mdb。（注意：后缀为MDB,如果Access是2007版本的，保存时应另存为03版本的才可以，因为，VB无法直接支持07版的accdb后缀格式）
2、成功建立数据库后会进入到数据表界面，这时就能输入数据了，输完以后按CTRL+S保存，输入表名，这里表名为test，准备工作这样就完成了。
3、把VB打开，然后新建标准exe。
4、在菜单里面找到工程→部件→勾选 ，Microsoft ADO Data Control 6.0 Microsoft Hierarchical Flexgrid Control 6.0勾选之后左侧的工具栏里就多出两个控件，就是 ADODC控件和MSHFlexGrid控件。
5、选择 ADODC控件和MSHFlexGrid控件，在窗体的合适位置放入，如图：
6、设置ADODC控件的属性：右键窗体中ADODC1控件
ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接，显示测试成功则ok，确定。
ADODC属性页→记录源→命令类型选择2-adcmdtable，表或存储过程名称选择之前建立的数据表test，点击确定，ADODC属性设置完成。
7、设置MSHFlexGrid控件的属性：VB右侧的属性表里，找到datasource，选择adodc1。
8、测试效果：菜单→运行→启动（F5)，发现显示的数据排列不是我们想要的行数和列数修改方法：
MSHFlexGrid属性→通用→设置行和列，固定行和固定列，设置如图。
MSHFlexGrid属性→带区→把列标题的√取消掉，设置如图。
9、修改之后测试效果如下：
3. vb查找excel数据库中一个数
Dim excel As ObjectSet excel = CreateObject("excel.application") '设定 excel API'--------------这上面可不看 照抄excel.workbooks.Open ("C:\book.xls") 'P.s请先自己创立 'excel 开启excel.Visible = True 'excel 显示 or 隐藏 (True of Falseexcel.cells(1,2)="测试"text1 = excel.cells(1,2) 'text1 读取excel.ActiveWorkbook.Save 'excel 存档excel.quit 'excel 关闭
4. vb数据库查询某一字段
‘先在工程引用'MircosoftActiveXDataObjects
’然后写代码（前提是已经装好access）
DimrstempAsADODB.Recordset
DimstrCNNAsString,strSQLasString
Dimrecord1,record2
Setrstemp=NewADODB.Recordset
strCNN="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\kkk.mdb";PersistSecurityInfo=True;"
strSQL="select*frommyTable"'查询位于d:\kkk.mdb的access中的myTable表的所有记录
rstemp.OpenstrSQL,strCNN
'----------------------------------
'在这里插入你的代码，查询的结果已经读入到rstemp中了
‘假设kkk.mdb里的mytable表中有ID，Name这两个字段
ifnotrsbook.EOFthen'如果记录指针不在结束标记的位置，即如果表里面有记录，记录不为零的话
record1=rstemp.Fields(0)'字段ID的第一条记录的值
record2=rstemp.Fields(1)‘字段Name的第一条记录的值
rstemp.MoveNext‘移到下一条记录
record1=rstemp.Fields(0)'字段ID的第二条记录的值
record2=rstemp.Fields(1)‘字段Name的第二条记录的值
endif
’申此类推，可用循环来读取所有记录，只要判断rsbook.EOF标记是否为true就能知道是否已经到了结尾处
'----------------------------------
Setrstemp=Nothing
EndFunction
5. vb数据库查询语句
问题：
1，字符串前面的“_”符号，是VB的语法格式，表示下一行语句是与本行语句连接在一起的同一行语句。
主要是考虑屏幕宽度有限，有的语句太长，所以采用此格式；例如：a=12+18可以写成：a=12+_182，ConnectString是一个变量的名称；VB.NET允许，在声明变量的同时给它赋值例如：Dimaasintegera=12可以写成：Dimaasinteger=12你的例子的使用相当于：dimConnectStringasstringConnectString=""DataSource=。。。。。。。。。“关于如何操作数据库，这个真一两句话说不清楚，最好你找书或者、网上搜索。
6. vb查询sql数据库显示
1、打开代码窗口，添加引用：ImportsSystem.Data.SqlClient。
2、输入以下代码：“Publicconn1 AsSqlConnection=NewSqlConnection_("server=192.168.1.79;InitialCatalog=student;UserID=panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。
3、代码详解：声明关键字Public（因为是全局变量，所以用Public来声明）。
4、连接参数。
5、如果SQL数据库就在本机，则用以下代码连接：("server=.;IntegratedSecurity=False;InitialCatalog=student;UserID=panqe;PWD=shentai768@")。6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。
7. vb查询数据库信息
set rs=server.CreateObject("adodb.recordset")rs.open "select * from **",conn,1,1set rs1=server.CreateObject("adodb.recordset")rs1.open "select * from **",conn,1,1定义多个变量就可以了
8. vb查询数据库并列出所有结果的数据
AddItem
向列表框添加新项目，其格式为：
ListBox控件名．AddItem＜项目＞[，＜索引值＞]
其中：
<项目>为字符串表达式，表示添加到列表框中的新项目。
<索引值>为数值表达式，指定在列表框中插入新项目的位置。若为0，则插入到第一个项目位置；若缺省且Sorted属性为False，则插入到最后一个项目位置；
若缺省且Sorted属性为True，则插入到合适的排序位置。
RemoveItem
从列表框中删除项目，其格式为：
ListBox控件名．RemoveItem＜索引值＞
Clear
清除列表框中所有项目，其格式为：
ListBox控件名.Clear
例如添加代码到List1列表框中，运行后的结果如下：Private Sub Form_Load()List1.AddItem "Germany"List1.AddItem "India"List1.AddItem "France"List1.AddItem "USA"List1.AddItem "Japan", 0List1.AddItem "China", 1End Sub
要从列表中删除项目，可使用RemoveItem方法，如要删除列表中的第一个项目，可添加如下代码：Private Sub Command1_Click()List1.RemoveItem 0End Sub要删除连结版或标准版的列表框、组合框中的所有项目。可使用Clear方法：List1.Clear注意：1）可以在设计时添加项目。做法：选列表框“属性”窗口中[List]属性，在下拉的空白框中输入项目，并按[CTRL]+[回车]键进行换行。2）只能在列表末端添加项目。3）如果要将列表按字母顺序排序，则应将“Sorted”属性设置为“True”，且省略索引（否则，使用带有index参数的AddItem方法可能会导致不可预料的非排序结果），排序时不区分大小写。（2）常用属性属性 描述 代码及界面显示
List （1）在设计时可向列表框中添加新项目，输人时用Ctrl+Enter组合键换行（2）在代码中可用来访问列表框中的所有项目，它包含了一个字符串数组，列表框中的每个项目都是这个数组的元素。其引用格式为：
s$=ListBox控件名．List(索引值)
其中：<索引值>为数值表达式，指定项目在列表中的位置，它是从0开始的。
例：s$=list1.list(6)将列出list1的第七项内容。
Private Sub Command1_Click()
Text1.Text = List1.List(2)
End Sub
也可改变数组中已有的值，格式：
ListBox控件名．List(索引值)=s$
例list1.list(3)="AAAA"将把list1的第四项的内容设为AAAA。 Option Explicit
Private Sub Command1_Click()
Text1.Text = "You have" & List1.ListCount & "_entrifs lister"
End SubPrivate Sub Command2_Click()
Text1.Text = List1.List(3)
End Sub Private Sub Command3_Click()
Text1.Text = List1.ListIndex
End SubPrivate Sub Form_Load()
List1.AddItem "Germany"
List1.AddItem "India"
List1.AddItem "France"
List1.AddItem "Canada"
List1.AddItem "USA"
List1.AddItem "Japan", 0 R>List1.AddItem "China", 1
End Sub Private Sub List1_Click()
If List1.Text = "Canada" Then
Text1.Text = "Canada have 24 million people."
End If
End Sub
ListCount 返回列表框中项目的总数，只在运行时可用。例：
Private Sub Command2_Click()
Text1.Text = "You have" & List1.ListCount & "_entrifs lister"
End Sub
ListIndex 返回在列表框中当前选定项目的位置，只在运行时可用。未选定任何项目时，其值为-l。例：
Private Sub Command3_Click()
Text1.Text = List1.ListIndex
End Sub
Text 存放当前在列表框中选定的项目，即List(ListIndex)的值。
9. vb实现数据的查询数据库
简单点的方法是用GRIDE 和 ADODC 将GRIDE 的DATASOURCE 设置为你所添加的ADODC的名字例如ADODC1使ADODC与数据库相连加入一个TEXT控件,用来输入日期在确定按钮的CLICK事件中加入代码 ADODC1.RECORDSOURCE="SELECT * FROM 表名 WHEHE 列名='"&TRIM(TEXT控件名.TEXT)&"'"
- 相关评论
- 我要评论
-