我在datagrid与数据库连接时用到我在3月23号14:26问时的解答,且运行正常!
现在我在其中作了修改如下:
1.strConn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=wj;password=wj;Data Source=title"
2.将Rs.Source = "Select * from FD_Year "改为:
Select Case Text2.text
 Case "01"
 Rs.Source = "Select QYMD,QOBS from FD_Year WHERE STAID='01'"
 Case "02"
 Rs.Source = "Select QYMD,QOBS from FD_Year WHERE STAID='02'"
 Case "03"
Rs.Source = "Select QYMD,QOBS from FD_Year WHERE STAID='03'"
 Case "04"
 Rs.Source = "Select QYMD,QOBS from FD_Year WHERE STAID='04'"
 End Select
目的想当text2的text为01时,显示数据库相应表FD_Year中STAID=01的内容。
类似显示=02,03,04内容。
可现在TEXT2.TEXT为01,02,03,04时,均只能显示01内容。望指教!

解决方案 »

  1.   

    你这样写比较好些
    Dim strSQL as string
    Select Case Text2.text
     Case "01"
         strSQL  = "Select QYMD,QOBS from FD_Year WHERE STAID='01'"
     Case "02"
         strSQL  = "Select QYMD,QOBS from FD_Year WHERE STAID='02'"
     Case "03"
         strSQL  = "Select QYMD,QOBS from FD_Year WHERE STAID='03'"
     Case "04"
         strSQL  = "Select QYMD,QOBS from FD_Year WHERE STAID='04'"
     End Select
    RS.open strSQL,Con,adOpenKeyset ,adLockPessimistic
      

  2.   

    有可能是STAID的数据类型的问题,关系到SQL语句的写法,STAID='04'正确吗?