Извлечение данных из базы данных SQL в VB.NET

Question

Может кто-нибудь, пожалуйста, скажите мне, что я делаю неправильно здесь? Очень простой уровень опыта Visual Basic.

Я пытаюсь получить ORDERID, ORDERDATE и CUSTOMERID из предоставленной базы данных и показать их в dataGridView?

Dim con1 As New OleDbConnection 
con1.ConnectionString = _ 
"Provider=msdaora;Data Source=orabis;User Id=112221800;Password=112221800;" 

'Dim con1 As New SqlConnection("Provider=msdaora;Data Source=orabis;User Id=112221800;Password=112221800;") 
con1.Open() 
Dim cmd1 As New SqlCommand("select ORDERID, ORDERDATE AND CUSTOMERID from CUSORDER", con1) 

Dim ada1 As New SqlDataAdapter(cmd1) 
Dim ds1 As New DataSet 
ada1.Fill(ds1) 
ViewDeliverys.DataGridView1.DataSource = ds1.Tables(0) 

con1.Close() 

Answer 1

Вы не можете использовать OleDbConnection Whith в SqlCommand (SQL-сервер). Какие rdbms вы используете?

Это работает для SQL-сервера:

Using con = New SqlConnection(connectionString) 
    Using da = New SqlDataAdapter("SELECT ORDERID, ORDERDATE AND CUSTOMERID from CUSORDER", con) 
     Dim table = New DataTable() 
     da.Fill(table) 
     ViewDeliverys.DataGridView1.DataSource = table 
    End Using 
End Using 

Edit: Вот версия OleDb:

Using con = New OleDbConnection(connectionString) 
    Using da = New OleDbDataAdapter("SELECT ORDERID, ORDERDATE AND CUSTOMERID from CUSORDER", con) 
     Dim table = New DataTable() 
     da.Fill(table) 
     ViewDeliverys.DataGridView1.DataSource = table 
    End Using 
End Using 

Answer 2

Что базы данных вы используете SQL Sever или MS Access? Если вы используете SQL Server, используйте SQL Connection, а затем OleDBConnection в MS Access.

Для правильной строки подключения проверьте его на:

http://www.connectionstrings.com

Проверьте также этот учебник от:

http://vb.net-informations.com/ado.net-dataproviders/ado.net-sqldataadapter

А также Replace запрос от:

Dim cmd1 As New SqlCommand("select ORDERID, ORDERDATE AND CUSTOMERID from CUSORDER", con1) 

w здесь ORDERDATE AND CUSTOMERID воля бросает вас ошибка

Изменить это:

Dim cmd1 As New SqlCommand("select ORDERID, ORDERDATE,CUSTOMERID from CUSORDER", con1)