通过datasource属性绑定
比如使用数据库控件
datasource
控件会出现一个下拉框
选择需要绑定的数据控件,然后设置datamember绑定表,datafield绑定具体字段;也可以使用代码绑定
例如
set
list1datasource=adodc1recordset
list1refresh'刷新
用text1=split(提取的代码,"sortcol")拆分出数组,再for循环拆分元素text2=split(text1(i),"alignright">"),最后每个left(text2(1),3)就是你要的结果
VB可将Sql结构化查询语句赋值Ado(ActiveX 数据对象)或ADO Data 控件,访问和 *** 作数据库。
ADO (ActiveX 数据对象),这项新的数据访问技术的特性包括:更简单的对象模型;与其它 Microsoft 和非 Microsoft 的技术更好的集成;为本地和远程数据数据提供的通用接口;可远程访问的和断开的记录集;用户可访问的数据绑定接口;以及层次结构的记录集。
ADO Data 控件, 这是一种新的、OLEDB 识别的数据源控件,其功能与内部的 Data 控件和 Remote Data 控件十分相似,通过这种方式允许用户用最少的代码来创建数据库应用程序。
Visual Basic 60 中,已经可以将任何 ADO/OLE DB 数据源绑定到任何 ADO/OLE DB 数据使用者上。在运行时,可以设置控件的 DataSource 属性来将控件动态地绑定到数据源。可以创建用作数据源和数据使用者的类,并且通过新的 BindingsCollection 对象将这些类绑定在一起。可以创建与 ADO 数据控件相似的、用作数据源的用户控件。还可以创建与 DataGrid 控件相似的、复杂绑定的用户控件。
以下是经ADO (ActiveX 数据对象)访问Access数据库的实例代码:
Dim cnn As New ConnectionDim rs As New Recordset
Dim sql As String
Dim ARR
cnnOpen "Provider=MicrosoftJetOLEDB40;Data Source=C:\wdOldmdb;Persist Security Info=False"
sql = "select 故障名称 from guzhang_bm"
rsOpen sql, cnn
Combo1Text = "故障名称"
Do While Not rsEOF
Combo1AddItem rs("故障名称")
rsMoveNext '打开表
Loop
rsClose
cnnClose
以下是使用ADO Data 控件访问Access数据库德实例代码:
Adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\wdmdb;Persist Security Info=False"Adodc1RecordSource = "select from jishijilu" ' where shijian like'%8112%' And gyh_riqi like'%10%'"
Adodc1Refresh
Set MSHFlexGrid1DataSource = Adodc1
MSHFlexGrid1Row = 1
MSHFlexGrid1ColSel = MSHFlexGrid1Cols - 1
给你一个例子,我自己以前做过类似的程序,你参考下,添加inet控件(必须的)和一个按钮,把源代码下载成文本,然后到文本里面去读,下面是下载百度首页网页源代码并且保存到文本的函数
Public Function down_baidu() '下载百度首页
Dim webaddress$,info$'定义数据类型
webaddress = ">
以上就是关于VB如何从数据库读取指定数据全部的内容,包括:VB如何从数据库读取指定数据、EXCEL VB编程,提取网页代码里表格里的数据、VB怎么调用数据库数据等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)