用vb作个查询?不够加!!!

Question

我用ADODC和DATA GRID搞了一个课程信息管理系统,需要设置条件查看数据,我用的是SQLserver2000数据库,请高手帮忙写写代码!就是把需要的数据从数据库里检索出来,再在data grid里显示就行.数据库连好了,修改,插入,删除都已经OK了.只要把查询写一下就可以了!

Answer 1

看你的题目似乎要的只是select * from table

Answer 2

帮别人做，平时用PB，VB不大会，查询不想查书了，大家帮帮忙!

Answer 3

呵呵．听着怎么这么别扭啊．select * from 全部 where 字段=XXX

Answer 4

你把ADODC的代码也写一下
重点不是select,这个我会!!!!

Answer 5

Dim strConn As String
    Dim pubConn As New Connection
    Dim rsTable As New Recordset
    Dim strSQL As StringPrivate Sub Form_Load()
    strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=databasename;Data Source=."'databasename为数据库名称
    pubConn.Open strConn    rsTable.CursorLocation = adUseClient
    strSQL = "select  * from TableName"'TableName为你将要连接的表名
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    if not rstTable.eof then
    msgbox rstTable(0)
    end if
End Sub
'引用Microsof ActiveX Data Objects 2.1  Library

Answer 6

同意 sektor(普通动物)，不过还不完整，加上：DATAGrid1.DataSource=rsTable才算完整，我也有分吧？

Answer 7

哦不好意思，上面的你用马上又会问用户和密码的问题了,其中strConn改一下：strConn="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户名;password=密码;Initial Catalog=表;Data Source=sql server"比较完整了

Answer 8

回复人： tmran(Rocky 爱瘦鱼) ( ) 信誉：100  2005-05-08 20:32:00  得分: 0  
 
 
   同意 sektor(普通动物)，不过还不完整，加上：DATAGrid1.DataSource=rsTable才算完整，我也有分吧？
  
 
呵，他不太了解ＶＢ，这句就显得重要了

Answer 9

那些都不是问题，我已经接上数据库了。只要把data grid里的记录变成text1要求的记录并刷新!
比如text1=金融，data grid里的记录就要显示专业是金融的记录，不要打那些接库的了!
你明白了：)

Answer 10

Adodc1.CommandType = adCmdText
adodc1.RecordSource ="select * from 表名 where 条件"
Adodc1.Refresh

Answer 11

解释一下第一句，
如果加上一个条件text2.代码怎么写？

Answer 12

照抄MSDN
指示 Command 对象的类型。设置和返回值设置或返回以下某个 CommandTypeEnum 值。常量 说明 
AdCmdText 将 CommandText 作为命令或存储过程调用的文本化定义进行计算。 
AdCmdTable 将 CommandText 作为其列全部由内部生成的 SQL 查询返回的表格的名称进行计算。 
AdCmdTableDirect 将 CommandText 作为其列全部返回的表格的名称进行计算。 
AdCmdStoredProc 将 CommandText 作为存储过程名进行计算。 
AdCmdUnknown 默认值。CommandText 属性中的命令类型未知。 
AdCommandFile 将 CommandText 作为持久 Recordset 文件名进行计算。 
AdExecuteNoRecords 指示 CommandText 为不返回行的命令或存储过程（例如，插入数据的命令）。如果检索任意行，则将丢弃这些行且并不返回。它总是与 adCmdText 或 adCmdStoredProc 进行组合。 
说明使用 CommandType 属性可优化 CommandText 属性的计算。如果 CommandType 属性的值等于 adCmdUnknown（默认值），系统的性能将会降低，因为 ADO 必须调用提供者以确定 CommandText 属性是 SQL 语句、还是存储过程或表格名称。如果知道正在使用的命令的类型，可通过设置 CommandType 属性指令 ADO 直接转到相关代码。如果 CommandType 属性与 CommandText 属性中的命令类型不匹配，调用 Execute 方法时将产生错误。adExecuteNoRecords 常量通过最小化内部处理来提高性能。该常量不独立使用，它总是与 adCmdText 或 adCmdStoredProc 组合（如 adCmdText+adExecuteNoRecords）一起使用。如果与 Recordset.Open 一起使用 adExecuteNoRecords，或者该方法使用 Command 对象都将产生错误。

Answer 13

加上Text2.textadodc1.RecordSource ="select * from 表名 where 字段='" & text2.text & "'"

Answer 14

晕，都是抢分的哈，我也来Dim strSQL As String, Num As Integer
Dim Rs As New Recordset, Connect As New Connection
'Set Connect = New ConnectionConnect.Provider = "SQLOLEDB"
下面是2种连接字符的方法Connect.ConnectionString = "图书数据 DSN" connect.connectionstring="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=图书数据;Data Source=KKK-KING"
'对于不同的数据库设置，要做相应的调整Connect.OpenstrSQL = " Select xx from table where xxx"
With Rs
   Set .ActiveConnection = Adodc1.Recordset.ActiveConnection 'connect
   '.CursorLocation = adUseClient
   '.CursorType = adOpenStatic
   
   .Open strSQL
end with

Answer 15

最后显示的时候应该是：
set DATAGrid1.DataSource=rsTable