UC知道关于写SQL查询器的问题
来源：百度知道 编辑：UC知道 时间：2024/06/24 05:29:19
我公司的数据库是SQL2000的,我平时是用SQL查询分析器查看数据的。
现在我想把一些每天常用的语句都做成查询器，就是语句不能修改只能填上关键字点‘OK’的。这样也可以方便别人简单查询又不会干扰数据库。
现在我知道DELPHI、VC++等都可以写SQL程序，请高手指点一下，用哪个语言写最方便、简单。最好能给个连接数据库IP并SELECT查询任意关键字的完整例子。
我只有一点VB基础，没有学过DELPHI和VC++。
现在我想把一些每天常用的语句都做成查询器，就是语句不能修改只能填上关键字点‘OK’的。这样也可以方便别人简单查询又不会干扰数据库。
现在我知道DELPHI、VC++等都可以写SQL程序，请高手指点一下，用哪个语言写最方便、简单。最好能给个连接数据库IP并SELECT查询任意关键字的完整例子。
我只有一点VB基础，没有学过DELPHI和VC++。
那就用VB写吧！把SQL语句写成字符串，用连接字符串的方式来执行SQL语句，查询结果反馈给listview就行了！例子如下：
dim sqlstr as string
sqlstr="select * from "
if combo1.text="请选择表" then '表名
combo1.SetFocus
exit sub
end if
sqlstr=sqlstr & combo1.text & " where 1=1"
if combo2.text="请选择列" then '列名
combo2.SetFocus
exit sub
end if
sqlstr=sqlstr & " and " & combo2.text
if trim(text1.text)="" then
text1.SetFocus
exit sub
end if
select case combo3.text
case "like"
sqlstr=sqlstr & " like '%"& text1.text &"%'"
case else
sqlstr=sqlstr & "='"& text1.text &"'"
end select
rs.open sqlstr,adoconn
while not ra.eof
Set ii = ListView1.ListItems.Add(1, , rs("列1"))
ii.SubItems(1) = rs("列2")
ii.SubItems(1) = rs