Himachandra Ответов: 2

Показать данные базы данных Access в GridView в форме VB


Мне нужно отобразить данные базы данных в форме VB в виде сетки ..... Я знаю, как отображать данные через представление DataGrid из источников данных.Но мне нужно отобразить данные из кода.Мой код для подключения базы данных
Dim cnnOLEDB As New OleDbConnection
    Dim cmdOLEDB As New OleDbCommand
    Dim cmdInsert As New OleDbCommand
    Dim cmdUpdate As New OleDbCommand
    Dim cmdDelete As New OleDbCommand
    Dim strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.Environment.CurrentDirectory & "\SMSToolDB.mdb"
cnnOLEDB.ConnectionString = strConnectionString
        cnnOLEDB.Open()



Кто-нибудь, пожалуйста, помогите мне.......

uspatel

предпринимали ли вы какие-либо усилия, чтобы связать данные с gridview?

2 Ответов

Рейтинг:
1

Manoj K Bhoir

Попробуй вот это :

Dim objda As OleDbDataAdapter= New OleDbDataAdapter
        Public con As New OleDb.OleDbConnection             'Creating Connection object       
        Dim objdataset As DataSet = New DataSet
        Dim dv As DataView
        objda.SelectCommand = New OleDbCommand
        OpenConnection()                                    'Open your DataBase Connection First
        objda.SelectCommand.CommandText = "Select * FROM TableName"
        objda.Fill(objdataset, "TableName")
        dv = New DataView(objdataset.Tables("TableName"))
        DataGridView1.DataSource = dv

Public Sub OpenConnection()
        If con.State = ConnectionState.Open Then            'Checking Connection State
            con.Close()                                     'Closing Connection
        End If
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\DataBaseName.mdb;Persist Security Info=True;"
        Try
            con.Open()                                      'Opening Connection
        Catch ex As Exception                               'Providing Error Message
            MessageBox.Show("Uable to Connect", "Database Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End                                             'Closing Application
        End Try


Himachandra

Ошибка: objda не объявлен

Himachandra

Как объявить objda......

Himachandra

OpenConnection() не объявляет, что произошла ошибка?

Manoj K Bhoir

Проверьте обновленную дозировку!

Chhavi Verma

проблема: я хочу отобразить данные из базы данных access в vb.net веб-приложение gridview. m отправляет мой код..


Дим connectionString, как строка = "поставщика=Майкрософт.Туз.Oledb для.12.0; Источник данных=С:\Пользователи\пользователь\Мои Документы\оккд.# то#; сохранять сведения о безопасности =false в;"
Дим SQL как строку = ("выбрать класс Class1,sec1,fname1 из table1 где класс1='" + dpclass1.Текст + " и sec1='" + dpsec1.Текст + "'")
Dim conn как новый OleDbConnection(connectionstring)
Дим данных как новый объект oledbdataadapter(среда SQL, соед)
Dim ds как новый набор данных()

Коннектикут.Открыть()
объект DataAdapter.Заполнить(ДС, "таблица1")
Коннектикут.Закрывать()
GridView1. DataSource = ds
Управления gridview1.DataMember = "таблица1"
Управления gridview1.Привязку()



//он не показывает результат в gridview, даже не gridvew.. пожалуйста, помогите

Рейтинг:
1