RE:Añadir DataTable a Base de Datos en vb 2005
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