永发信息网

vb 查询显示问题

答案:3  悬赏:30  手机版
解决时间 2021-05-09 13:30
  • 提问者网友:鐵馬踏冰河
  • 2021-05-08 13:02

表1=Table_HKB

表2=userdy

思路怎么来想呢,就是DataGrid1中要显示的内容是表1的内容,不过在显示之前要对表2进行查询后显示表1的内容就是不要显示表2已有的内容,

最佳答案
  • 五星知识达人网友:行路难
  • 2021-05-08 13:27
SELECt 人口编号 from tablename where 人口编号 not in (Select 人口编号 from othertable where )
全部回答
  • 1楼网友:独行浪子会拥风
  • 2021-05-08 15:11
把问题表述清楚一些好吗? 或者把你的代码发上来,大家帮你分析一下
  • 2楼网友:愁杀梦里人
  • 2021-05-08 14:13

ACCESS数据库

Private Sub Form_Load()

Dim strAppPath As String strAppPath = App.Path If Right(strAppPath, 1) <> "\" Then strAppPath = strAppPath & "\" End If strAppPath = strAppPath & "BigText.mdb" ConnectString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & strAppPath & "" Set cnn = New ADODB.Connection cnn.Open ConnectString

end sub

SQL数据库

private sub from_load()

Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim str As String

cnn.CursorLocation = adUseClient str = "Provider=SQLOLEDB.1;Persist Security Info =False;" _ & "User ID=sa;" _ & "Pwd=13802221802;" _ & "Initial Catalog=db1;" _ & "Data Source=whx"

cnn.Open str end sub

private command1_click()

dim str as string

str="select 人口编号 from Table_HKB where 人口编号 not in(select 人口编号 from userdy ) "

rs.open str,cnn,adopenstatic

datagrid1.datasoure=rs.recordset

end sub

我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯