CODEWITHSUNDEEP
c#ms-access
CaptainBadass
CaptainBadass

Reputation: 7

MS Visual Studio 2010 Database connection to MS Access 2007

I'm trying to put this code in a textbox, it seems correct. However, the "OldDbConnection" and ".Open" are underlined red. Am I missing something or doing something wrong? 

OleDbConnection conn = new 
    OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb;
Persist Security Info=False;");

    try
    {
        conn.Open();
        MessageBox.Show("Connected");


    }
    catch (Exception ex)
    {
        MessageBox.Show(ex.Message);
    }

Upvotes: 0

Views: 1982

Answers (2)

Jhayboy
Jhayboy

Reputation: 1

Imports System.Data.OleDb
Imports System.Data.OleDb.OleDbDataReader

Public Class Form1
    Dim provider As String
    Dim dataFile As String
    Dim connString As String
    Dim myConnection As OleDbConnection = New OleDbConnection





    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        provider = "Provider =Microsoft.ACE.OLEDB.12.0;Data Source="
        dataFile = "C:\Users\ANNALIZA\Desktop\New folder (4)\JABOYY1.accdb"
        connString = provider & dataFile
        myConnection.ConnectionString = connString
        myConnection.Open()


        Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM [ADMIN] WHERE [userName] = '" & TextBox1.Text & "' AND [userPassword] = '" & TextBox2.Text & "'", myConnection)
        Dim userFound As Boolean = False
        Dim FirstName As String = ""
        Dim LastName As String = ""
        Dim dr As OleDbDataReader = cmd.ExecuteReader




        While dr.Read
            userFound = True
            FirstName = dr("FirstName").ToString
            LastName = dr("LastName").ToString

        End While
        If userFound = True Then
            Form2.Show()
            Form2.Label1.Text = "Welcome" & FirstName & " " & LastName
        ElseIf TextBox1.Text = "" And TextBox2.Text = "" Then
            MsgBox("No such username and password found! Input first before you click LOG IN!", MsgBoxStyle.Critical, "Warning")
            Me.Show()



        ElseIf MsgBox("Sorry username and password not found!LOGIN FAILED", MsgBoxStyle.Exclamation, "Invalid Log in") Then
            TextBox1.Text = ""
            TextBox2.Text = ""
            Me.Show()

        End If




    End Sub

Upvotes: 0

Daniel A. White
Daniel A. White

Reputation: 190897

Add a using System.Data.OleDb to the top of your file.

Upvotes: 1

Related Questions