DataSet problem
Hi
I seem to be getting an error when trying to run the below code: -
Function CustomersEdit() As System.Data.DataSet
Dim connectionString As String = _
ConfigurationSettings.AppSettings("ConnectionStrin g")
Dim dbConnection As System.Data.IDbConnection = _
New System.Data.OleDb.OleDbConnection(connectionString )
Dim queryString As String = "SELECT [Customers].[CustomerName], [Customers].[Address1], [Customers].[SiteLogin],"& _
"[Customers].[SitePassword], [Customers].[CustomerID] FROM [Customers]"
Dim dbCommand As System.Data.IDbCommand = _
New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dataAdapter As System.Data.IDbDataAdapter = _
New System.Data.OleDb.OleDbDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)
Return dataSet
End Function
The line that displays the error is the one in bold, of which it is advising "The ConnectionString property has not been initialized."
Can anyone offer any suggestions?
Thanks
Sharon
|