有一库db1.mdb 中有一个表abc 有两个字段xingming nianling我想查询 xingming = 张三 的记录并显示出来 已经定义了 Private Sub Form_Load()Set myconn = New ADODB.Connection
myconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & IIf(Len(App.Path) = 3, "db1.mdb", "\db1.mdb") & ";Persist Security Info=False"
myconn.Open
Set myrecord = New ADODB.Recordset
myrecord.Open "abc", myconn, adOpenKeyset, adLockReadOnly
Text1.Text = myrecord.Fields("xingming").ValueEnd Sub用这个 查询语句对吗
Dim SQLStr As String
SQLStr = "select xingming form abc where xingming=88"
myconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & IIf(Len(App.Path) = 3, "db1.mdb", "\db1.mdb") & ";Persist Security Info=False"
myconn.Open
Set myrecord = New ADODB.Recordset
myrecord.Open "abc", myconn, adOpenKeyset, adLockReadOnly
Text1.Text = myrecord.Fields("xingming").ValueEnd Sub用这个 查询语句对吗
Dim SQLStr As String
SQLStr = "select xingming form abc where xingming=88"
解决方案 »
- 去掉多余的字符
- 记录移动问题
- 如何写一个视频、语音聊天服务器?
- 请问为什么运行程序时加载的窗口只能显示边框和窗口标题栏?
- 在listView1中建立两个列首:"名称"和"内容"如何实现"内容"下的选项(如小明)可以通过鼠标双击来激活修改!(像Excel 那样往里填数据,双击
- 当连接数据库失败时,跳出一个对话框,显示失败信息,怎么写?拜托
- 请教一个问题,在线等待!!!!!!
- 紧急求助:怎样随机读取大容量文件啊!
- 有谁可以告诉我VB中调用API函数中的常数是如何得到的,先谢了
- vb简单问题一个
- Mschart点击曲线上任意点的位置,怎么能在在旁边显示该点数值??(不是该点的坐标值)
- vb中如何验证sql语法是否正确!
调用上面这句会返回返回表里所有数据,之后可以用 myrecord.filter="xingming=88"
筛选数据,
或用楼上的办法
要不你查出的东西有什么意义。
要不你查出的东西有什么意义。
===========================
呵呵
if myrecord.bof=false or myrecord.eof=false
Text1.Text =Trim(myrecord.Fields("xingming") & "")
Text2.Text=Trim(myrecord.Fields("nianling") & "")
endid
myrecord.close
set myrecord=nothing