Insertar datos de caratula vb en una tabla sql

[Potro]

Hola amigos del foro.

Saben me pidierón hacer una caratula en vb que tuviera 5 campos y que al llenar e insertar se guardaran en una tabla en sql desde el vb y la verdad no se como hacerle ya he checado varios manuales pero no dicen como creo una tabla en sql desde vb.

Espero alguien me pueda ayudar..

SALUDOS:::

[nostromo_]

Holas;

Bases de Datos usando DAO
y Visual Basic (clásico) = http://www.mundoprogramacion.com/vb/bases/indiceDAO.asp

Contenido:

1. Copiar la estructura de una tabla con Access
2. Ordenes SQL para cambiar los datos de una tabla.
3. Caracteres no "standards" en los nombres de los campos
4. Procesar una consulta SQL (Execute)
5. Procesar una consulta SQL creando un Recordset
6. Evitar el error al asignar un Null
7. Comprobar si un registro se está editando
8. Asignar a un Recordset los registros deseados
9. Compactar una base de datos, usando código VB (27/Feb)
10. Crear una base de datos, usando código VB (18/Abr)
11. Como crear un Formulario de Datos con un Grupo de Registros Subyacente (18/Abr)
12. Cambiar los caracteres extraños por ? (para usar en las consultas a bases de datos con LIKE) (20/Abr)
13. Procesar el resultado de una consulta con varias tablas para evitar registros duplicados (13/Jul)
14. Programación sobre la seguridad de Access (31/Ago)
15. Un método rápido para efectuar búsquedas (8/Sep)
16. Enumerar las tablas de una base de datos (17/Sep)
17. Capturar errores de ODBC (9/Abr/98)
18. Acceso a bases de datos SQL Server...
19. Cargar Imágenes de una base de datos sin usar el DataControl
20. Acceder a bases de datos de Access 2000 con el VB5 (05/Oct/99)
21. Un consejo si instalas VB6 SP4 para acceder a bases de datos de Access 2000 (10/Nov/00)
22. Ejemplo "simple" de acceso a datos DAO con el data control (Curso Básico entrega 34) (09/Jul/03)
23. Buscar en una base de datos DAO con el data control (Curso Básico entrega 35) (09/Jul/03)
24. Acceder a una base de datos DAO sin el data control (Curso Básico entrega 40) (09/Jul/03)
25. Realizar consultas en una base de datos DAO (Curso Básico entrega 40) (09/Jul/03)
26. Cómo manejar fechas en consultas, además de otros ejemplos, tanto para ADO como para DAO (09/Jul/03)
27. Instrucciones SQL para seleccionar, actualizar, eliminar datos, etc. (02/May/04)
28. Conectar a una base de datos de SQL Server con VB6 (Abrir una tabla y mostrar los campos/columnas) (10/Sep/04)
29. Indicar el path de una base de datos usando el control data (18/Sep/04)
Ejemplo paso a paso de cómo usar un control data y DataGrid


10.- Crear una base de datos, usando código VB (18/Abr) :

http://www.mundoprogramacion.com/vb/...eDAO.asp#db010

Código:

Private Sub CrearBase(sBase As String)
    'Crear la base de datos indicada
    '
    Dim Db As Database
    Dim Fd As Field
    Dim Tb As New TableDef      'Definir una Tabla
    Dim Idx As New Index        'Para crear un índice
    Dim i As Integer

    'Crear base de datos, idioma español y para la versión 2.0 del Jet de Access
    '================================================================================
    'Si vas a adaptar este programa para VB3, usa dbVersion11 en lugar de dbVersion20
    '================================================================================
    Set Db = CreateDatabase(sBase, dbLangSpanish, dbVersion20)
    '
    'La constante dbVersion20 no aparece en la ayuda, en su lugar lo hace la dbVersion25
    'pero ésa no está creada!!!
    '
    'Primero la tabla de las tareas
    Set Tb = Db.CreateTableDef("Tareas")
    'Vamos a crear cada uno de los campos
    Set Fd = Tb.CreateField("ID", dbLong)
    'Ahora vamos a asignar las propiedades de contador, etc.
    Fd.Attributes = dbAutoIncrField Or dbUpdatableField Or dbFixedField
    Tb.Fields.Append Fd
    'El resto de los campos
    Set Fd = Tb.CreateField("Fecha", dbDate)
    Tb.Fields.Append Fd
    Set Fd = Tb.CreateField("Asunto", dbText, 255)
    Tb.Fields.Append Fd
    Set Fd = Tb.CreateField("Descripcion", dbMemo)
    Tb.Fields.Append Fd
    Set Fd = Tb.CreateField("FechaInicio", dbDate)
    Tb.Fields.Append Fd
    Set Fd = Tb.CreateField("FechaTermino", dbDate)
    Tb.Fields.Append Fd
    Set Fd = Tb.CreateField("Terminada", dbInteger)
    Tb.Fields.Append Fd
    'Creamos un índice con el ID
    Idx.Name = "PrimaryKey"
    Idx.Unique = True
    Idx.Primary = True
    Idx.Fields = "ID"
    Tb.Indexes.Append Idx
    'Añadimos la tabla a la base
    Db.TableDefs.Append Tb
    '
    'Creamos la otra tabla: Anotaciones
    Set Tb = Db.CreateTableDef("Anotaciones")
    'El campo ID, es el contador, etc.
    Set Fd = Tb.CreateField("ID", dbLong)
    Fd.Attributes = dbAutoIncrField Or dbUpdatableField Or dbFixedField
    Tb.Fields.Append Fd
    'El resto de los campos
    Set Fd = Tb.CreateField("Fecha", dbDate)
    Tb.Fields.Append Fd
    Set Fd = Tb.CreateField("Tema", dbText, 50)
    Tb.Fields.Append Fd
    Set Fd = Tb.CreateField("Asunto", dbText, 255)
    Tb.Fields.Append Fd
    Set Fd = Tb.CreateField("Medio", dbText, 255)
    Tb.Fields.Append Fd
    Set Fd = Tb.CreateField("Localizacion", dbText, 255)
    Tb.Fields.Append Fd
    Set Fd = Tb.CreateField("Descripcion", dbMemo)
    Tb.Fields.Append Fd
    Set Fd = Tb.CreateField("Detalle", dbLongBinary)
    Tb.Fields.Append Fd
    'Creamos un índice con el ID
    Set Idx = Nothing           'Quitar la referencia anterior
    Idx.Name = "PrimaryKey"
    Idx.Unique = True
    Idx.Primary = True
    Idx.Fields = "ID"
    Tb.Indexes.Append Idx
    'Añadimos la segunda tabla a la base
    Db.TableDefs.Append Tb
    'Cerramos la base
    Db.Close

    MsgBox "Nueva base de datos " & sBase & " creada.", vbInformation
End Sub

Bases de datos ADO con VB 6
(ADO = ActiveX Data Objects)
http://www.mundoprogramacion.com/vb/.../indiceADO.htm

Contenido:

1. Indicar el path de una base de datos usando el control data (18/Sep/04)
Ejemplo paso a paso de cómo usar un control data y DataGrid
2. Conectar a una base de datos de SQL Server con VB6 (Abrir una tabla y mostrar los campos/columnas) (10/Sep/04)
3. Instrucciones SQL para seleccionar, actualizar, eliminar datos, etc. (02/May/04)
4. Acceder a una base de datos de Access desde una página ASPX usando ADO (02/Ene/04)
5. Comprobar si un Recordset está vacío (18/Dic/03)
6. Cómo manejar fechas en consultas, además de otros ejemplos, tanto para ADO como para DAO (09/Jul/03)
7. Acceder a una base de datos ADO sin el data control (Curso Básico entrega 41) (09/Jul/03)
8. Más consejos para mejorar el acceso a datos, aportados por Norman A. Armas (25/Oct/01)
9. Compactar y cambiar el password de una base de datos (24/Oct/01)
10. Compactar una base de datos con password (24/Oct/01)
11. Consejos para mejorar el acceso a los datos (04/Oct/01)
12. Código de ejemplo de compactar, crear base y crear tablas con ADO (29/Sep/01)
13. Compactar una base de datos usando ADO y VB (29/Sep/01)
14. Crear una tabla en una base de datos, usando ADO y VB (29/Sep/01)
Leer nota del 04/Oct/01 y 27/Dic/02
15. Crear una base de datos con ADO, usando código de VB (29/Sep/01)
16. Abrir una base de datos ADO con contraseña (05/Sep/01)
17. Manipular imágenes usando ADO (con datacontrol) (11/Jul/01)
18. Usar el ADO DataControl (Curso Básico entrega 36) (14/Feb/01)
19. Acceder a bases de datos usando ADO (sin el data control) (31/Ago/99)
20. Acceder a bases de Access 2000 (usando el datacontrol de ADO) (31/Ago/99)

Nos vemos.

[nostromo_]

Holas;

Se me olvidad algo importante, en el Menu Proyecto debes ir a referencia y cargar la libreria de ADO o DAO.

De otra forma, te marcara error.

Nos vemos.

[jrp01]

Con que estas trabajando Access? o SQLServer?

[Potro]

Gracias vere con esto que me dices

ahhh

Estoy con sql server

[jrp01]

Bueno pues lo basico:

Proyecto->Referencias marcas Microsoft Active Data Objects 2.xx (depende que versiones tengas)

luego declaras:

Dim cn As New ADODB.Connection

en el load de la forma:

Código:

Cn.ConnectionString = "DRIVER=SQL Server;SERVER=(local);UID=Tu_usuario;PWD=TuPassword;DATABASE=Tu_BD"

y luego en un boton por ejemplo para meter los datos a la BD

Cn.execute "tu sentencia SQL"

Por ejemplo en tu SQL si es un numero y un texto seria asi:

Código:

Cn.execute "insert into tu_tabla values (" & text1.text & ",'" & text2.text & "')"

PD. Hay un subforo de VB

[Potro]

ya se uqe hay un sub foro pero no hay mucha información de esto de sql server y vb6


gracias por tu comentario es de mucha importancia paa mi mil gracias....