CRIAR CHAVE ESTRANGEIRA NO SQL.
Esto criando as tabelas do sql diretamente do vb. A duvida seria referente as tabelas que forem receber chave estrangeiras..
Um exemplo no sql ficaria CREATE TABLE Cliente (ClienteId int not null IDENTITY(1,1),Nome nvarchar(128) not null,Endereco nvarchar(128) not null,
CidadeId int not null,CONSTRAINT PK_Cidade_ClienteId PRIMARY KEY(ClienteId),CONSTRAINT FK_Cliente_Cidade_CidadeId FOREIGN KEY(CidadeId) REFERENCES Cidade(CidadeId)
)
e no vb.net tem como criar essa chave estrangeira ou criar uma procedure para gerar essa chave estrangeira e chama-la apos a criação da tabela
Um exemplo no sql ficaria CREATE TABLE Cliente (ClienteId int not null IDENTITY(1,1),Nome nvarchar(128) not null,Endereco nvarchar(128) not null,
CidadeId int not null,CONSTRAINT PK_Cidade_ClienteId PRIMARY KEY(ClienteId),CONSTRAINT FK_Cliente_Cidade_CidadeId FOREIGN KEY(CidadeId) REFERENCES Cidade(CidadeId)
)
e no vb.net tem como criar essa chave estrangeira ou criar uma procedure para gerar essa chave estrangeira e chama-la apos a criação da tabela
alguem para me ajudar...
vejam se esse comando esta correto por favor
Public WriteOnly Property alterTabelaSQLExpress As String
Set(ByVal qualComandoSQL As String)
Try
Using Comando As New SqlCommand
With Comando
.Connection = ConexaoSQL
.CommandText = qualComandoSQL
.ExecuteNonQuery()
.Dispose()
End With
End Using
Catch ex As Exception
Console.WriteLine()
End Try
End Set
End Property
objConexaoBD.ConectarSQL()
objAmbienteSQL.alterTabelaSQLExpress = [Ô]ALTER TABLE tblFornecedor ADD CONSTRAINT FKcodc FOREIGN KEY(cpfc) REFERENCES tblCliente(cpf) [Ô]
objConexaoBD.DesconectarSQL()
MsgBox([Ô]Chave criadas com sucesso[Ô])
End Sub
Public WriteOnly Property alterTabelaSQLExpress As String
Set(ByVal qualComandoSQL As String)
Try
Using Comando As New SqlCommand
With Comando
.Connection = ConexaoSQL
.CommandText = qualComandoSQL
.ExecuteNonQuery()
.Dispose()
End With
End Using
Catch ex As Exception
Console.WriteLine()
End Try
End Set
End Property
objConexaoBD.ConectarSQL()
objAmbienteSQL.alterTabelaSQLExpress = [Ô]ALTER TABLE tblFornecedor ADD CONSTRAINT FKcodc FOREIGN KEY(cpfc) REFERENCES tblCliente(cpf) [Ô]
objConexaoBD.DesconectarSQL()
MsgBox([Ô]Chave criadas com sucesso[Ô])
End Sub
Consegui.. segue o codigo abaixo para quem precisar..
objAmbienteSQL.alterTabelaSQLExpress = [Ô]ALTER TABLE tblFornecedor ADD CONSTRAINT fk_fases_processos FOREIGN KEY (codigoc) REFERENCES tblCliente (codigo) [Ô]
objAmbienteSQL.alterTabelaSQLExpress = [Ô]ALTER TABLE tblFornecedor ADD CONSTRAINT fk_fases_processos FOREIGN KEY (codigoc) REFERENCES tblCliente (codigo) [Ô]
Tópico encerrado , respostas não são mais permitidas