Visual Basic.NET - Añadir DataTable a Base de Datos en vb 2005

   
Vista:

Añadir DataTable a Base de Datos en vb 2005

Publicado por Alvaro (1 intervención) el 26/12/2007 16:41:07
Hola, estoy desarrollando una aplicacion en vb 2005. El caso es que tengo un objeto DataTable y me gustaria añadir esa tabla a una base de datos. Pero no se como hacerlo, ya que solo se modificar la base de datos utilizando comandos sql y ejecutandolos con el objeto command. Gracias y un saludo.
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:Añadir DataTable a Base de Datos en vb 2005

Publicado por Harold V. (411 intervenciones) el 27/12/2007 01:49:56
Hola: Este ejemplo, te ayudara a resolver tus dudas....

Utiliza los objetos del SQLServer directamente.

Hacer referencias a:

Microsoft.SqlServer.Management.Smo
Microsoft.SqlServer.Management.ConnectionInfo
Microsoft.SqlServer.Management.SmoEnum
Microsoft.SqlServer.Management.SqlEnum

Las dll se encuentran en:
C:Archivos de programaMicrosoft SQL Server90SDKAssemblies

Luego........

Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Common

Public Class Form1

Dim db As Database
Dim srv As Server

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

CrearTabla("Sample", "TabladeEjemplo")
MsgBox("La tabla a sido creada")

End Sub

''' <summary>
''' Crea una tabla en la base de datos seleccionada
''' </summary>
''' <param name="BaseDatos">Nombre de la base de datos.</param>
''' <param name="nombreTabla">Nombre de la tabla a crear.</param>
''' <remarks></remarks>
Sub CrearTabla(ByVal BaseDatos As String, ByVal nombreTabla As String)
'Connect to the local, default instance of SQL Server.
srv = New Server

'Reference your database.
db = srv.Databases(BaseDatos)

'Define a Table object variable by supplying the parent database and table name in the constructor.
Dim tb As Table
tb = New Table(db, nombreTabla)

''Add various columns to the table.
Dim col1 As Column
col1 = New Column(tb, "ID", DataType.Int)
col1.Identity = True
col1.IdentitySeed = 1
col1.IdentityIncrement = 1
tb.Columns.Add(col1)

Dim col2 As Column
col2 = New Column(tb, "Name", DataType.NChar(50))
col2.Collation = "Latin1_General_CI_AS"
col2.Nullable = True
tb.Columns.Add(col2)

Dim col3 As Column
col3 = New Column(tb, "Value", DataType.Real)
tb.Columns.Add(col3)

Dim col4 As Column
col4 = New Column(tb, "Date", DataType.DateTime)
col4.Nullable = False
tb.Columns.Add(col4)

'Create the table on the instance of SQL Server.
tb.Create()

End Sub

End Class
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