RESOLVIDO! RELACIONAMENTO DE TABELAS PELO VB6
Galera, Eu Crio as Tabelas e os Campos diretamente Pelo VB6, e estou precisando Fazer o Relacionamentos das minhas tabelas Também pelo VB6, como posso?
OBS: SQLSERVER X VB6
OBS: SQLSERVER X VB6
PARA QUEM QUISER!!!
TBb.Source = [Ô]ALTER TABLE [Ô] & TBSecundaria & [Ô] WITH CHECK ADD CONSTRAINT FK_[Ô] & TBSecundaria & [Ô]_[Ô] & TabelaPrimaria & [Ô] FOREIGN KEY (IDsecundario) References [Ô] & TabelaPrimaria & [Ô] (IDPrimario)
TBb.Open , cn, adOpenDynamic, adLockOptimistic
TBb.Source = [Ô]ALTER TABLE [Ô] & TBSecundaria & [Ô] CHECK constraint FK_[Ô] & TBSecundaria & [Ô]_[Ô] & TabelaPrimaria
TBb.Open , cn, adOpenDynamic, adLockOptimistic
é ASSIM QUE FAZ UM RELACIONAMENTO PELO VB6 NO SQL-SERVER, SEM FALHAS E MUITO BEM TESTADO!!!
TBb.Source = [Ô]ALTER TABLE [Ô] & TBSecundaria & [Ô] WITH CHECK ADD CONSTRAINT FK_[Ô] & TBSecundaria & [Ô]_[Ô] & TabelaPrimaria & [Ô] FOREIGN KEY (IDsecundario) References [Ô] & TabelaPrimaria & [Ô] (IDPrimario)
TBb.Open , cn, adOpenDynamic, adLockOptimistic
TBb.Source = [Ô]ALTER TABLE [Ô] & TBSecundaria & [Ô] CHECK constraint FK_[Ô] & TBSecundaria & [Ô]_[Ô] & TabelaPrimaria
TBb.Open , cn, adOpenDynamic, adLockOptimistic
é ASSIM QUE FAZ UM RELACIONAMENTO PELO VB6 NO SQL-SERVER, SEM FALHAS E MUITO BEM TESTADO!!!
Tópico encerrado , respostas não são mais permitidas