Pytanie : TextBox na Forma z Dane od Pole od SQL Baza danych Stół w Wizualny Studio 2008

I mieć Forma wymieniać ViewNotes w Wizualny Podstawowy Projekt w Wizualny Studio 2008. Ten forma mieć RichTextBox na ono wymieniać txtNotes.
I am dane od "notatka" Pole Stołowy zwany t_notes w SQL Serwer Baza danych wymieniać MyDatabase.
I am klient using kod od Książkowy (Uczyć się Wizualny Podstawowy w 24 Godzina James Foxall - I musieć ono brać bardziej niż 24 godzina godzina)
The kod to w ten książka właściwie uczyć ty dlaczego Dane od Dojazdowy Baza danych using CEREGIELE Sieć i Ole.OleDBConnection.
I am ten kod ono Dane od SQL Serwer using SQL Klient.
I am providing ten zmodyfikowany kod w the kod window.
This kodować, pracować. Ono dawać the następujący error
The SelectCommand Własność initialised przed "Pełnia"
with debugger the następujący linia w mój kod:

mySQLDataAdapterr.Fill (myDataTab)

I być wdzięczny dla rada na błąd w ten kod che zapobiegać ono od swój pragnąć cel. 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

Imports System.Data
Import System.Configuration
Import System.Data.SqlClient
Społeczeństwo Klasowy ViewNotes
    Ciemnawy sqlConn Jako Nowy SqlConnection

    Intymny mySQLConnection Jako Nowy SqlConnection
    Intymny mySQLDataAdapter Jako SqlDataAdapter
    Intymny mySQLCommandBuilder Jako SqlCommandBuilder
    Intymny myDataTable Jako Nowy DataTable
    Intymny RowPosition Jako Integer




    Intymny Okręt podwodny ViewBookCode_FormClosed (ByVal nadawca Jako Przedmiot, ByVal e Jako System.Windows.Forms.FormClosedEventArgs) Obchodzić się Me.FormClosed
        mySQLConnection.Close ()
        mySQLConnection.Dispose ()


    Końcówka Okręt podwodny



    Intymny Okręt podwodny ViewBookCode_Load (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się MyBase.Load

        mySQLConnection.ConnectionString = "Dane Source=VISTA-ON-MAC \ SQLEXPRESS; Początkowy Catalog=WriterDemo; Upierać się Ochrona Info=True; Użytkownik - id =sa; Password=peter; Łączyć Timeout=30"

        Ćmić customer_id Jako Integer
        customer_id = (1)

        mySQLConnection.Open ()

        mySQLDataAdapter = Nowy SqlDataAdapter ("WYBIÓRKA * OD t_notes DOKĄD customer_id =" & customer_id, sqlConn)


        mySQLDataAdapter = Nowy SqlDataAdapter


        mySQLCommandBuilder = Nowy SqlCommandBuilder (mySQLDataAdapter)
        mySQLDataAdapter.Fill (myDataTable)

        Me.ShowCurrentRecord ()



    Końcówka Okręt podwodny
    Intymny Okręt podwodny ShowCurrentRecord ()
        Jeżeli myDataTable.Rows.Count = (0) Wtedy
            txtNotes.Text = ""
            Wyjście Okręt podwodny


        Kończyć Jeżeli

        txtNotes.Text = myDataTable.Rows (RowPosition) ("notatka") .ToString ()



    Końcówka Okręt podwodny
Końcówka Klasa

Odpowiedź : TextBox na Forma z Dane od Pole od SQL Baza danych Stół w Wizualny Studio 2008

zmieniać the linia nie 33

        mySQLDataAdapter = Nowy SqlDataAdapter ("WYBIERAĆ notatka OD t_notes", mySQLConnection)

        Twój aktualny aktywny związek być mySQLConnection nie sqlconn. Uzupełniać Kod że i bieg być który być z mój baza danych
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

Import System.Data
Import System.Configuration
Import System.Data.SqlClient
Społeczeństwo Klasowy ViewSQLClient

    Ciemnawy sqlConn Jako Nowy SqlConnection
    Intymny mySQLConnection Jako Nowy SqlConnection
    Intymny mySQLDataAdapter Jako SqlDataAdapter
    Intymny mySQLCommandBuilder Jako SqlCommandBuilder
    Intymny myDataTable Jako Nowy DataTable
    Intymny RowPosition Jako Integer
    Intymny Okręt podwodny ViewSQLClient_FormClosed (ByVal nadawca Jako Przedmiot, ByVal e Jako System.Windows.Forms.FormClosedEventArgs) Obchodzić się Me.FormClosed
        mySQLConnection.Close ()
        mySQLConnection.Dispose ()
    Końcówka Okręt podwodny
    Intymny Okręt podwodny ViewSQLClient_Load (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się MyBase.Load
        mySQLConnection.ConnectionString = "Dane Source=SMARTCHEATER \ sqlexpress; Początkowy Catalog=cricket; Zintegrowany Security=True"
        mySQLConnection.Open ()
        mySQLDataAdapter = Nowy SqlDataAdapter ("WYBRANY imię OD kraj", mySQLConnection)
        mySQLCommandBuilder = Nowy SqlCommandBuilder (mySQLDataAdapter)
        'The kod w the następny linia dawać the błąd 
        'Błąd Messag: e the ConnectionString Własność initialised
        mySQLDataAdapter.Fill (myDataTable)
        Me.ShowCurrentRecord ()
    Końcówka Okręt podwodny
    Intymny Okręt podwodny ShowCurrentRecord ()
        Jeżeli myDataTable.Rows.Count = (0) Wtedy
            txtNotes.Text = ""
            Wyjście Okręt podwodny
        Kończyć Jeżeli
        txtNotes.Text = myDataTable.Rows (RowPosition) ("imię") .ToString ()
    Końcówka Okręt podwodny
Końcówka Klasa
Inne rozwiązania  
 
programming4us programming4us