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

Buenas De Nuevo xD
He Conseguido Hacer Que VisualStudio 2008 (Basic) Me Dé Los Resultados De La Edad Que Quiro, Pero Ésta, Es En Una Base ACCESS Y Necesito Que Funcione En SQL. Aver Si Me Podeis Dar Este Empujoncito Y Acabo De Hacer Este Programa De Consultas, Aqui Os Dejo La Fórmula Que Lo Puse Para La Base ACCESS.

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=Microsoft.Jet.OLEDB.4.0; Data Source=c:\datos\mibase.mdb")

' creando y cargando el adapter

Dim q As String

q = "select * from mitabla where edad >= @EDAD"

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("@EDAD", OleDbType.VarWChar, 20))

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

' creando y cargando el dataset

Tabla = New DataSet()

orden.Fill(Tabla, "mitabla")

' cargando el datagridview

GRID1.DataSource = Tabla.Tables("mitabla").DefaultView

End Sub
Y La Base SQL Van De Tal Que Quiero Sacar De La Tabla:
Equipo_1\Trabajo
Con Estos:
Equipo_1\Trabajo\Bases De Datos\TTData\Tablas\dbo.Saletransaction
La Base Completa Está En C:\Datos\TTData
Y Para Ejecutar Desde Macros SQL El Directorio Me Sale:
Una Vez Conectado AL Servidor TTData.dbo.SaleTransaction

Gracias De Antemano Y Espero Pronto Respuesta Para Olvidar Esto Ya :P