- Код: Выделить всё
Dim Connect As New SqlClient.SqlConnection("workstation id=IGOR;packet size=4096;integrated security=SSPI;data source=XEON;persist security info=False;initial catalog=Test")
Connect.Open()
Dim SQLCmd As New SqlClient.SqlCommand("select * from sitrudnik", Connect)
Dim SQLDataAdapter As New SqlClient.SqlDataAdapter(SQLCmd)
Dim SQLDataSet As New DataSet
SQLDataAdapter.Fill(SQLDataSet, "Sutrudnik")
MessageBox.Show(SQLDataSet.Tables(0).Rows.Count.ToString)
Connect.Close()
все вроде правильно, но в строке
- Код: Выделить всё
SQLDataAdapter.Fill(SQLDataSet, "Sutrudnik")
выдает ошибку system error и все!
толи в книге ошибки, то ли студия левая.
так ведь можно и бросить.
