CODEWITHSUNDEEP
sqlvb.net
112221
112221

Reputation: 17

Retrieving data from a SQL database to VB.NET

Can anyone please tell me what i am doing wrong here? Very basic level of Visual Basic experience.

Im trying to retrieve the ORDERID, ORDERDATE and CUSTOMERID from the database provided and show them in a 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()

Upvotes: 2

Views: 13831

Answers (2)

Tim Schmelter
Tim Schmelter

Reputation: 460018

You cannot use a OleDbConnection whith a SqlCommand(SQL-Server). Which rdbms are you using?

This works for SQL-Server:

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: Here's the OleDb version:

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

Upvotes: 1

BizApps
BizApps

Reputation: 6130

What Database are you using SQL Sever or MS Access? If you are uing SQL Server use SQL Connection then OleDBConnection on MS Access.

For the correct connection string check it on:

http://www.connectionstrings.com

Check also this tutorial from:

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

And also Replace your query from:

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

where ORDERDATE AND CUSTOMERID will throws you an error

Change it to:

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

Upvotes: 0

Related Questions