Public Function FetchMsSQL() As DataSet
'req namespace:
'Imports System.Data.SqlClient
Dim connString As String = "Data Source=YourServer; Initial Catalog=YourDataBase; User Id=UserInMsSQL; Password=PassInMsSQL;"
Dim sql As String = "SELECT * FROM [table]"
Dim da As New SqlDataAdapter(sql, connString)
Dim ds As New DataSet
da.Fill(ds)
da.Dispose()
Return ds
End Function
* have a nice try.... :)
No comments:
Post a Comment