Új hozzászólás Aktív témák

• Gh0sT addikt

  #500

  #499 Gh0sT

  2006-05-28 14:26:11

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Gh0sT

  addikt

  #499 Gh0sT

  #499 Gh0sT

  Sikerült kiolvasnom az adatbázisból a lekérdezés fejléceit, de adatokat valamiért nem tudok.
  
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim Connection1 As New System.Data.SqlClient.SqlConnection(''Data Source=kisg\sqlexpress; Initial Catalog=Babel;Integrated Security=SSPI;'')
  Dim Command1 As New System.Data.SqlClient.SqlCommand(''Select * from UKM'', Connection1)
  Connection1.Open()
  Dim Reader1 As System.Data.SqlClient.SqlDataReader = Command1.ExecuteReader()
  Dim Table As DataTable = Reader1.GetSchemaTable()
  Dim index As Integer
  For index = 0 To Table.Rows.Count - 1
  TextBox1.Text &= Reader1.GetName(index) & ControlChars.Tab
  Next
  Egészen eddig működik is, a TextBoxban megjelennek a tábla fejlécei
  'For index = 0 To Table.Rows.Count - 1
  'TextBox1.Text &= Reader1.GetString(index) & ControlChars.Tab
  'Next
  End Sub
  
  Gondolom itt lehet valami hiba, mert úgy viselkedik, mintha nem lenne találat. Pedig fel van töltve adatokkal. Ezek szerint nem a GetStringgel kellene adatokat kinyernem a táblából?
  

  Megoldottam...
  
  While (Reader1.Read())
  TextBox1.Text &= Reader1(0)
  End While
  
  Jól elvagyok itt magamban.

Új hozzászólás Aktív témák