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 : ejercicioGO
USE master
GO
IF(DB_ID('ejercicio')IS NOT NULL)
DROP DATABASE ejercicio
GO
CREATE DATABASE ejercicio
GO
USE ejercicio
GO
CREATE TABLE producto (
idp CHAR(3)PRIMARY KEY,
nombre VARCHAR(30)NOT NULL,
procedencia VARCHAR(20)NOT NULL CHECK (procedencia IN('Nacional','Importado')),
precio money,
presentacion VARCHAR(15)NOT NULL CHECK(presentacion IN('Caja','Lata','Bolsa')),
stock INT NOT NULL CHECK(stock >0),
fvencimiento DATE)
GO
CREATE proc registrar(
@idp CHAR(3),
@nombre VARCHAR(30),
@proc VARCHAR(20),
@precio money,
@presen VARCHAR(15),
@stock INT,
@fv DATE,
@msj VARCHAR(60)output)
AS BEGIN
IF(EXISTS(SELECT * FROM producto WHERE idp =@idp ))
SET @msj ='el id '+','+@idp +'Producto ya existe'
ELSE BEGIN
INSERT producto VALUES(@idp ,@nombre ,@proc ,@precio ,@presen ,@stock ,@fv )
SET @msj ='DATOS REGISTRADOS'
END
END
--ahora el code en visual
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Public con As New SqlConnection("Server=.;DataBase=ejercicio;Integrated Security=true")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cbxpresentacion.Items.Add("Seleccione") : cbxpresentacion.Items.Add("Caja")
cbxpresentacion.Items.Add("Lata") : cbxpresentacion.Items.Add("Bolsa")
rbtnacional.Checked = True
cbxpresentacion.SelectedIndex = 0
'para validar meses
vermes()
End Sub
Sub abrir()
If con.State = 0 Then con.Open()
End Sub
Sub cerrar()
If con.State = 1 Then con.Close()
End Sub
Private Sub btnregistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnregistrar.Click
If txtcodigo.Text <> "" And txtnombre.Text <> "" And txtprecio.Text <> "" And txtstock.Text <> "" Then
If cbxpresentacion.SelectedIndex <> 0 Then
Try
Dim cmd As New SqlCommand
Dim msje As String = ""
abrir()
cmd = New SqlCommand("registrar", con)
cmd.CommandType = 4
With cmd.Parameters
.AddWithValue("@idp", txtcodigo.Text)
.AddWithValue("@nombre", txtnombre.Text)
If rbtnacional.Checked = True Then
.AddWithValue("@proc", "Nacional")
Else
.AddWithValue("@proc", "Importado")
End If
.AddWithValue("@precio", txtprecio.Text)
.AddWithValue("@presen", cbxpresentacion.Text)
.AddWithValue("@stock", txtstock.Text)
.AddWithValue("@fv", datefv.Value)
.Add("@msj", SqlDbType.VarChar, 60).Direction = 2
cmd.ExecuteNonQuery()
msje = cmd.Parameters("@msj").Value
MessageBox.Show(msje)
limpiar()
End With
Catch ex As Exception
End Try
cerrar()
Else
MessageBox.Show("Seleccione Un Indice del Combo")
End If
Else
MessageBox.Show("Llene Cajas")
End If
End Sub
Sub limpiar()
txtcodigo.Clear() : txtnombre.Clear() : txtprecio.Clear()
txtstock.Clear()
rbtnacional.Checked = True
cbxpresentacion.SelectedIndex = 0
End Sub
Sub vermes()
',con esto al momento de escoger el valor del datetimepicker
'el mes se suma 2
Dim mes As Integer = Now.Month
datefv.MinDate = New DateTime(Now.Year, mes + 2, Now.Day)
End Sub
Private Sub datefv_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles datefv.ValueChanged
vermes()
End Sub
End Class
AKI IMAGEN DE FORMULARIO
http://img706.imageshack.us/img706/1684/89998267.jpg-- dame un me gusta
http://www.facebook.com/pages/Programadores/217326488292716
Autor
En línea
