如何suplay在VB網的數據集的數據與存儲過程

Question

我做了代碼VB網，到可以在我的形式顯示，我打電話使用的數據集的數據，我的編碼像下面

Public Function GetTableRow(ByVal strsql As String) As DataSet 

     Dim conn As New SqlConnection 
     Dim sDa As New SqlDataAdapter(strsql, conn) 
     Dim ds As New DataSet 
     Try 
      sDa.Fill(ds) 
     Catch ex As Exception 

     End Try 
     sDa.Dispose() 
     Return ds 
    End Function 


    Private Sub CmRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmRefresh.Click 

     Dim ds As New DataSet 
     Dim conn = "server='server'; database='database'; user=user;password='password';" 
     Dim strsql As String = "exec spSPDMonStockProductHarian '" & 230 & "'" 
     ds = conn.GetTableRow(strsql) 

With Listdata 
      .DataSource = ds.Tables(0) 
     End With 
     Koneksi.Close() 
     Koneksi.Close() 
    End Sub 

我當我執行問題此程序，錯誤信息

"Public member 'Function' on type 'String' not found." 

我沒有得到什麼問題，所以任何解決方案將欣賞！

Answer 1

你應該嘗試這樣的：

Private Sub CmRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmRefresh.Click 

     Dim ds As New DataSet 
     Dim conn As String = "server='server'; database='database'; user=user;password='password';" 
     Dim strsql As String = "exec spSPDMonStockProductHarian '" & 230 & "'" 
     ds = GetTableRow(strsql) 

     If ds.Tables.Count > 0 Then 
      With Listdata 
       .DataSource = ds.Tables(0) 
      End With 
     Else 
      MessageBox.Show("Dataset is empty") 
     End If 
     Koneksi.Close() 
     Koneksi.Close() 
    End Sub 

我在這裏所做的改變：

Dim conn As String 和 ds = GetTableRow(strsql)

基本上，GetTableRow是它沒有內部string類中定義您的自定義功能。