Visual Basic.NET - visual basic 2008 y access

   
Vista:

visual basic 2008 y access

Publicado por davidp (2 intervenciones) el 08/03/2010 15:48:02
Ante todo muchas gracias por adelantado.

Mi consulta es que en visual basic 6 habia hecho un programa sencillo que se conectaba a una base de datos Agenda y a una tabla Agenda2, la tabla tenia 3 campos telefono(clave) nombre y apellidos. Luego un formulario en el que tenia 3 textbox (telefonotxt, nombretxt y apellidostxt) y un boton buscar. Lo que hacia el programa era que yo introducia el numero de telefono y al apretar buscar me devolvia el nombre y apellidos.
Lo realizaba con
Private sub Command1_click()
if telefonotxt<> "" then
tablaagenda2.Index = "inidce"
tablaagenda2.Seek "=", telefonotxt
if tablaagenda2.Nomatch = true then ....

else
nombretxt = tablagenda2.Fields("nombre")
apellidostxt = tablaagenda2.Fields("apellidos")
end if
end if
End sub

Ahora estoy comenzando con visual basic 2008 y no tengo manera de poder hacer lo mismo soy novatillo pero he buscado mucha informacion de ado.net, SQL, dataset, que si select* from ... . Lo he probado casi todo pero no me salgo y lo unico que no he encontrado es un ejemplo parecido. Si me puderais ayudar estaria muy agradecido.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:visual basic 2008 y access

Publicado por Pelusa (81 intervenciones) el 09/03/2010 09:33:43
Imports System.Data.SqlClient


'CODIGODENTRO DE LA CLASE FORM (EN EL LOAD )

Dim DAtemp As SqlDataAdapter
Dim DStemp as new DataSet
Dim Conexion As SqlConnection
Dim SQL as String
Dim Fila as datarow

Conexion = New SqlConnection("Data Source=" Tu servidor ";Initial Catalog="Agenda ";User ID=" usuariosql ";Password="passSql ";")
Conexion.Open()

'CODIGO DENTRO DEL EVENTO CLICK DEL BOTON BUSCAR

SQL = "Select * from Agenda2 where Telefono='" & telefonotxt.text & "'
DAtemp = New SqlDataAdapter(SQL, Conexion)
DAtemp.Fill(DStemp, "Telefonos")

if DStemp.tables("Telefonos").rows.count = 1 then 'si la consulta devuelve un registro
fila= DStemp.tables("Telefonos").rows(0)
nombretxt.text = fila.item("Nombre")
apellidostxt.text = fila.item("Apellidos")

else
MsgBox("No se ha encontrado ningun registro ")
telefonotxt.text = ""
telefonotxt.focus
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:visual basic 2008 y access

Publicado por davidp (2 intervenciones) el 11/03/2010 21:52:00
Muchas gracias Pelusa.

Perdon por no agradecer antes pero llevamos 3 dias sin luz es lo bonito de vivir en Catalunya (facturas del 1er mundo e infrastructuras del 3er mundo)

Este fin de semana lo pruebo y te digo. Muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:visual basic 2008 y access

Publicado por Enrique (1 intervención) el 24/04/2013 03:30:07
oye amigo me prfrias pasar tu programa es para una tarea de bachiller porfa XDDDDD
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar