我在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.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内容。望指教!
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