Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: 9Sergio en 14 Noviembre 2011, 20:25 pm



Título: ¿Como enlazar Sql server con Visual Basic.net 2008?
Publicado por: 9Sergio en 14 Noviembre 2011, 20:25 pm
Hola a todos,

Acabo de empezar a ver SQL Server (llevo como 5 clases), Ya se usar los códigos básicos, Create, Insert, Delete etc... Lo sencillo. (Todavía no domino ni las llaves, ni el Tigger)

Pero necesito poder enlazarlo con un programa en visualbasic.net (utilizo el 2008), para que este guarde un registro de lo que haga el usuario que lo ejecute.

Lo que quiero es poder modificar la base de datos desde visual, eh buscado durante un rato (como 3 días), sé que la respuesta está por ahí.

¿Podrían Facilitarme algún método para realizar esto?

Tenía pensado, que se podría de 2 formas

1) En Visual Ingresar algún evento o código en el cual ingresar códigos de SQL Server o similares que pudieran hacer lo mismo.

2) Activar algún código (tal vez algún Tigger), desde visual basic.net.


Título: Re: ¿Como enlazar My Sql con Visual Basic.net 2008?
Publicado por: seba123neo en 15 Noviembre 2011, 03:00 am
en el titulo dice my sql y lo haces con sql server ?


Lo que quiero es poder modificar la base de datos desde visual, eh buscado durante un rato (como 3 días), sé que la respuesta está por ahí.


modificar en que sentido ? los registros las tablas ?


Título: Re: ¿Como enlazar My Sql con Visual Basic.net 2008?
Publicado por: BlackZeroX (Astaroth) en 15 Noviembre 2011, 05:07 am
 Usa ADO.NET

los tiggers se activar igual con la misma libreria no recuerdo con que instruccion... creo que era algo con patters (No hagas mucho caso ando fumado xP).

Dulces Lunas!¡.


Título: Re: ¿Como enlazar Sql server con Visual Basic.net 2008?
Publicado por: 9Sergio en 15 Noviembre 2011, 22:02 pm
Perdona seba123neo no sabia que habia tanta diferencia entre my sql y sql server, ya arregle el titulo, perdona soy muy nuevo.

y si me referia a cambiar el contenido de las tablas, claro que me gustaria cambiar la tabla en si, pero eso lo investigare aparte, Saben donde puedo encontrar tutoriales o de algun codigo que sirva para lograr cambiar el contenido de las tablas?


Título: Re: ¿Como enlazar Sql server con Visual Basic.net 2008?
Publicado por: _-Javier-_ en 22 Noviembre 2011, 02:03 am
Oe men
si quieres conectar Sql Server con Visual Net usa una cadena de conexion para asi
poder modificar el contenido o registros de las tablas.

 
Codigo de conexion:

--Cabecera
import system.data
import system.data.sqlclient

------

public con as new sqlconnection("Server=.;DataBase=NombreBD;Integrated Security=true");

'el . en la cadena de conexion corresponde a tu servidor con el q entras a SQL
'metodos para abrir conexion

sub abrir
if con.state=0 then
con.open()
end sub

sub cerrar
if con.state=1 then
con.close()
end dub



--ya esta  ahora esos metodos de abrir y cerrar se usan cuando quieres modificar
--las tablas de tu BD ya sea registrando , eliminado,Modificando , etc

AKI UN EJEMPLO UTILIZANDO UNA BD : ejercicio


Código
  1. GO
  2. USE master
  3. GO
  4. IF(DB_ID('ejercicio')IS NOT NULL)
  5. DROP DATABASE ejercicio
  6. GO
  7. CREATE DATABASE ejercicio
  8. GO
  9. USE ejercicio
  10. GO
  11. CREATE TABLE producto (
  12. idp CHAR(3)PRIMARY KEY,
  13. nombre VARCHAR(30)NOT NULL,
  14. procedencia VARCHAR(20)NOT NULL CHECK (procedencia IN('Nacional','Importado')),
  15. precio money,
  16. presentacion VARCHAR(15)NOT NULL CHECK(presentacion IN('Caja','Lata','Bolsa')),
  17. stock INT NOT NULL CHECK(stock >0),
  18. fvencimiento DATE)
  19. GO
  20. CREATE proc registrar(
  21. @idp CHAR(3),
  22. @nombre VARCHAR(30),
  23. @proc VARCHAR(20),
  24. @precio money,
  25. @presen VARCHAR(15),
  26. @stock INT,
  27. @fv DATE,
  28. @msj VARCHAR(60)output)
  29. AS BEGIN
  30. IF(EXISTS(SELECT * FROM producto WHERE idp =@idp ))
  31. SET @msj ='el id '+','+@idp +'Producto ya existe'
  32.   ELSE BEGIN
  33.   INSERT producto VALUES(@idp ,@nombre ,@proc ,@precio ,@presen ,@stock ,@fv )
  34.     SET @msj ='DATOS REGISTRADOS'
  35.   END
  36. END
  37.  
  38.  
  39.  

--ahora el code en visual

Código
  1.  
  2. Imports System.Data
  3. Imports System.Data.SqlClient
  4. Public Class Form1
  5.    Public con As New SqlConnection("Server=.;DataBase=ejercicio;Integrated Security=true")
  6.  
  7.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  8.        cbxpresentacion.Items.Add("Seleccione") : cbxpresentacion.Items.Add("Caja")
  9.        cbxpresentacion.Items.Add("Lata") : cbxpresentacion.Items.Add("Bolsa")
  10.        rbtnacional.Checked = True
  11.        cbxpresentacion.SelectedIndex = 0
  12.        'para validar meses
  13.        vermes()
  14.  
  15.    End Sub
  16.    Sub abrir()
  17.        If con.State = 0 Then con.Open()
  18.    End Sub
  19.    Sub cerrar()
  20.        If con.State = 1 Then con.Close()
  21.    End Sub
  22.    Private Sub btnregistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnregistrar.Click
  23.        If txtcodigo.Text <> "" And txtnombre.Text <> "" And txtprecio.Text <> "" And txtstock.Text <> "" Then
  24.            If cbxpresentacion.SelectedIndex <> 0 Then
  25.                Try
  26.                    Dim cmd As New SqlCommand
  27.                    Dim msje As String = ""
  28.                    abrir()
  29.                    cmd = New SqlCommand("registrar", con)
  30.                    cmd.CommandType = 4
  31.                    With cmd.Parameters
  32.                        .AddWithValue("@idp", txtcodigo.Text)
  33.                        .AddWithValue("@nombre", txtnombre.Text)
  34.                        If rbtnacional.Checked = True Then
  35.                            .AddWithValue("@proc", "Nacional")
  36.                        Else
  37.                            .AddWithValue("@proc", "Importado")
  38.                        End If
  39.                        .AddWithValue("@precio", txtprecio.Text)
  40.                        .AddWithValue("@presen", cbxpresentacion.Text)
  41.                        .AddWithValue("@stock", txtstock.Text)
  42.                        .AddWithValue("@fv", datefv.Value)
  43.                        .Add("@msj", SqlDbType.VarChar, 60).Direction = 2
  44.                        cmd.ExecuteNonQuery()
  45.                        msje = cmd.Parameters("@msj").Value
  46.                        MessageBox.Show(msje)
  47.                        limpiar()
  48.                    End With
  49.                Catch ex As Exception
  50.                End Try
  51.                cerrar()
  52.            Else
  53.                MessageBox.Show("Seleccione Un Indice del Combo")
  54.            End If
  55.        Else
  56.            MessageBox.Show("Llene Cajas")
  57.        End If
  58.    End Sub
  59.    Sub limpiar()
  60.        txtcodigo.Clear() : txtnombre.Clear() : txtprecio.Clear()
  61.        txtstock.Clear()
  62.        rbtnacional.Checked = True
  63.        cbxpresentacion.SelectedIndex = 0
  64.    End Sub
  65.    Sub vermes()
  66.        ',con esto al momento de escoger el valor del datetimepicker
  67.        'el mes se suma 2
  68.        Dim mes As Integer = Now.Month
  69.        datefv.MinDate = New DateTime(Now.Year, mes + 2, Now.Day)
  70.    End Sub
  71.    Private Sub datefv_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles datefv.ValueChanged  
  72.        vermes()
  73.    End Sub
  74. End Class
  75.  
  76.  
  77.  

AKI IMAGEN DE FORMULARIO

http://img706.imageshack.us/img706/1684/89998267.jpg (http://img706.imageshack.us/img706/1684/89998267.jpg)


-- dame un me gusta

http://www.facebook.com/pages/Programadores/217326488292716




Título: Re: ¿Como enlazar Sql server con Visual Basic.net 2008?
Publicado por: 9Sergio en 11 Febrero 2013, 01:21 am
:O no me acordaba de eso, si alguien por casualidad entra y tiene problemas ise un tutorial de eso hace tiempo XD.

cUGuooLKCho

todavía era muy nuevo y me equivocaba bastante XD