¿Como hacer consulta a una tabla con tableadapters?

[josiasdaniel_]

Saludos gente, tengo serios problemas para consultar información de una tabla. No entiendo muy bien como funcionan los tableAdapters, ¿Alguien podria ayudarme?

[josiasdaniel_]

me esta dando el siguiente error

ERROR [28000] [Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'sa'. ERROR [28000] [Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'sa'.

y el codigo es:



Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdBtn_Clasificado.CheckedChanged
Dim ClasificadoData As New DalaiTableAdapters.tbTarifaClassTableAdapter
If RdBtn_Clasificado.Checked Then

banderaTipoAviso = tipoAviso.Clasificado
RdBtn_Desplegado.Enabled = False
RdBtn_Clasificado.Enabled = False

'cargo el comboBox de Tarifa a Copiar
cmBoxTarCop.DataSource = ClasificadoData.GetData
cmBoxTarCop.DisplayMember = "ctc_nombre"
cmBoxTarCop.ValueMember = "ctc_codigo"

'cargo el comboBox de Tarifa Destino
cmBoxTarDes.DataSource = ClasificadoData.GetData
cmBoxTarDes.DisplayMember = "ctc_nombre"
cmBoxTarDes.ValueMember = "ctc_codigo"

End If
End Sub

Public Sub ManipularTablas(ByVal codigoOrigen As String, ByVal codigoDestino As String, ByVal tipo As Integer)
MsgBox("ORIGEN " + codigoOrigen.ToString + " Destino " + codigoDestino.ToString + " tipo " + tipo.ToString)
Select Case (tipo)
Case (tipoAviso.Desplegado)
MsgBox("tipo desplegado =>")

Dim adapter As New tbRangoDSTableAdapters.tbRangoDespTableAdapter
Dim data As tbRangoDs.tbRangoDespRow = CType(adapter.GetDataByCodigo(CInt(codigoOrigen.To String)), tbRangoDs.tbRangoDespRow)



Case (tipoAviso.Clasificado)
MsgBox("tipo clasificado =>")
End Select



End Sub

[josiasdaniel_]

cambie la funcion ManipularTablas con la intensión de poder escribir la consulta en un archivo pero no logro escribir los resgistros, el codigo de la función quedó asi el resto es igual:



Public Sub ManipularTablas(ByVal codigoOrigen As String, ByVal codigoDestino As String, ByVal tipo As Integer)
MsgBox("ORIGEN " + codigoOrigen.ToString + " Destino " + codigoDestino.ToString + " tipo " + tipo.ToString)
Select Case (tipo)
Case (tipoAviso.Desplegado)
MsgBox("tipo desplegado =>")
Dim adapter As New DalaiTableAdapters.tbRangoDespDetTableAdapter
Dim data As Dalai.tbRangoDespDetDataTable = adapter.GetDataBycrd_codigo

Dim fs As New FileStream("C:\Documents and Settings\jgonzalez\Escritorio\cadenas2.txt", FileMode.OpenOrCreate, FileAccess.ReadWrite)
Dim archivo As New StreamWriter(fs)
archivo.Write(data.Rows.ToString)
archivo.Flush()
archivo.Close()
Console.ReadLine()
MsgBox("Termine")





Case (tipoAviso.Clasificado)
MsgBox("tipo clasificado =>")
End Select



End Sub


Los MsgBox son para saber si paso por la linea sin errores. Y por cierto ya el error de identificación ya no me lo da gracias a Dios..