VB

Question

我的数据库也连好了,没有报错..怎么查询后没有结果显示呢.请高手指点!!!!!!!!!急.........

Answer 1

不是吧，什么代码也没有怎么看
  你试试这样做，引用ado 
    Dim Con As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set Con = New ADODB.Connection
    strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
    Con.Open strCon
    Set rs = New ADODB.Recordset
    '添加记录
    strsql="select * from 表 where id=2"
    rs.Open strsql, Con, adOpenKeyset, adLockOptimistic      
       
       '输出id＝2的一个字段
       msgbox rs!字段
    rs.close
    set rs=nothing

Answer 2

参考：'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    '有密码的连接：
    'cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名"
    '无密码的连接：
    cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 你的表 where ...", cn, 3, 2
    If rs.Eof Then Msgbox "没有符合条件的记录"
    whlie not rs.eof
        Combo1.AddItem rs.Fields("你需要的列名").value
        rs.MoveNext
    wend
    Exit Sub
err:
    MsgBox err.Description
End Sub

Answer 3

Option ExplicitPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
On Error Resume Next
Dim i As Integer
Text2 = ""
For i = 0 To DataGrid1.Columns.Count - 1
  Text2 = Text2 & DataGrid1.Columns(i).Value & "|"
Next
End SubPrivate Sub Form_Activate()
List1.Clear
List1.AddItem "查询MO"
List1.AddItem "查询MT"
End SubPrivate Sub List1_Click()
Dim QueStr As String
Select Case List1
  Case "查询MO"
    QueStr = "select destination_id as 特服号,src_terminal_id as 手机号,convert(varchar(255),msg_content) as 内容,ih_timestamp as 时间 from inhand40.dbo.cmpp_deliver where src_terminal_id='" & Text1 & "' order by id desc"
  Case "查询MT"
    QueStr = "select src_terminal_id as 特服号,dest_terminal_id as 手机号,convert(varchar(255),msg_content) as 内容,ih_timestamp as 时间 from inhand40.dbo.cmpp_submit where dest_terminal_id='" & Text1 & "' order by id desc"
End Select
Adodc1.ConnectionString = Conn.ConnectionString
Adodc1.RecordSource = QueStr
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.Columns(0).Width = 800
DataGrid1.Columns(1).Width = 1200
DataGrid1.Columns(2).Width = 4200
DataGrid1.Columns(3).Width = 1800
Label2 = "共" & Adodc1.Recordset.RecordCount & "条记录"
End Sub

Answer 4

查询后没有结果显示
---------------
你是说DataGrid没内容？

Answer 5

如果你的Label2显示有记录，那么应该是你的dataGrid设置的问题，你把原来的删除，重新添加一个DataGrid应该就好了

Answer 6

那是没查询到符合条件的记录，所以DataGrid也不会有内容

Answer 7

你把查询中的条件去掉，那就会有记录了,去掉where src_terminal_id='" & Text1 & "'