beto_22
02 de Marzo del 2004

hola amigos:
como puedo crear una tabla desde visual basic en una base de datos de sql y claro que tenga las relaciones correspondientes server 7.0 si me pudieran ayudar

CristianballZ
02 de Marzo del 2004

puedes mandar la secuencia sql

Create table nombreTabala(campos.....

luego ,

create unique index.....

y luego ,

alter table add contraint fk_llaveExterna (campotabla) reference (tabla.campo)

puedes usar cualquier tutor de sql que te enseñe la sintaxis,
recuerda que antes de generar las claves debes poblar los campos. yo generalmente mando estas secuencias usando un modulo que contiene la conexion y una subrutina ue me ejecuta comandos sql como si fuera el queryanalizer si necesitas más ayuda me escribes al correo

saludos

CristianballZ
02 de Marzo del 2004

te mando el modulo que yo uso

Option Explicit

'DECLARACION DE UN VARIABLE OBJETO DEL TIPO ADODB.CONNECTION
Public con_conexion As ADODB.Connection
Public rec_conexion As ADODB.Recordset


Public Sub ConectarBD()
'On Error GoTo error:
'SE INSTANCIA EL OBJETO CON AUTO DEL TIPO CONNECTION
Set con_conexion = New ADODB.Connection

'CONFIGURACION DEL CON_AUTO
con_conexion.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Cocina"

'SE ABRE LA CONEXION
con_conexion.Open
'error:
' If Err.Number > 0 Then
' Err.Description
' Resume Next
' End If
End Sub

Public Sub DesconectarBD()

'SE CIERRA LA CONEXION
con_conexion.Close

'LIBERAR MEMORIA
Set con_conexion = Nothing

End Sub


Public Sub Ejecutar(strsql As String)
' On Error GoTo error:
Set rec_conexion = New ADODB.Recordset
rec_conexion.CursorLocation = adUseClient
rec_conexion.Open strsql, con_conexion
'error:
' If Err.Number > 0 Then
' MsgBox Err.Description
' Resume Next
'End If
End Sub

ahora supone que usas un boton para generar la tabla

llamas al metodo conectar
luego ejecutas el comando sql guardandolo en un string y mandandolo al metodo ejecutar y luegos cierras la conexion