Ⅰ VB怎么调用数据库数据
VB可将Sql结构化查询语句赋值Ado(ActiveX 数据对象)或ADO Data 控件，访问和操作数据库。
ADO (ActiveX 数据对象)，这项新的数据访问技术的特性包括：更简单的对象模型；与其它 Microsoft 和非 Microsoft 的技术更好的集成；为本地和远程数据数据提供的通用接口；可远程访问的和断开的记录集；用户可访问的数据绑定接口；以及层次结构的记录集。
ADO Data 控件， 这是一种新的、OLEDB 识别的数据源控件，其功能与内部的 Data 控件和 Remote Data 控件十分相似，通过这种方式允许用户用最少的代码来创建数据库应用程序。
Visual Basic 6.0 中，已经可以将任何 ADO/OLE DB 数据源绑定到任何 ADO/OLE DB 数据使用者上。在运行时，可以设置控件的 DataSource 属性来将控件动态地绑定到数据源。可以创建用作数据源和数据使用者的类，并且通过新的 BindingsCollection 对象将这些类绑定在一起。可以创建与 ADO 数据控件相似的、用作数据源的用户控件。还可以创建与 DataGrid 控件相似的、复杂绑定的用户控件。
以下是经ADO (ActiveX 数据对象)访问Access数据库的实例代码：
DimcnnAsNewConnection
DimrsAsNewRecordset
DimsqlAsString
DimARR
cnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:wdOld.mdb;PersistSecurityInfo=False"
sql="select故障名称fromguzhang_bm"
rs.Opensql,cnn
Combo1.Text="故障名称"
DoWhileNotrs.EOF
Combo1.AddItemrs("故障名称")
rs.MoveNext'打开表
Loop
rs.Close
cnn.Close
以下是使用ADO Data 控件访问Access数据库德实例代码：
Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"wd.mdb;PersistSecurityInfo=False"
Adodc1.RecordSource="select*fromjishijilu"'whereshijianlike'%8112%'Andgyh_riqilike'%10%'"
Adodc1.Refresh
SetMSHFlexGrid1.DataSource=Adodc1
MSHFlexGrid1.Row=1
MSHFlexGrid1.ColSel=MSHFlexGrid1.Cols-1
Ⅱ VB怎么获取数据库里的记录值
adoQuery数据库控件名
GetLastTestNO 属性值存放变量
查询语句：
adoQuery.RecordSource = "select * from " +查询属性等
查询数据库语句之后：
adoQuery.Refresh
If adoQuery.Recordset.RecordCount = 0 Then
Else //查询结果有记录
//判断查询到的记录中，所要找的属性是否空值
If Not IsNull(adoQuery.Recordset.Fields(属性)) Then
If adoQuery.Recordset.RecordCount > 1 Then
adoQuery.Recordset.MoveLast
//将对应的属性值赋值给变量，查询到多个记录则显示最后一个记录
GetLastTestNO = adoQuery.Recordset.Fields(dbInjNO)
Else
//只有一个记录
GetLastTestNO = adoQuery.Recordset.Fields(dbInjNO)
End If
Else
GetLastTestNO ="" //无记录
End If
End If
将GetLastTestNO 显示在控件上即可得到所要的属性密码值