viernes, 5 de noviembre de 2010

Visual Basic 2008 y SQL server 2005

 

Rutina sencilla de escritura de registro a una tabla en SQL server 2005
Referencias para que le entienda:
  • Base datos se llama: Procesos
  • Tabla se llama: prueba
  • Tiene 2 campos, fechahora (pk) tipo datetime y valor tipo decimal
  • valores(1) contiene el valor que se va a escribir en la tabla en el campo “valor”
Imports System.Data.SqlClient
Dim sfechahor As String
Dim dtpc As DateTime

dtpc = DateAndTime.Now
Dim conStr As String
Dim sqlStr As String

conStr = "Server=TORREONSAD\SQLSERVER;Database=Procesos;User ID=baseusuario;Password=basepw;Trusted_Connection=False"
sqlStr = "INSERT INTO prueba (fechahora, valor) Values (@horapc1,@valor1)"

Dim SQLCon As New SqlConnection()
Dim SQLcmd As New SqlCommand()

Try
    SQLCon.ConnectionString = conStr
    SQLCon.Open()

    SQLcmd.Connection = SQLCon
    SQLcmd.CommandText = sqlStr

    SQLcmd.Parameters.AddWithValue("@horapc1", dtpc)
    SQLcmd.Parameters.AddWithValue("@valor1", valores(1))

    SQLcmd.ExecuteNonQuery()
Catch ex As Exception
    MessageBox.Show("Fallo en conexion" & vbCrLf & ex.Message)
Finally
    SQLCon.Close()
End Try

Listo! Funciona ok…
Espero les sirva.


visual studio 2005 sql server visual basic 2008

No hay comentarios:

Publicar un comentario