Visual Basic

GetConnectionString()

Public Class DatabaseLayer
    Private Shared Function GetConnectionString(ByVal filename As String) As String
        ' Build the full path to the specified database file and see if this
        ' file exists
        Dim fullPath As String = Path.Combine(Application.StartupPath, filename)
        If Not File.Exists(fullPath) Then
            Throw New FileNotFoundException("Unable to locate the database file {0} in the application folder.")
        End If
 
        ' Get the connection string template
        Dim connStringTemplate As String = My.Settings.ConnectionString
 
        ' Build and return the completed connection string
        Return String.Format(connStringTemplate, Path.Combine(Application.StartupPath, filename))
    End Function
 
    Private Shared Function CreateDatabaseConnection(ByVal filename As String) As OleDbConnection
        ' Get a connection string for the specified database file
        Dim connString As String = GetConnectionString(filename)
 
        ' Return an OleDbConnection object
        Return New OleDbConnect(connString)
    End Function
 
    Private Shared Function GetFileExcludeTableSelectCommand() As OleDbCommand
        Dim selectSql As String = "SELECT " & _
                "ExcludeID, ExcludePath, ExcludeFileName FROM tblExclude"
        Return New OleDbCommand(selectSql)
    End Function
 
    Private Shared Function CreateFileExcludeTableDataAdapter(ByVal selectCommand As OleDbCommand, ByVal connection As OleDbConnection) As OleDbDataAdatper
        Dim da As New OleDbDataAdapter(comm, conn)
        ' Put code here to add any command parameters and use the OleDbCommandBuilder
        ' to finish building the DataAdpters UPDATE, DELETE, and INSERT commands.
        Return da
    End Function
 
    Public Shared Function GetFileExcludeTable() As DataTable
        Dim dt As New DataTable("FileExcludeTable")
        Dim conn As OleDbConnection = CreateDatabaseConnection("File.mdb")
        Dim comm As OleDbCommand = GetFileExcludeTableSelectCommand()
 
        Using da As OleDbDataAdapter = CreateFileExcludeTableDataAdapter(comm, conn)
            da.Fill(dt)
        End Using
 
        Return dt
    End Function

jds1207 wrote:

this is very helpful but it still does not solve the problem.

somunu wrote:

How To use a component that is present outside the current working environment.

somunu wrote:

How deos the DataAdpter,DataSet work together in establishing connection between VB.NET and SqlServer2005.Explain with example

Vuyiswamb wrote:

it should have the correct mappings?

Dave Kreskowiak wrote:
|What do you expect the "correct mappings" to be?? 

Dave Kreskowiak wrote:
Where did you want the database to be??

Dave Kreskowiak wrote:
What does the code look like that builds the file path to the database?? 

Vuyiswamb wrote:

used a Wizard to achieve this, so i did not hardcode the DB mappings

<font color="#008000">'/// say i wanted to remove item 15 in the array<br />
'/// i'd specify the Array to remove it from as 1st parameter ( arrBooks )<br />
'/// i'd specify the index of the item to remove as 2nd parameter ( 15 in this case )<br />
'/// i'd specify the amount of items to remove from that point as 3rd parameter ( ie: 1 item to remove just position 15 )</font><br />
Array.Clear(arrBooks, 15, 1)<br />
<font color="#008000">'/// then if you wish to resize the arrBooks to account for the deleted item ( s )</font> <br />
Array.Resize(arrBooks, " the new size here as an integer " )

jamilkhan007 wrote:

spacific shared folder in windows for which every(admin,guest,other etc) user have write/read access....