Ver Mensaje Individual
  #5 (permalink)  
Antiguo 22/01/2009, 09:29
Gold_Xp
 
Fecha de Ingreso: diciembre-2008
Mensajes: 46
Antigüedad: 15 años, 5 meses
Puntos: 1
Respuesta: Ayuda !!! Un Empujoncito Para Terminar !!!

Probados, y este parece que conecta
Cita:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' CREANDO VARIABLES Y OBJETOS A OCUPAR

Dim coneccion As OleDbConnection

Dim orden As OleDbDataAdapter

Dim Tabla As DataSet

' ABRIENDO ENLACE

coneccion = New OleDbConnection("Provider=SQLOLEDB.1;Password=sa;P ersist Security Info=True;User ID=sa;Initial Catalog=TTData;Data Source=EQUIPO_1\TT")

' creando y cargando el adapter

Dim q As String

q = "select * from SaleTransaction where TransDocNumber >= @TransDocNumber"

orden = New OleDbDataAdapter(q, coneccion)

' recordar que cada variable parametro (@) representa un componnete visual externo ( textbox)

' y cada variable parametro o textbox ocupa dos PARAMETROS

' EL VALOR Y EL TIPO DE DATO

orden.SelectCommand.Parameters.Add(New OleDbParameter("@TransDocNumber", OleDbType.VarWChar, 20))

orden.SelectCommand.Parameters("@TransDocNumber"). Value = TransDocNumber.Text

' creando y cargando el dataset

Tabla = New DataSet()

orden.Fill(Tabla, "SaleTransaction")

' cargando el datagridview

Grid1.DataSource = Tabla.Tables("SaleTransaction").DefaultView
End Sub
Perooo,...... Me da error de este -orden.Fill(Tabla, "dbo.SaleTransaction")- Debe declarar la variable escalar "@TransDocNumber"
Alguna Idea??? Uso VisualStudio2008 Con El SQL2008

Última edición por Gold_Xp; 22/01/2009 a las 09:40