vb6.0sql查询

不清楚你的意图，“通过条件（a列）查询使其获取的信息添加至字典d中key=a列，item=b列。”

1、条件是一个逻辑语句，如 rs!a = "abcd"，如果成立，返回 True，不是一个字段。2、VB6的字典是在编辑程序时提前设置好的，不可能在程序运行时再添加到字典中。3、添加可以添加到媒介中，不能添加到程序中。

点中一行，给定的检查区间是多少，另外你用的数据库中什么？

首先要添加消息映射，是双击还是单击你自己定义。在消息响应函数中可以获取用户点击的行的ID和内容，根据这个计算出要检查的区间，然后构造SQL语句到数据库中进行查询，并将返回的结果展现出来。

string sql=" select count() from test where 日期='2014-1-21'"; 然后返回首行首列 object count = commandExecuteScale(); text1text=countToString(); //这是C#代码 但和VB的思路一致

sql = "select from 基本信息 where 供货公司 like '%" & Trim(Text1Text) & "%'and 车牌号 like '%" & Trim(Text2Text) & "%' and 日期>= #" & DTPicker1Value & "# And 日期<= #" & DTPicker2Value & "# "

用模糊查询，如果文本框内容为空，则显示全部。

'没什么思路，就是sql查询

'添加一个adodc1,一个datagrid1，一个text1，一个command1

'复制下面的代码，修改一下你的数据库地址和你的表名即可直接使用

Dim sqlstr As String

Private Sub Command1_Click()

Adodc1RecordSource = "select from [你的表名] where 手机='" & Text1Text & "'"

Adodc1Refresh

End Sub

Private Sub Form_Load()

sqlstr = "Provider=MicrosoftJetOLEDB40;Persist Security Info=false;Data Source=你的mdb数据库地址"

Adodc1ConnectionString = sqlstr

Adodc1RecordSource = "select from [你的表名]"

Adodc1Refresh

Set DataGrid1DataSource = Adodc1

End Sub

Private Sub Command1_Click()

strfilename = "E:\XXZL\tESTmdb"

Set cn = New ADODBConnection

Set rs = New ADODBRecordset

cnCursorLocation = adUseClient

ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source= " & strfilename & ";Persist Security Info=False"

cnOpen ConnectionString

StrSQL = "select DD,BB,CC,AA from RES where AA= '" & Text1Text & "' and DD='1'"

rsOpen StrSQL, cn, adOpenKeyset, adLockOptimistic

Set DataGrid1DataSource = rs

End Sub

以上就是关于vb6.0sql查询全部的内容，包括:vb6.0sql查询、vb6.0中，listbox控件，如何用选中项目来进行数据库查询…时间格式为 2014-12-3、vb6.0 怎样统计数据库查询条数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！