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