FYI: Here is my connection string.
Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
<appSettings>
<add key="connectionstring" value="Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Begining ASP.NET 1.1\Data\WroxUnited.mdb"/>
</appSettings>
At any rate, I modified the code to use the SQL database and it works fine. It's almost like the .mdb file has an issue.
For reference, here is my code turned set to use the SQL database.
If anyone else has had a weird experience with the mdb I'd like to know you
you got around it.
Thanks.
Kevin
Function AddNewFanEmail(ByVal fanEmail As String) As Integer
Dim connectionString As String = ConfigurationSettings.AppSettings("ConnectionStrin g")
'Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString )
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)
Dim queryString As String = "INSERT INTO [Fans] ([FanEmail]) VALUES (@FanEmail)"
'Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
'Dim dbParam_fanEmail As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
Dim dbParam_fanEmail As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_fanEmail.ParameterName = "@FanEmail"
dbParam_fanEmail.Value = fanEmail
dbParam_fanEmail.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_fanEmail)
Dim rowsAffected As Integer = 0
dbConnection.Open
Try
rowsAffected = dbCommand.ExecuteNonQuery
Finally
dbConnection.Close
End Try
Return rowsAffected
End Function
|