Im working on another db class and i cant get it to work![]()
Im trying to connect to an access 2000 database and all i get are exeption errors. Can someone help???
here is my code
Code:Imports System.Data.SqlClient Public Class clsDB Private database_ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\bin\Debug\data\mydb.mdb;" Private database_Connection As New SqlConnection() Private database_Sql_Statement As String = "" Public Reader As SqlDataReader Public Sub OpenDatabaseConnection() Try database_Connection.ConnectionString = database_ConnectionString database_Connection.Open() Catch ex As Exception Addlvitems("DataBase Connection Error: " + ex.Message.ToString(), "System") End Try End Sub Public Sub CloseDatabaseConnection() Try Reader.Close() If database_Connection.State <> Data.ConnectionState.Closed Then Reader.Close() database_Connection.Close() End If Catch ex As Exception Addlvitems("DataBase Close Error: " + ex.Message.ToString(), "System") End Try End Sub Public Function RunSqlStatement(ByVal SQL_Statement As String, ByVal where As String) As String RunSqlStatement = "" Try Dim cmd As New System.Data.SqlClient.SqlCommand(SQL_Statement, database_Connection) Reader = cmd.ExecuteReader If Reader.HasRows Then Do While Reader.Read() RunSqlStatement = Reader.Item(where) Loop Else RunSqlStatement = " " End If Return RunSqlStatement Catch ex As Exception Addlvitems("Sql Error: " + ex.Message.ToString(), "System") End Try End Function End Class




Reply With Quote