Excel表格网

vb查询数据库并列出所有结果(vb怎么查询数据库并显示)

来源:www.0djx.com  时间:2022-12-09 23:42   点击:272  编辑:表格网  手机版

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)&"'"

顶一下
(0)
0%
踩一下
(0)
0%
相关评论
我要评论
用户名: 验证码:点击我更换图片