简单问题:在VB中调用ADO,如何判断给定的字段是否是主关键字? For Each fld In RS.Fields .......next我要判断字段是否是主关键字,该如何判断? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 如果你的数据库是access,这个贴子就是你要的答案http://expert.csdn.net/Expert/topic/1806/1806751.xml?temp=.8969385如果你的数据库是sql server,用系统存储过程Sp_pkeys可以得到主键Sp_pkeys 表名 得到SQL SERVER中表的外键Sp_fkeys 表名 谢谢 lihonggen可是为什么我得到的数据集的记录却是空的。Set parm_jobid = New ADODB.Parameter Set mycommand = New ADODB.Command parm_jobid.Type = adInteger '参数类型 parm_jobid.Size = 3 '参数长度 parm_jobid.Direction = adParamInput '参数方向,输入或输出 parm_jobid.value = 100 '参数的值 mycommand.Parameters.Append parm_jobid '加入参数 Set parm_joblvl = New ADODB.Parameter 'parm_joblvl.Name = "name2" parm_joblvl.Type = adInteger parm_joblvl.Size = 3 parm_joblvl.Direction = adParamInput' mycommand.value = 100 mycommand.Parameters.Append parm_joblvl mycommand.ActiveConnection = m_cnnDB '指定该command 的当前活动连接 mycommand.CommandText = " Sp_pkeys " 'myprocedure 是你要调用的存储过程名称 mycommand.CommandType = adCmdStoredProc '表明command 为存储过程 Set rstByQuery = New ADODB.Recordset Set rstByQuery = mycommand.Execute("时间范围") i = 0 Do While Not rstByQuery.EOF i = i + 1 ' i 中保存记录个数 rstByQuery.MoveNext Loop Text1.Text = i得到的结果是0 延时处理问题 [招聘]资深VB工程师(北京) 帮助 请问,我使用vb创建一个activex工程,如何为这个自开发的控件增加自定义的事件??? MSHFlexGrid 中如何实现滚动条和grid中行的移动的同步? 大侠们帮帮忙(急呀!!!) 数据同步问题 如何进行http上传?什么方法都行,inet,winsock,sockets等均可 vb和odbc的连接问题!!!!!! 怎么用代码把一个数据库中的表的数据导入到另一个库中呢 我的窗体上有动态加载的20个命令按 钮,我怎样才能一次设定完毕其属性? 请问一下 怎样时刻监控打印端口?
如果你的数据库是sql server,用系统存储过程Sp_pkeys可以得到主键Sp_pkeys 表名
Set parm_jobid = New ADODB.Parameter
Set mycommand = New ADODB.Command
parm_jobid.Type = adInteger '参数类型
parm_jobid.Size = 3 '参数长度
parm_jobid.Direction = adParamInput
'参数方向,输入或输出
parm_jobid.value = 100 '参数的值
mycommand.Parameters.Append parm_jobid
'加入参数
Set parm_joblvl = New ADODB.Parameter
'parm_joblvl.Name = "name2"
parm_joblvl.Type = adInteger
parm_joblvl.Size = 3
parm_joblvl.Direction = adParamInput
' mycommand.value = 100
mycommand.Parameters.Append parm_joblvl
mycommand.ActiveConnection = m_cnnDB
'指定该command 的当前活动连接
mycommand.CommandText = " Sp_pkeys "
'myprocedure 是你要调用的存储过程名称
mycommand.CommandType = adCmdStoredProc
'表明command 为存储过程
Set rstByQuery = New ADODB.Recordset
Set rstByQuery = mycommand.Execute("时间范围")
i = 0
Do While Not rstByQuery.EOF
i = i + 1 ' i 中保存记录个数
rstByQuery.MoveNext
Loop
Text1.Text = i得到的结果是0