sql >> Databasteknik >  >> RDS >> Sqlserver

hämta data från SQL i VB (del 2)

Du missade connectionString
Om du vill fylla i listan från DB finns det många sätt

Med DataReader

Imports System.Data.Sql
Imports System.Data.SqlClient


Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim connectionString As String = "Data Sourec=localhost;........."
    Dim conn As New SqlConnection(connectionString)
    conn.Open()
    Dim comm As New SqlCommand("SELECT name FROM Table_1", conn)
    Dim reader As SqlDataReader = comm.ExecuteReader
    /* As it is not working i commented this
    listBox1.ItemsSource = dt; // use this instead of  ListBox1.Items.Add(dt)
    //because Add event add only one item in the list. 
     */
    Dim i As Integer
    i=0
    while reader.read() 
    listbox1.Items.Add(dr(i).ToString);
    i++
    End While

 End Sub
End Class

Med DataTable

Imports System.Data.Sql
Imports System.Data.SqlClient


Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim connectionString As String = "Data Sourec=localhost;........."
    Dim conn As New SqlConnection(connectionString)
    conn.Open()
    // Create new DataAdapter
    SqlDataAdapter a = new SqlDataAdapter("SELECT * FROM EmployeeIDs", c)
    // Use DataAdapter to fill DataTable
    DataTable dt = new DataTable();
    a.Fill(dt);
    ListBox1.DataSource = dt;
    ListBox1.DataTextField = "name";



 End Sub
End Class


REDIGERA:
Andra parametrar för anslutningssträngen beror på din säkerhet och allt det där. Du måste se den här länken Anslutningssträngar för SQL Server 2008



  1. MySQL-tjänsten på den lokala datorn startade och stoppade sedan

  2. Hur importerar man selektivt en XLS till en SQL Server 2008-tabell?

  3. Hur man tar bort ett SQL Server Agent-jobb i Azure Data Studio

  4. Lägg till skiftlägesokänslig sortering i PostgreSQL