連接資料庫字串

Public DBSchoolcnStr As String = "data source=.\SQL2008;initial catalog=school;User id=登入代號;Password=密碼;"

Dim con As SqlClient.SqlConnection = New SqlClient.SqlConnection(DBSchoolcnStr)

Dim com As String = "SELECT * FROM table "

Dim adtp As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(com, con)

Dim dt As DataTable = New DataTable()

Try

con.Open()

adtp.Fill(dt)

For i = 0 To dt.Rows.Count - 1

dt.Rows(i).Item("UID")

Next

adtp.Dispose()

con.Close()

con.Dispose()

Catch ex As Exception

End Try