用DataGrid这个控件显示数据库的内容 然后想查找其中一条记录
怎么能让黑箭头停在要找的位置?
怎么能让黑箭头停在要找的位置?
解决方案 »
- VB中用ado方式 如何创建VisualFoxpro中两个结构相同的表
- 如何让自编程序随系统XP自动启动?
- 请教大虾们一个关于webbrowser控件的问题
- 那位兄弟姐妹有CRC32数据效验算法分析或代码(VB代码最好),给一份,谢谢!
- 有关VB控制OFFICE的问题
- 一个扩展MSHFLEXGRID控件的控件
- PICTUREBOX如何实现鼠标MOVE过,图片切换?
- 求助一个关于VB在网络中的应用
- 如何把汉字保存为BYTE,然后再读取为汉字???????
- 大家说!此题无解?!?!
- vb连接ORACLE
- VB如何连接Oracle数据库(不是用ODBC),如果用Provider连接,连接语句如何写,数据源如何配置?在线等待
我忘了这个怎么用了 谁给说一下啊
代码:
Option Explicit
Dim rs As New ADODB.RecordsetPrivate Sub Combo1_click()
Combo2.ListIndex = Combo1.ListIndex
End SubPrivate Sub Combo2_click()
Combo1.ListIndex = Combo2.ListIndex
End Sub
Private Sub Command1_Click()
Dim sql As String
sql = "select where "
If rs.State = 1 Then
rs.Close
End If
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
Set DataGrid1.DataSource = rs
End Sub
Private Sub Command3_Click()
If rs.BOF Then
MsgBox "没有查询的数据!"
Unload Me
Exit Sub
End If
If rs.EOF Then
MsgBox "没有查询的数据!"
Unload Me
Exit Sub
End If
Set DataGrid1.DataSource = Nothing
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set DataGrid1.DataSource = Nothing
End SubPrivate Sub Form_Load()
Dim rs1 As New ADODB.Recordset
Dim sql As String
sql = "select"
rs1.Open sql, conn, adOpenKeyset, adLockPessimistic
End Sub
Adodc1.Recordset.Find "商品名称 = '" & Text1.Text & "'", , , 1就行了 这个完整的写法|?就是第一句 要回到记录最前 Adodc1.Recordset.MoveFirst然后呢 |假如没有找到的话 怎么写来的?
成立吗?
怎么能模糊查询?
questr = "select 卡号,社编号,姓名,部门,测试记录,测试日期,测试时间,备注" & " " & _
"from 表名" & " where [表名].姓名='" & Text1.Text & "' and [表名].测试日期 between '" & DTPicker1.value & "'and '" & DTPicker2.value & "'"
Data1.RecordSource = questr
Data1.Refresh