好急！

[xxwfantasy]

VB开发中用到数据库 用ACCESS
如何能够得到与某一关键字段相关的数据
例如选择字段 某名字 接着就能够从表中读取同一行相关数据 如年龄等等
应该是用到SQL
。FIELD（） 什么意思？与此有关吗？
还有 要让数据库成ODBC数据源吗？ SQL 有比如 yy!dd !何解？
求教 ！ 急！

[射天狼]

选择菜单“工程/引用/Microsoft ActiveX Data Objects 2.0”

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
"DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
"MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
"Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=;"
cn.Open

rs.Open "select * from table", cn, adOpenDynamic, adLockPessimistic

Text1.Text = rs!Name
Text2.Text = rs!age
text3.Text = rs!sex

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

==========================================

[lihonggen0]

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
CN.Open

Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
Text1.Text = Rs.fields("Name")
Text2.Text = Rs.fields("Age")
text3.Text = Rs.fields("sex")

[wumy_ld]

呵呵，数据库基础太差，建议看看这方面书。

Dim strSQL As String
strSQL="select * from table1 where name='" & txtName.Text & "'"
这条语句执行后就可以把同一行数据提出来（假设姓名字段为name,表名为table1，txtName为文本框）

如果要引用里面的比如ID字段，可用rs("ID")或rs!"ID"

不一定要用odbc数据源