Question

VB 如何通过Adodc或Adodb获取Access表中的主健字段

Dim adocn As New ADODB.Connection
adocn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\公司数据库.mdb" & _
";persist security info =false; Jet OLEDB:Database Password=accent" '---------------带密码的连接
Dim rs As New ADODB.Recordset
Dim strSql As String
strSql = "select 主键 from 订单表"
If adocn.State = adStateOpen Then
adocn.Close
adocn.Open
Else
adocn.Open
End If
rs.Open strSql, adocn, 1, 1
Dim FF As String
FF = rs.Fields("主键")

Answer 1

属性里面设置：
ConnectionString：连接你的数据库
RecordSource ：选你要的表，也可以是sql语句 "select 主键 from 表"
然后通过：Adodb.Recordset.Fields "主键" 得到你的值

追问

我按的方法试了一下!
不得呢！你能给出具体的做法不!

追答

这样还得不到，只能说明你做错了，你把你怎么做的说一下，相关代码贴出来

追问

代码以贴出了

追答

上面说的是用adodc控件，不用写代码，属性是直接设置的那样
你这段代码看上去应该没问题，但是你的主键在你的“订单表”里，字段名就是叫“主键”吗，赋值前最好判断一下你的rs有没有记录，rs.BOF =rs.EOF 就没记录

追问

不是这样的！我的订单表里有一个字段被为主健了，我想找出是主健的哪个字段的名称

追答

提问题时就不能多打几个字，浪费这么多脑细胞还跑题了，不加分你都对不起我
就是判断要判断一张表里的主键是那个字段是吧，试试看吧，不行就没法子了
Set rs = adocn.OpenSchema(adSchemaPrimaryKeys)
rs.Filter = "TABLE_NAME= '订单表'"
if rs.BOF rs.EOF then FF=rs("COLUMN_NAME").Value

Answer 2

打开Access表格看下主键名称不是很简单的事?