Καλημέρα

Εχω ένα table σε SQL 2005 ως Εξής :

ID int

Role int

Name  String

θέλω να πάρω τις τιμές του Role και του Name απο ένα row που θα το βρώ με ένα select 

και να τις βάλω σε δύο HidenFields αντοίστοιχα.
Θέλω να κάνω χρήση του Connection string απο το web.config και αν είναι δυνατόν να χρησιμοποιήσω 

sqldatasource όμως δεν θέλω να χρησιμοποιήσω κανένα control όπως Formview Gridview detailsview κλπ

Αν είναι δυνατόν να κάνω bind κατευθείαν στα hidenField ..... ή εναλακτικά σε TextBox.

Αν μπορεί κάποιος να περιγράψει τα steps ή ακόμη καλυτερα κώδικα. Χρησιμοποιώ VS2005

Ευχαριστώ.

Για το Connection string.

Στο web.config, μέσα στο , μέσα στο .

Πρόσθεσε το παρακάτω κλειδί αντικαθιστώντας με τις δικές σου τιμές

<configuration>

<appSettings>

 <add key="ConnectionString" value="Integrated Security=False; Data Source=MyServer; User ID = MyUserName; pwd = MyPwd; Initial Catalog=MyDataBase;"/>

</appSettings>

</configuration>

Στο .aspx.vb αρχείο πριν την αρχή της κλάσης κάνε import το namespace.

Imports System.Configuration

 

Μπορείς να πάρεις την τιμή του ConnectionString ως εξής.

Dim ConnStr As String = CType(ConfigurationSettings.AppSettings.Item("ConnectionString"), String)

 

Η χρήση του DataSource είναι να γεμίζει λίστες που περιέχουν από 0 έως ν γραμμές.

Ένα TextBox παίρνει μια τιμή μόνο. Το παρακάτω παράδειγμα είναι ένας τρόπος να διαβάσεις τη βάση σου και να αναθέσεις τιμές στο Text Property του Textbox.

 

Στο .aspx.vb αρχείο πριν την αρχή της κλάσης κάνε import το namespace.

Imports System.Configuration

Private Sub LoadTextBoxes()

  Dim strName As String

  Dim intRole As Integer

        Dim cmdText As String = "Select Name,Role From TableName Where id = 10"

        Dim cmd As New SqlCommand(cmdText)

        cmd.Connection = Conn

        cmd.CommandType = Data.CommandType.Text

        Dim dr As SqlDataReader

        Try

            Conn.Open()

            dr = cmd.ExecuteReader()

            dr.Read()

            strName = dr.Item(“Name”)

            intRole = dr.Item(“Role”)

        Catch ex As Exception

            'handle error

        Finally

            dr.Close()

            Conn.Close()

            Conn.Dispose()

        End Try

        Me.TextBox1.Text = strName

        Me.TextBox2.Text = intRole

End Sub

Εκτός πάλι αν θέλεις να δέσεις τα TextBoxes με συγκεκριμένη γραμμή σε μια λίστα(πχ με το current row)

Ευχαριστώ πόρα πολύ, πολύ χρήσιμα και βοηθητικά..!

Γιατί οσον αφορά σε Data όταν χρειάζομαι κάτι συνήθως χρησιμοποιώ

DataSource και FormView.

Δεν ξέρω αν καταλαβα καλά στο τελος υπονοείς εάν έχω απο το

select περισότερα rows να τα ρίξω σε μια λίστα.. και να δέσω τα textboxes

με την λίστα ? αν είναι αυτό θα με ενδιέφερε λίγος κώδικας.....! Ευχαριστώ..

Πολύ καλή απάντησε, με βοήθησε κι εμένα πολυ.

Πώς γίνεται να εισάγουμε παραμέτρους στην επερώτηση;

Για πάρέδειγμα πώς γίνεται το id να μην είναι ίσο με 10 πάντα, αλλά να πάιρνει τιμή από μία μεταβλητή, της οποίας η τιμή καθορίζεται από το πρόγραμμά μας;

ο ποιο απλός τρόπος να περάσεις να περάσεις παράμετρο είναι αυτός, αλλά εγώ θα προτιμούσα να φτιάξω ένα stored procedure και να καλώ αυτό. (κάποια στιγμή θα καταλάβω πώς μπαίνει και ο κώδικας στον editor)

Imports System.Configuration
Imports system.data
Imports system.data.sql

Private Sub LoadTextBoxes()

  Dim strName As String

  Dim intRole As Integer

        Dim cmdText As String = "Select Name,Role From TableName Where id = @id"
        Dim cmd As New SqlCommand(cmdText)
        cmd.Connection = Conn
        cmd.CommandType = Data.CommandType.Text
        cmd.CommandType .Parameters.Add("@id", SqlDbType.Int).Value = 10
        Dim dr As SqlDataReader
        Try
            Conn.Open()
            dr = cmd.ExecuteReader()
            dr.Read()
            strName = dr.Item(“Name”)
            intRole = dr.Item(“Role”)
        Catch ex As Exception
            'handle error
        Finally
            dr.Close()
            Conn.Close()
            Conn.Dispose()
        End Try
        Me.TextBox1.Text = strName
        Me.TextBox2.Text = intRole
End Sub