请教sql 的问题

Imnotsad

请教sql 的问题   高手请进来！谢

i want to put the result of select statment into array vb.net

1) select distinct user from zuser  ----> array

2) select * from group where zuser in (arr(0,1,2,3 ))

goatstudio

1. 你的问题是什么?
2. 把出了问题的 code 放上来吧.

Imnotsad

1. 
   
2. 
   
3. Private Sub getUser()
   
4.         Dim connection As IDbConnection = Nothing
   
5.         Try
   
6. 
   
7. 
   
8.             Try
   
9.                 connection = getConnection(getConnectionString(gclsDBConfig))
   
10.                 connection.Open()
    
11.             Catch ex As Exception
    
12.                 MessageBox.Show("The connection with the database can't be established", "Application Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
13.                 Exit Sub
    
14.             End Try
    
15. 
    
16.             Dim strSQL3 As String = "select distinct usrid from ZPUREQH"
    
17.             Dim ds1 As New DataSet
    
18.             Dim j As Integer = 0
    
19.             Dim k As Integer = 0
    
20.             Dim userarr As ValueList
    
21.             Dim str As String
    
22.             Dim ar As New ArrayList
    
23. 
    
24.             Dim sMonths() As String = {"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"}
    
25. 
    
26.             DBSQLHelper.FillDataset(connection, CommandType.Text, strSQL3, ds1, New String() {"t1"})
    
27.             For j = 0 To ds1.Tables("t1").Rows.Count - 1
    
28.                 If frmTPR.IsValidDeptUser(ds1.Tables("t1").Rows(j).Item("usrid").ToString) = True Then
    
29.                     str = ds1.Tables("t1").Rows(j).Item("usrid").ToString
    
30.                     str = "'" & str & "','" & str & "'"
    
31.                     'ar.Add(str)
    
32. 
    
33.                     'userarr.ValueListItems.Add(str)
    
34. 
    
35.                 End If
    
36.             Next
    
37. 
    
38.             Dim newstr As String = str
    
39. 
    
40. 
    
41.         Catch ex As Exception
    
42.             Dim errMessage As String = ""
    
43.             Dim tempException As Exception = ex
    
44. 
    
45.             While (Not tempException Is Nothing)
    
46.                 errMessage += tempException.Message + Environment.NewLine + Environment.NewLine
    
47.                 tempException = tempException.InnerException
    
48.             End While
    
49. 
    
50.             MessageBox.Show("Please check the following error messages: " + Environment.NewLine + errMessage, "Application error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    
51.         Finally
    
52.             If Not connection Is Nothing Then
    
53.                 CType(connection, IDisposable).Dispose()
    
54.             End If
    
55.         End Try
    
56.     End Sub
    
57. 
    
58. 
    

复制代码

Imnotsad

form this query

1. 
   
2. Dim strSQL As String = "SELECT '' AS TICK,H.REFNO,H.ISSDT,D.SUPPCD,H.ISSBY,H.REQBY,H.NEEDBY,H.USRID, " & _
   
3.                                 "D.TRNCD,D.COMID,D.DOCNO,D.LINENO,D.ITMCD,D.ITMDESC,D.RORDQTY,D.ORDQTY,D.APVLQTY,D.APVLDT, " & _
   
4.                                 "D.APVLQTY AS PrevAPVLQTY, D.APVLDT AS PrevAPVLDT, D.SUPPCD AS PrevSUPPCD " & _
   
5.                                 "FROM ZPUREQH H LEFT JOIN ZPUREQD D ON " & _
   
6.                                 "H.DOCNO=D.DOCNO AND H.TRNCD=D.TRNCD AND H.COMID=D.COMID " & _
   
7.                                 "WHERE COMID='" & gstrCOMID & "' " & _
   
8.                                 "AND TRNCD='" & coPRTrnCd & "' " & _
   
9.                                 "AND ISSDT > '" & gfFormatSQLDate(txtFIssDT.Text, gstrDTFMT) & "' " & _
   
10.                                 "AND ISSDT <='" & gfFormatSQLDate(CDate(Today), gstrDTFMT) & "' " & _
    
11.                                 "AND h.USRID IN ('" & strUser1 & "') "
    
12.             strSQL = strSQL & strSQL2
    
13. 
    

复制代码

goatstudio

第一个 code 和 第二个 code 有什么用途呢?
有 Error Message 吗?

很含糊的问题... 再解释清楚你的问题吧.